[wxWidgets.git] / src / common / date.cpp

/////////////////////////////////////////////////////////////////////////////
// Name:        date.cpp
// Purpose:     wxDate class
// Author:
//    Originally inspired by Steve Marcus (CIS 72007,1233)  6/16/91
//    Enhanced by Eric Simon (CIS 70540,1522)               6/29/91
//    Further Enhanced by Chris Hill (CIS 72030,2606)       7/11/91
//    Still Further Enhanced by Hill & Simon  v3.10         8/05/91
//    Version 4 by Charles D. Price                         6/27/92
//    Integrated into wxWindows by Julian Smart             9th July 1995
// Modified by:	
// Created:     01/02/97
// RCS-ID:      $Id$
// Copyright:   (c) Julian Smart and Markus Holzem
// Licence:   	wxWindows licence
/////////////////////////////////////////////////////////////////////////////

#ifdef __GNUG__
#pragma implementation "date.h"
#endif

// For compilers that support precompilation, includes "wx.h".
#include "wx/wxprec.h"

#ifdef __BORLANDC__
#pragma hdrstop
#endif

#include "wx/setup.h"

#if USE_TIMEDATE

#include "wx/date.h"
#include <wx/intl.h>

#include <stdio.h>
#include <string.h>
#include <stdlib.h>

#if USE_IOSTREAMH
#include <iostream.h>
#else
#include <iostream>
#endif

#include <time.h>
#include <string.h>

#define ABBR_LENGTH 3

static const char *dayname[] = {
  "Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday"
};

static const char *mname[] = {
  "January", "February", "March", "April", "May", "June", "July", "August",
  "September", "October", "November", "December"
};

static int GauDays[] = { 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 };

#if !USE_SHARED_LIBRARY
IMPLEMENT_DYNAMIC_CLASS(wxDate, wxObject)
#endif

////////////////////////////////////////////////////////////
// Constructors
////////////////////////////////////////////////////////////

wxDate::wxDate()
{
  DisplayFormat=wxMDY;
  DisplayOptions='\0';
  month = day = year = day_of_week = 0;
  julian = 0;
}

wxDate::wxDate (long j) : julian(j)
{
  DisplayFormat=wxMDY;
  DisplayOptions='\0';
  julian_to_mdy ();
}

wxDate::wxDate (int m, int d, int y) : month(m), day(d), year(y)
{
  DisplayFormat=wxMDY;
  DisplayOptions='\0';
  mdy_to_julian ();
}

wxDate::wxDate (const wxString& dat)
{
  DisplayFormat=wxMDY;
  DisplayOptions='\0';
  if (strcmp(dat, "TODAY") == 0 || strcmp(dat, "today") == 0)
  {
    // Sets the current date
    Set();
  }
  else
  {
    char buf[100];
    strcpy(buf, (char *) (const char *)dat);

    char *token = strtok(buf,"/-");
    month = atoi(token);
    day   = atoi(strtok(NULL,"/-"));
    year  = atoi(strtok(NULL," "));
  }

  mdy_to_julian ();
}

wxDate::wxDate (const wxDate &dt)
{
  DisplayFormat=dt.DisplayFormat;
  DisplayOptions=dt.DisplayOptions;
  month = dt.month;
  day   = dt.day;
  year  = dt.year;
  mdy_to_julian ();
}

void wxDate::operator = (const wxDate &dt)
{
  DisplayFormat=dt.DisplayFormat;
  DisplayOptions=dt.DisplayOptions;
  month = dt.month;
  day   = dt.day;
  year  = dt.year;
  mdy_to_julian ();
}

void wxDate::operator = (const wxString& dat)
{
  DisplayFormat=wxMDY;
  DisplayOptions='\0';
  if (strcmp(dat, "TODAY") == 0 || strcmp(dat, "today") == 0)
  {
    // Sets the current date
    Set();
  }
  else
  {
    char buf[100];
    strcpy(buf, (char *)(const char *)dat);

    char *token = strtok(buf,"/-");
    month = atoi(token);
    day   = atoi(strtok(NULL,"/-"));
    year  = atoi(strtok(NULL," "));
  }

  mdy_to_julian ();
}

//////////////////////////////////////////////////////////////
// Conversion operations
//////////////////////////////////////////////////////////////

wxDate::operator wxString( void )
{
  return FormatDate();
}

//////////////////////////////////////////////////////////////
// Date Arithmetic
//////////////////////////////////////////////////////////////

wxDate wxDate::operator + (long i)
{
  wxDate dp(julian + i);
  return dp;
}

wxDate wxDate::operator + (int i)
{
  wxDate dp(julian + (long)i);
  return dp;
}

wxDate wxDate::operator - (long i)
{
  wxDate dp(julian - i);
  return dp;
}

