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

#if wxUSE_TIMEDATE

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

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

#include "wx/ioswrap.h"

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

#define ABBR_LENGTH 3

static const wxChar *dayname[] = {
    _T("Sunday"), _T("Monday"), _T("Tuesday"), _T("Wednesday"),
    _T("Thursday"), _T("Friday"), _T("Saturday")
};

static const wxChar *mname[] = {
    _T("January"), _T("February"), _T("March"), _T("April"), _T("May"), _T("June"),
    _T("July"), _T("August"), _T("September"), _T("October"), _T("November"), _T("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 (wxStrcmp(dat, _T("TODAY")) == 0 || wxStrcmp(dat, _T("today")) == 0)
    {
        // Sets the current date
        Set();
    }
    else
    {
        wxChar buf[100];
        wxStrcpy(buf, WXSTRINGCAST dat);

        wxChar *save_ptr, *token = wxStrtok(buf,_T("/-"),&save_ptr);
        month = wxAtoi(token);
        day   = wxAtoi(wxStrtok((wxChar *) NULL,_T("/-"),&save_ptr));
        year  = wxAtoi(wxStrtok((wxChar *) NULL,_T(" "),&save_ptr));
    }

    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 (); // wxUSE_TIMEDATE
}

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

        wxChar *save_ptr, *token = wxStrtok(buf,_T("/-"),&save_ptr);
        month = wxAtoi(token);
        day   = wxAtoi(wxStrtok((wxChar *) NULL,_T("/-"),&save_ptr));
        year  = wxAtoi(wxStrtok((wxChar *) NULL,_T(" "),&save_ptr));
    }

    mdy_to_julian ();
}

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

#ifndef __SALFORDC__
wxDate::operator wxString( void )
{
    return FormatDate();
}
#endif

//////////////////////////////////////////////////////////////
// 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 WXDLLEXPORT operator <  (const wxDate &dt1, const wxDate &dt2)
{
    return ( dt1.julian < dt2.julian );
}

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

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

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

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

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


#if wxUSE_STD_IOSTREAM

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

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

#endif

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

void wxDate::julian_to_wday (void)
{
    // Correction by Peter Stadel <peters@jetcity.com>
	day_of_week = ((julian - 2) % 7L);
/*
    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;

    wxChar buf[40];

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

        case wxMONTH:
            if ( (month < 1) || (month > 12) )
                wxStrcpy(buf, _("invalid month"));
            else
                wxStrncpy( buf, wxGetTranslation(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) )
            {
                wxStrcpy(buf, _("invalid date"));
                return wxString(buf);
            }
            wxStrncpy( buf, wxGetTranslation(dayname[day_of_week-1]),
		       (DisplayOptions & wxDATE_ABBR) ? ABBR_LENGTH : 9);
            wxStrcat( buf, _T(", "));
            wxStrncat( buf, wxGetTranslation(mname[month-1]),
		       (DisplayOptions & wxDATE_ABBR) ? ABBR_LENGTH : 9);
            wxStrcat( buf, _T(" "));
            wxSprintf( buf+wxStrlen(buf), _T("%d, %d"), day, abs(year) );
            if (year < 0)
                wxStrcat(buf,_(" B.C."));
            return wxString(buf);

        case wxEUROPEAN:
            if ( (month < 1) || (month > 12) || (day_of_week < 0) ||
                    (day_of_week > 7) )
            {
                wxStrcpy(buf, _("invalid date"));
                return wxString(buf);
            }
            wxSprintf(buf,_T("%d "),  day);
            wxStrncat(buf, wxGetTranslation(mname[month-1]),
                    (DisplayOptions & wxDATE_ABBR) ? ABBR_LENGTH : 9);
            wxSprintf( buf+wxStrlen(buf), _T(" %d"), abs(year) );
            if (year < 0)
                wxStrcat(buf, _(" B.C."));
            return wxString(buf);

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

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