wxDate wxDate::operator - (int i)
{
  wxDate dp(julian - (long)i);
  return dp;
}

long wxDate::operator - (const wxDate &dt)
{
	return ( julian - dt.julian );
}

wxDate &wxDate::operator += (long i)
{
	 julian += i;
     julian_to_mdy();
	 return *this;
}

wxDate &wxDate::operator -= (long i)
{
	 julian -= i;
     julian_to_mdy();
	 return *this;
}

wxDate &wxDate::operator ++()
{
	julian++;
    julian_to_mdy();
	return *this;
}

wxDate &wxDate::operator ++(int)
{
	julian++;
    julian_to_mdy();
	return *this;
}

wxDate &wxDate::operator --()
{
	julian--;
    julian_to_mdy();
	return *this;
}

wxDate &wxDate::operator --(int)
{
	julian--;
    julian_to_mdy();
	return *this;
}

//////////////////////////////////////////////////////////////
// Date comparison
//////////////////////////////////////////////////////////////

bool operator <  (const wxDate &dt1, const wxDate &dt2)
{
	return ( dt1.julian < dt2.julian );
}

bool operator <= (const wxDate &dt1, const wxDate &dt2)
{
	return ( (dt1.julian == dt2.julian) || (dt1.julian < dt2.julian) );
}

bool operator >  (const wxDate &dt1, const wxDate &dt2)
{
	return ( dt1.julian > dt2.julian );
}

bool operator >= (const wxDate &dt1, const wxDate &dt2)
{
	return ( (dt1.julian == dt2.julian) || (dt1.julian > dt2.julian) );
}

bool operator == (const wxDate &dt1, const wxDate &dt2)
{
	return ( dt1.julian == dt2.julian );
}

bool operator != (const wxDate &dt1, const wxDate &dt2)
{
	return ( dt1.julian != dt2.julian );
}

////////////////////////////////////////////////////////////////
// Ostream operations
////////////////////////////////////////////////////////////////

ostream &operator << (ostream &os, const wxDate &dt)
{
	return os << (const char *) dt.FormatDate();
}

//////////////////////////////////////////////////////////////
// Conversion routines
//////////////////////////////////////////////////////////////

void wxDate::julian_to_wday (void)
{
	day_of_week = (int) ((julian + 2) % 7 + 1);
}

void wxDate::julian_to_mdy ()
{
	long a,b,c,d,e,z,alpha;
	z = julian+1;
	// dealing with Gregorian calendar reform
    if (z < 2299161L)
       a = z;
    else {
       alpha = (long) ((z-1867216.25) / 36524.25);
       a = z + 1 + alpha - alpha/4;
    }
	b = ( a > 1721423 ? a + 1524 : a + 1158 );
	c = (long) ((b - 122.1) / 365.25);
	d = (long) (365.25 * c);
	e = (long) ((b - d) / 30.6001);
    day = (int)(b - d - (long)(30.6001 * e));
    month = (int)((e < 13.5) ? e - 1 : e - 13);
    year = (int)((month > 2.5 ) ? (c - 4716) : c - 4715);
	julian_to_wday ();
}

void wxDate::mdy_to_julian (void)
{
	int a,b=0;
	int work_month=month, work_day=day, work_year=year;
	// correct for negative year
    if (work_year < 0)
		work_year++;
	if (work_month <= 2)
		{ work_year--; work_month +=12; }

	// deal with Gregorian calendar
	if (work_year*10000. + work_month*100. + work_day >= 15821015.)
		{
        a = (int)(work_year/100.);
		b = 2 - a + a/4;
		}
	julian = (long) (365.25*work_year) +
			 (long) (30.6001 * (work_month+1))  +  work_day + 1720994L + b;
	julian_to_wday ();
}

////////////////////////////////////////////////////////////////
// Format routine
////////////////////////////////////////////////////////////////

wxString wxDate::FormatDate (int type) const
{
  int actualType = type;
  if (actualType == -1)
    actualType = DisplayFormat;

    char buf[40];

    memset( buf, '\0', sizeof(buf) );
	switch ( actualType )
	{
		case wxDAY:
			if ( (day_of_week < 1) || (day_of_week > 7) )
				strcpy(buf, _("invalid day"));
			else
				strncpy( buf, _(dayname[day_of_week-1]),
					(DisplayOptions & wxDATE_ABBR) ? ABBR_LENGTH : 9);
			return wxString(buf);

		case wxMONTH:
			if ( (month < 1) || (month > 12) )
				strcpy(buf, _("invalid month"));
			else
				strncpy( buf, _(mname[month-1]),
					(DisplayOptions & wxDATE_ABBR) ? ABBR_LENGTH : 9);
			return wxString(buf);

		case wxFULL:
			if ( (month < 1) || (month > 12) || (day_of_week < 0) ||
				 (day_of_week > 7) )
			{
				strcpy(buf, _("invalid date"));
				return wxString(buf);
			}
			strncpy( buf, _(dayname[day_of_week-1]),
				(DisplayOptions & wxDATE_ABBR) ? ABBR_LENGTH : 9);
			strcat( buf, ", ");
			strncat( buf, _(mname[month-1]),
				(DisplayOptions & wxDATE_ABBR) ? ABBR_LENGTH : 9);
			strcat( buf, " ");
			sprintf( buf+strlen(buf), "%d, %d", day, abs(year) );
			if (year < 0)
				strcat(buf,_(" B.C."));
			return wxString(buf);

		case wxEUROPEAN:
			if ( (month < 1) || (month > 12) || (day_of_week < 0) ||
				 (day_of_week > 7) )
			{
				strcpy(buf, _("invalid date"));
				return wxString(buf);
			}
			sprintf(buf,"%d ",	day);
			strncat(buf, _(mname[month-1]),
				(DisplayOptions & wxDATE_ABBR) ? ABBR_LENGTH : 9);
			sprintf( buf+strlen(buf), " %d", abs(year) );
			if (year < 0)
				strcat(buf, _(" B.C."));
			return wxString(buf);

		case wxMDY:
		default:
			if (day==0 || month==0 || year==0)
				strcpy(buf, _("invalid date"));
			else
				sprintf( buf+strlen(buf), "%1d/%1d/%02d", month, day,
					(DisplayOptions & wxNO_CENTURY) && (abs(year) > 1899)
					? (abs(year) - (abs(year) / 100 * 100))
					: (abs(year))  );
			return wxString(buf);
	}
  return wxString("");
}

void wxDate::SetFormat( int format )
{
	DisplayFormat = format;
}

int wxDate::SetOption( int option, bool action )
{
	switch ( option )
	{
		case wxNO_CENTURY:
			if ( action )
				DisplayOptions |= wxNO_CENTURY;
			else
			{
				DisplayOptions &= (~wxNO_CENTURY);
			}
			return 1;
		case wxDATE_ABBR:
			if ( action )
				DisplayOptions |= wxDATE_ABBR;
			else
			{
				DisplayOptions &= (~wxDATE_ABBR);
			}
			return 1;
		default:
			return 0;
	}
  return 0;
}

///////////////////////////////////////////////////////////////
//  Miscellaneous Routines
///////////////////////////////////////////////////////////////

long wxDate::GetJulianDate( void ) const
{
	return julian;
}

int wxDate::GetDayOfYear( void ) const
{
	wxDate temp( 1, 1, year );

	return (int) (julian - temp.julian + 1);
}


bool wxDate::IsLeapYear( void ) const
{
	return  ( (year >= 1582) ?
			  (year % 4 == 0  &&  year % 100 != 0  ||  year % 400 == 0 ):
			  (year % 4 == 0) );
}

// Version 4.0 Extension to Public Interface - CDP

wxDate& wxDate::Set()
{
//#ifdef __WXMSW__
#if 0
    struct _dosdate_t sDate;
    _dos_getdate(&sDate);

    month = sDate.month;
    day   = sDate.day;
    year  = sDate.year;

    mdy_to_julian();
#else
    time_t now = time(NULL);
    struct tm *localTime = localtime(&now);

    month = localTime->tm_mon + 1;
    day = localTime->tm_mday;
    year = localTime->tm_year + 1900;

    mdy_to_julian ();
#endif
    return *this;
}

wxDate& wxDate::Set(
	int	nMonth,
	int	nDay,
	int	nYear)
{
    month = nMonth;
    year  = nYear < 0 ? 9999 : nYear;
    year  = nYear > 9999 ? 0 : nYear;
    day   = nDay < GetDaysInMonth() ? nDay : GetDaysInMonth();

    mdy_to_julian();
	return *this;
}

wxDate &
wxDate::Set(long j)
{
  julian = j;

  julian_to_mdy();
  return *this;
}


int wxDate::GetDaysInMonth()
{
    return GauDays[month-1] + (month==2 && IsLeapYear());
}

int wxDate::GetFirstDayOfMonth() const
{
    return wxDate(month, 1, year).GetDayOfWeek();
}

int wxDate::GetDay() const
{
    return day;
}

int wxDate::GetDayOfWeek() const
{
    return day_of_week;
}

int wxDate::GetYear() const
{
    return year;
}

int wxDate::GetMonth() const
{
    return month;
}

wxDate& wxDate::AddWeeks(int nCount)
{
    Set(julian + (long)nCount*7);
    return *this;
}

wxDate& wxDate::AddMonths(int nCount)
{
    month += nCount;

    if (month < 1) {
        month = 12;
        year--;
	}

    if (month > 12) {
        month = 1;
        year++;
	}
    mdy_to_julian();
    return *this;
}

wxDate& wxDate::AddYears(int nCount)
{
    year += nCount;
    mdy_to_julian();
    return *this;
}

int wxDate::GetWeekOfMonth()
{
  // Abs day includes the days from previous month that fills up
  // the begin. of the week.
  int nAbsDay = day + GetFirstDayOfMonth()-1;
  return (nAbsDay-GetDayOfWeek())/7 + 1;
}

int wxDate::GetWeekOfYear()
{
    wxDate   doTemp(1, 1, year);
    return (int)(((julian - doTemp.julian+1)/7) + 1);
}

wxDate wxDate::GetMonthStart()
{
    return(wxDate(month, 1, year));
}

wxDate wxDate::GetMonthEnd()
{
    return(wxDate(month+1, 1, year)-1);
}

wxDate wxDate::GetYearStart()
{
    return(wxDate(1, 1, year));
}

wxDate wxDate::GetYearEnd()
{
    return(wxDate(1, 1, year+1)-1);
}

wxString wxDate::GetMonthName()
{
    return(FormatDate(wxMONTH));
}

wxString wxDate::GetDayOfWeekName()
{
    return(FormatDate(wxDAY));
}

bool wxDate::IsBetween(const wxDate& first, const wxDate& second) const
{
  return (julian >= first.julian && julian <= second.julian);
}

// This function is from NIHCL
wxDate wxDate::Previous(int dayOfWeek) const
{
        int this_day_Of_Week, desired_day_Of_Week;
        long j;

//      Set the desired and current day of week to start at 0 (Monday)
//      and end at 6 (Sunday).

        desired_day_Of_Week = dayOfWeek - 1; // These functions return a value
        this_day_Of_Week    = GetDayOfWeek() - 1;            // from 1-7.  Subtract 1 for 0-6.
        j = julian;

//      Have to determine how many days difference from current day back to
//      desired, if any.  Special calculation under the 'if' statement to
//      effect the wraparound counting from Monday (0) back to Sunday (6).

        if (desired_day_Of_Week > this_day_Of_Week)
                this_day_Of_Week += 7 - desired_day_Of_Week;
        else
                this_day_Of_Week -= desired_day_Of_Week;
        j -= this_day_Of_Week; // Adjust j to set it at the desired day of week.
        return wxDate(j);
}

#endif
Commit	Line	Data
c801d85f KB	1	/////////////////////////////////////////////////////////////////////////////
	2	// Name: date.cpp
	3	// Purpose: wxDate class
	4	// Author:
	5	// Originally inspired by Steve Marcus (CIS 72007,1233) 6/16/91
	6	// Enhanced by Eric Simon (CIS 70540,1522) 6/29/91
	7	// Further Enhanced by Chris Hill (CIS 72030,2606) 7/11/91
	8	// Still Further Enhanced by Hill & Simon v3.10 8/05/91
	9	// Version 4 by Charles D. Price 6/27/92
	10	// Integrated into wxWindows by Julian Smart 9th July 1995
	11	// Modified by:
	12	// Created: 01/02/97
	13	// RCS-ID: $Id$
	14	// Copyright: (c) Julian Smart and Markus Holzem
	15	// Licence: wxWindows licence
	16	/////////////////////////////////////////////////////////////////////////////
	17
	18	#ifdef __GNUG__
	19	#pragma implementation "date.h"
	20	#endif
	21
	22	// For compilers that support precompilation, includes "wx.h".
	23	#include "wx/wxprec.h"
	24
	25	#ifdef __BORLANDC__
	26	#pragma hdrstop
	27	#endif
	28
	29	#include "wx/setup.h"
	30
	31	#if USE_TIMEDATE
	32
	33	#include "wx/date.h"
1a5a8367	34	#include <wx/intl.h>
c801d85f KB	35
	36	#include <stdio.h>
	37	#include <string.h>
	38	#include <stdlib.h>
	39
	40	#if USE_IOSTREAMH
	41	#include <iostream.h>
	42	#else
	43	#include <iostream>
	44	#endif
	45
	46	#include <time.h>
	47	#include <string.h>
	48
	49	#define ABBR_LENGTH 3
	50
1a5a8367 DP	51	static const char *dayname[] = {
	52	"Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday"
	53	};
c801d85f	54
1a5a8367 DP	55	static const char *mname[] = {
	56	"January", "February", "March", "April", "May", "June", "July", "August",
	57	"September", "October", "November", "December"
	58	};
c801d85f KB	59
	60	static int GauDays[] = { 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 };
	61
	62	#if !USE_SHARED_LIBRARY
	63	IMPLEMENT_DYNAMIC_CLASS(wxDate, wxObject)
	64	#endif
	65
	66	////////////////////////////////////////////////////////////
	67	// Constructors
	68	////////////////////////////////////////////////////////////
	69
	70	wxDate::wxDate()
	71	{
	72	DisplayFormat=wxMDY;
	73	DisplayOptions='\0';
	74	month = day = year = day_of_week = 0;
	75	julian = 0;
	76	}
	77
debe6624	78	wxDate::wxDate (long j) : julian(j)
c801d85f KB	79	{
	80	DisplayFormat=wxMDY;
	81	DisplayOptions='\0';
	82	julian_to_mdy ();
	83	}
	84
debe6624	85	wxDate::wxDate (int m, int d, int y) : month(m), day(d), year(y)
c801d85f KB	86	{
	87	DisplayFormat=wxMDY;
	88	DisplayOptions='\0';
	89	mdy_to_julian ();
	90	}
	91
	92	wxDate::wxDate (const wxString& dat)
	93	{
	94	DisplayFormat=wxMDY;
	95	DisplayOptions='\0';
	96	if (strcmp(dat, "TODAY") == 0 \|\| strcmp(dat, "today") == 0)
	97	{
	98	// Sets the current date
	99	Set();
	100	}
	101	else
	102	{
	103	char buf[100];
	104	strcpy(buf, (char ) (const char )dat);
	105
	106	char *token = strtok(buf,"/-");
	107	month = atoi(token);
	108	day = atoi(strtok(NULL,"/-"));
	109	year = atoi(strtok(NULL," "));
	110	}
	111
	112	mdy_to_julian ();
	113	}
	114
	115	wxDate::wxDate (const wxDate &dt)
	116	{
	117	DisplayFormat=dt.DisplayFormat;
	118	DisplayOptions=dt.DisplayOptions;
	119	month = dt.month;
	120	day = dt.day;
	121	year = dt.year;
	122	mdy_to_julian ();
	123	}
	124
	125	void wxDate::operator = (const wxDate &dt)
	126	{
	127	DisplayFormat=dt.DisplayFormat;
	128	DisplayOptions=dt.DisplayOptions;
	129	month = dt.month;
	130	day = dt.day;
	131	year = dt.year;
	132	mdy_to_julian ();
	133	}
	134
	135	void wxDate::operator = (const wxString& dat)
	136	{
	137	DisplayFormat=wxMDY;
	138	DisplayOptions='\0';
	139	if (strcmp(dat, "TODAY") == 0 \|\| strcmp(dat, "today") == 0)
	140	{
	141	// Sets the current date
	142	Set();
	143	}
	144	else
	145	{
	146	char buf[100];
	147	strcpy(buf, (char )(const char )dat);
	148
	149	char *token = strtok(buf,"/-");
150	month = atoi(token);
151	day = atoi(strtok(NULL,"/-"));
152	year = atoi(strtok(NULL," "));
153	}
154
155	mdy_to_julian ();
156	}
157
158	//////////////////////////////////////////////////////////////
159	// Conversion operations
160	//////////////////////////////////////////////////////////////
161
162	wxDate::operator wxString( void )
163	{
164	return FormatDate();
165	}
166
167	//////////////////////////////////////////////////////////////
168	// Date Arithmetic
169	//////////////////////////////////////////////////////////////
170
debe6624	171	wxDate wxDate::operator + (long i)
c801d85f KB	172	{
	173	wxDate dp(julian + i);
	174	return dp;
	175	}
	176
debe6624	177	wxDate wxDate::operator + (int i)
c801d85f KB	178	{
	179	wxDate dp(julian + (long)i);
	180	return dp;
	181	}
	182
debe6624	183	wxDate wxDate::operator - (long i)
c801d85f KB	184	{
	185	wxDate dp(julian - i);
	186	return dp;
	187	}
	188
debe6624	189	wxDate wxDate::operator - (int i)
c801d85f KB	190	{
	191	wxDate dp(julian - (long)i);
	192	return dp;
	193	}
	194
	195	long wxDate::operator - (const wxDate &dt)
	196	{
	197	return ( julian - dt.julian );
	198	}
	199
debe6624	200	wxDate &wxDate::operator += (long i)
c801d85f KB	201	{
	202	julian += i;
	203	julian_to_mdy();
	204	return *this;
	205	}
	206
debe6624	207	wxDate &wxDate::operator -= (long i)
c801d85f KB	208	{
	209	julian -= i;
	210	julian_to_mdy();
	211	return *this;
	212	}
	213
	214	wxDate &wxDate::operator ++()
	215	{
	216	julian++;
	217	julian_to_mdy();
	218	return *this;
	219	}
	220
	221	wxDate &wxDate::operator ++(int)
	222	{
	223	julian++;
	224	julian_to_mdy();
	225	return *this;
	226	}
	227
	228	wxDate &wxDate::operator --()
	229	{
	230	julian--;
	231	julian_to_mdy();
	232	return *this;
	233	}
	234
	235	wxDate &wxDate::operator --(int)
	236	{
	237	julian--;
	238	julian_to_mdy();
	239	return *this;
	240	}
	241
	242	//////////////////////////////////////////////////////////////
	243	// Date comparison
	244	//////////////////////////////////////////////////////////////
	245
	246	bool operator < (const wxDate &dt1, const wxDate &dt2)
	247	{
	248	return ( dt1.julian < dt2.julian );
	249	}
	250
	251	bool operator <= (const wxDate &dt1, const wxDate &dt2)
	252	{
	253	return ( (dt1.julian == dt2.julian) \|\| (dt1.julian < dt2.julian) );
	254	}
	255
	256	bool operator > (const wxDate &dt1, const wxDate &dt2)
	257	{
	258	return ( dt1.julian > dt2.julian );
	259	}
	260
	261	bool operator >= (const wxDate &dt1, const wxDate &dt2)
	262	{
	263	return ( (dt1.julian == dt2.julian) \|\| (dt1.julian > dt2.julian) );
	264	}
	265
	266	bool operator == (const wxDate &dt1, const wxDate &dt2)
	267	{
	268	return ( dt1.julian == dt2.julian );
	269	}
	270
	271	bool operator != (const wxDate &dt1, const wxDate &dt2)
272	{
273	return ( dt1.julian != dt2.julian );
274	}
275
276	////////////////////////////////////////////////////////////////
277	// Ostream operations
278	////////////////////////////////////////////////////////////////
279
280	ostream &operator << (ostream &os, const wxDate &dt)
281	{
282	return os << (const char *) dt.FormatDate();
283	}
284
285	//////////////////////////////////////////////////////////////
286	// Conversion routines
287	//////////////////////////////////////////////////////////////
288
289	void wxDate::julian_to_wday (void)
290	{
291	day_of_week = (int) ((julian + 2) % 7 + 1);
292	}
293
294	void wxDate::julian_to_mdy ()
295	{
296	long a,b,c,d,e,z,alpha;
297	z = julian+1;
298	// dealing with Gregorian calendar reform
299	if (z < 2299161L)
300	a = z;
301	else {
302	alpha = (long) ((z-1867216.25) / 36524.25);
303	a = z + 1 + alpha - alpha/4;
304	}
305	b = ( a > 1721423 ? a + 1524 : a + 1158 );
306	c = (long) ((b - 122.1) / 365.25);
307	d = (long) (365.25 * c);
308	e = (long) ((b - d) / 30.6001);
309	day = (int)(b - d - (long)(30.6001 * e));
310	month = (int)((e < 13.5) ? e - 1 : e - 13);
311	year = (int)((month > 2.5 ) ? (c - 4716) : c - 4715);
312	julian_to_wday ();
313	}
314
315	void wxDate::mdy_to_julian (void)
316	{
317	int a,b=0;
318	int work_month=month, work_day=day, work_year=year;
319	// correct for negative year
320	if (work_year < 0)
321	work_year++;
322	if (work_month <= 2)
323	{ work_year--; work_month +=12; }
324
325	// deal with Gregorian calendar
326	if (work_year10000. + work_month100. + work_day >= 15821015.)
327	{
328	a = (int)(work_year/100.);
329	b = 2 - a + a/4;
330	}
331	julian = (long) (365.25*work_year) +
332	(long) (30.6001 * (work_month+1)) + work_day + 1720994L + b;
333	julian_to_wday ();
334	}
335
336	////////////////////////////////////////////////////////////////
337	// Format routine
338	////////////////////////////////////////////////////////////////
339
debe6624	340	wxString wxDate::FormatDate (int type) const
c801d85f KB	341	{
	342	int actualType = type;
	343	if (actualType == -1)
	344	actualType = DisplayFormat;
	345
	346	char buf[40];
	347
	348	memset( buf, '\0', sizeof(buf) );
	349	switch ( actualType )
	350	{
	351	case wxDAY:
	352	if ( (day_of_week < 1) \|\| (day_of_week > 7) )
1a5a8367	353	strcpy(buf, _("invalid day"));
c801d85f	354	else
1a5a8367	355	strncpy( buf, _(dayname[day_of_week-1]),
c801d85f KB	356	(DisplayOptions & wxDATE_ABBR) ? ABBR_LENGTH : 9);
	357	return wxString(buf);
	358
	359	case wxMONTH:
	360	if ( (month < 1) \|\| (month > 12) )
1a5a8367	361	strcpy(buf, _("invalid month"));
c801d85f	362	else
1a5a8367	363	strncpy( buf, _(mname[month-1]),
c801d85f KB	364	(DisplayOptions & wxDATE_ABBR) ? ABBR_LENGTH : 9);
	365	return wxString(buf);
	366
	367	case wxFULL:
	368	if ( (month < 1) \|\| (month > 12) \|\| (day_of_week < 0) \|\|
	369	(day_of_week > 7) )
	370	{
1a5a8367	371	strcpy(buf, _("invalid date"));
c801d85f KB	372	return wxString(buf);
c801d85f KB	373	}
1a5a8367	374	strncpy( buf, _(dayname[day_of_week-1]),
c801d85f KB	375	(DisplayOptions & wxDATE_ABBR) ? ABBR_LENGTH : 9);
c801d85f KB	376	strcat( buf, ", ");
1a5a8367	377	strncat( buf, _(mname[month-1]),
c801d85f KB	378	(DisplayOptions & wxDATE_ABBR) ? ABBR_LENGTH : 9);
	379	strcat( buf, " ");
	380	sprintf( buf+strlen(buf), "%d, %d", day, abs(year) );
	381	if (year < 0)
1a5a8367	382	strcat(buf,_(" B.C."));
c801d85f KB	383	return wxString(buf);
	384
	385	case wxEUROPEAN:
	386	if ( (month < 1) \|\| (month > 12) \|\| (day_of_week < 0) \|\|
	387	(day_of_week > 7) )
	388	{
1a5a8367	389	strcpy(buf, _("invalid date"));
c801d85f KB	390	return wxString(buf);
	391	}
	392	sprintf(buf,"%d ", day);
1a5a8367	393	strncat(buf, _(mname[month-1]),
c801d85f KB	394	(DisplayOptions & wxDATE_ABBR) ? ABBR_LENGTH : 9);
	395	sprintf( buf+strlen(buf), " %d", abs(year) );
	396	if (year < 0)
1a5a8367	397	strcat(buf, _(" B.C."));
c801d85f KB	398	return wxString(buf);
	399
	400	case wxMDY:
	401	default:
	402	if (day==0 \|\| month==0 \|\| year==0)
1a5a8367	403	strcpy(buf, _("invalid date"));
c801d85f KB	404	else
	405	sprintf( buf+strlen(buf), "%1d/%1d/%02d", month, day,
	406	(DisplayOptions & wxNO_CENTURY) && (abs(year) > 1899)
	407	? (abs(year) - (abs(year) / 100 * 100))
	408	: (abs(year)) );
	409	return wxString(buf);
	410	}
	411	return wxString("");
	412	}
	413
debe6624	414	void wxDate::SetFormat( int format )
c801d85f KB	415	{
	416	DisplayFormat = format;
	417	}
	418
debe6624	419	int wxDate::SetOption( int option, bool action )
c801d85f KB	420	{
	421	switch ( option )
	422	{
	423	case wxNO_CENTURY:
	424	if ( action )
	425	DisplayOptions \|= wxNO_CENTURY;
	426	else
	427	{
	428	DisplayOptions &= (~wxNO_CENTURY);
	429	}
	430	return 1;
	431	case wxDATE_ABBR:
	432	if ( action )
	433	DisplayOptions \|= wxDATE_ABBR;
	434	else
	435	{
	436	DisplayOptions &= (~wxDATE_ABBR);
	437	}
	438	return 1;
	439	default:
	440	return 0;
	441	}
	442	return 0;
	443	}
	444
	445	///////////////////////////////////////////////////////////////
	446	// Miscellaneous Routines
	447	///////////////////////////////////////////////////////////////
	448
	449	long wxDate::GetJulianDate( void ) const
	450	{
	451	return julian;
	452	}
	453
	454	int wxDate::GetDayOfYear( void ) const
	455	{
	456	wxDate temp( 1, 1, year );
	457
	458	return (int) (julian - temp.julian + 1);
	459	}
	460
	461
	462	bool wxDate::IsLeapYear( void ) const
	463	{
	464	return ( (year >= 1582) ?
	465	(year % 4 == 0 && year % 100 != 0 \|\| year % 400 == 0 ):
	466	(year % 4 == 0) );
	467	}
	468
	469	// Version 4.0 Extension to Public Interface - CDP
	470
	471	wxDate& wxDate::Set()
	472	{
2049ba38	473	//#ifdef __WXMSW__
c801d85f KB	474	#if 0
	475	struct _dosdate_t sDate;
	476	_dos_getdate(&sDate);
	477
	478	month = sDate.month;
	479	day = sDate.day;
	480	year = sDate.year;
	481
	482	mdy_to_julian();
	483	#else
	484	time_t now = time(NULL);
	485	struct tm *localTime = localtime(&now);
	486
	487	month = localTime->tm_mon + 1;
	488	day = localTime->tm_mday;
	489	year = localTime->tm_year + 1900;
	490
	491	mdy_to_julian ();
	492	#endif
	493	return *this;
	494	}
	495
	496	wxDate& wxDate::Set(
	497	int nMonth,
	498	int nDay,
	499	int nYear)
	500	{
	501	month = nMonth;
	502	year = nYear < 0 ? 9999 : nYear;
	503	year = nYear > 9999 ? 0 : nYear;
	504	day = nDay < GetDaysInMonth() ? nDay : GetDaysInMonth();
	505
	506	mdy_to_julian();
	507	return *this;
	508	}
	509
	510	wxDate &
	511	wxDate::Set(long j)
	512	{
	513	julian = j;
	514
	515	julian_to_mdy();
	516	return *this;
	517	}
	518
	519
	520	int wxDate::GetDaysInMonth()
	521	{
	522	return GauDays[month-1] + (month==2 && IsLeapYear());
	523	}
	524
	525	int wxDate::GetFirstDayOfMonth() const
	526	{
	527	return wxDate(month, 1, year).GetDayOfWeek();
	528	}
	529
	530	int wxDate::GetDay() const
	531	{
	532	return day;
	533	}
	534
	535	int wxDate::GetDayOfWeek() const
	536	{
	537	return day_of_week;
538	}
539
540	int wxDate::GetYear() const
541	{
542	return year;
543	}
544
545	int wxDate::GetMonth() const
546	{
547	return month;
548	}
549
550	wxDate& wxDate::AddWeeks(int nCount)
551	{
552	Set(julian + (long)nCount*7);
553	return *this;
554	}
555
556	wxDate& wxDate::AddMonths(int nCount)
557	{
558	month += nCount;
559
560	if (month < 1) {
561	month = 12;
562	year--;
563	}
564
565	if (month > 12) {
566	month = 1;
567	year++;
568	}
569	mdy_to_julian();
570	return *this;
571	}
572
573	wxDate& wxDate::AddYears(int nCount)
574	{
575	year += nCount;
576	mdy_to_julian();
577	return *this;
578	}
579
580	int wxDate::GetWeekOfMonth()
581	{
582	// Abs day includes the days from previous month that fills up
583	// the begin. of the week.
584	int nAbsDay = day + GetFirstDayOfMonth()-1;
585	return (nAbsDay-GetDayOfWeek())/7 + 1;
586	}
587
588	int wxDate::GetWeekOfYear()
589	{
590	wxDate doTemp(1, 1, year);
591	return (int)(((julian - doTemp.julian+1)/7) + 1);
592	}
593
594	wxDate wxDate::GetMonthStart()
595	{
596	return(wxDate(month, 1, year));
597	}
598
599	wxDate wxDate::GetMonthEnd()
600	{
601	return(wxDate(month+1, 1, year)-1);
602	}
603
604	wxDate wxDate::GetYearStart()
605	{
606	return(wxDate(1, 1, year));
607	}
608
609	wxDate wxDate::GetYearEnd()
610	{
611	return(wxDate(1, 1, year+1)-1);
612	}
613
614	wxString wxDate::GetMonthName()
615	{
616	return(FormatDate(wxMONTH));
617	}
618
619	wxString wxDate::GetDayOfWeekName()
620	{
621	return(FormatDate(wxDAY));
622	}
623
624	bool wxDate::IsBetween(const wxDate& first, const wxDate& second) const
625	{
626	return (julian >= first.julian && julian <= second.julian);
627	}
628
629	// This function is from NIHCL
debe6624	630	wxDate wxDate::Previous(int dayOfWeek) const
c801d85f KB	631	{
	632	int this_day_Of_Week, desired_day_Of_Week;
	633	long j;
	634
	635	// Set the desired and current day of week to start at 0 (Monday)
	636	// and end at 6 (Sunday).
	637
	638	desired_day_Of_Week = dayOfWeek - 1; // These functions return a value
	639	this_day_Of_Week = GetDayOfWeek() - 1; // from 1-7. Subtract 1 for 0-6.
	640	j = julian;
	641
	642	// Have to determine how many days difference from current day back to
	643	// desired, if any. Special calculation under the 'if' statement to
	644	// effect the wraparound counting from Monday (0) back to Sunday (6).
	645
	646	if (desired_day_Of_Week > this_day_Of_Week)
	647	this_day_Of_Week += 7 - desired_day_Of_Week;
	648	else
	649	this_day_Of_Week -= desired_day_Of_Week;
	650	j -= this_day_Of_Week; // Adjust j to set it at the desired day of week.
	651	return wxDate(j);
	652	}
	653
	654	#endif