]> git.saurik.com Git - wxWidgets.git/blame - src/common/datetime.cpp
using CLSCTX_ALL fails with Microsoft Office applications, correct the last change...
[wxWidgets.git] / src / common / datetime.cpp
CommitLineData
1ef54dcf 1///////////////////////////////////////////////////////////////////////////////
96531a71 2// Name: src/common/datetime.cpp
0979c962
VZ
3// Purpose: implementation of time/date related classes
4// Author: Vadim Zeitlin
5// Modified by:
6// Created: 11.05.99
7// RCS-ID: $Id$
1ef54dcf
VZ
8// Copyright: (c) 1999 Vadim Zeitlin <zeitlin@dptmaths.ens-cachan.fr>
9// parts of code taken from sndcal library by Scott E. Lee:
10//
11// Copyright 1993-1995, Scott E. Lee, all rights reserved.
12// Permission granted to use, copy, modify, distribute and sell
13// so long as the above copyright and this permission statement
14// are retained in all copies.
15//
65571936 16// Licence: wxWindows licence
1ef54dcf
VZ
17///////////////////////////////////////////////////////////////////////////////
18
19/*
20 * Implementation notes:
21 *
22 * 1. the time is stored as a 64bit integer containing the signed number of
299fcbfe
VZ
23 * milliseconds since Jan 1. 1970 (the Unix Epoch) - so it is always
24 * expressed in GMT.
1ef54dcf
VZ
25 *
26 * 2. the range is thus something about 580 million years, but due to current
27 * algorithms limitations, only dates from Nov 24, 4714BC are handled
28 *
29 * 3. standard ANSI C functions are used to do time calculations whenever
30 * possible, i.e. when the date is in the range Jan 1, 1970 to 2038
31 *
32 * 4. otherwise, the calculations are done by converting the date to/from JDN
33 * first (the range limitation mentioned above comes from here: the
34 * algorithm used by Scott E. Lee's code only works for positive JDNs, more
35 * or less)
36 *
299fcbfe
VZ
37 * 5. the object constructed for the given DD-MM-YYYY HH:MM:SS corresponds to
38 * this moment in local time and may be converted to the object
39 * corresponding to the same date/time in another time zone by using
40 * ToTimezone()
41 *
42 * 6. the conversions to the current (or any other) timezone are done when the
43 * internal time representation is converted to the broken-down one in
44 * wxDateTime::Tm.
1ef54dcf 45 */
0979c962
VZ
46
47// ============================================================================
48// declarations
49// ============================================================================
50
51// ----------------------------------------------------------------------------
52// headers
53// ----------------------------------------------------------------------------
54
0979c962
VZ
55// For compilers that support precompilation, includes "wx.h".
56#include "wx/wxprec.h"
57
58#ifdef __BORLANDC__
59 #pragma hdrstop
60#endif
61
1e6feb95
VZ
62#if !defined(wxUSE_DATETIME) || wxUSE_DATETIME
63
0979c962 64#ifndef WX_PRECOMP
57bd4c60
WS
65 #ifdef __WXMSW__
66 #include "wx/msw/wrapwin.h"
67 #endif
0979c962 68 #include "wx/string.h"
0979c962 69 #include "wx/log.h"
88a7a4e1 70 #include "wx/intl.h"
bb90a3e6 71 #include "wx/stopwatch.h" // for wxGetLocalTimeMillis()
02761f6c 72 #include "wx/module.h"
0bf751e7 73 #include "wx/crt.h"
0979c962
VZ
74#endif // WX_PRECOMP
75
fcc3d7cb 76#include "wx/thread.h"
cd0b1709 77#include "wx/tokenzr.h"
fcc3d7cb 78
ff0ea71c
GT
79#include <ctype.h>
80
64f9c100 81#ifdef __WINDOWS__
64f9c100 82 #include <winnls.h>
74b99d0f
WS
83 #ifndef __WXWINCE__
84 #include <locale.h>
85 #endif
64f9c100
VS
86#endif
87
0979c962
VZ
88#include "wx/datetime.h"
89
bd4a25bc
JS
90const long wxDateTime::TIME_T_FACTOR = 1000l;
91
cb73e600
SC
92#if wxUSE_EXTENDED_RTTI
93
94template<> void wxStringReadValue(const wxString &s , wxDateTime &data )
95{
1fcca711 96 data.ParseFormat(s,"%Y-%m-%d %H:%M:%S", NULL);
cb73e600
SC
97}
98
99template<> void wxStringWriteValue(wxString &s , const wxDateTime &data )
100{
c20d5805 101 s = data.Format("%Y-%m-%d %H:%M:%S");
cb73e600
SC
102}
103
8805dbab 104wxCUSTOM_TYPE_INFO(wxDateTime, wxToStringConverter<wxDateTime> , wxFromStringConverter<wxDateTime>)
cb73e600 105
c20d5805 106#endif // wxUSE_EXTENDED_RTTI
cb73e600
SC
107
108//
f0f951fa
VZ
109// ----------------------------------------------------------------------------
110// conditional compilation
111// ----------------------------------------------------------------------------
6de20863 112
2423ef22
VZ
113#if defined(HAVE_STRPTIME) && defined(__GLIBC__) && \
114 ((__GLIBC__ == 2) && (__GLIBC_MINOR__ == 0))
f0f951fa
VZ
115 // glibc 2.0.7 strptime() is broken - the following snippet causes it to
116 // crash (instead of just failing):
117 //
118 // strncpy(buf, "Tue Dec 21 20:25:40 1999", 128);
119 // strptime(buf, "%x", &tm);
120 //
121 // so don't use it
122 #undef HAVE_STRPTIME
123#endif // broken strptime()
124
dcbd3762
DE
125#if defined(HAVE_STRPTIME) && defined(__DARWIN__) && defined(_MSL_USING_MW_C_HEADERS) && _MSL_USING_MW_C_HEADERS
126 // configure detects strptime as linkable because it's in the OS X
127 // System library but MSL headers don't declare it.
7347d453
DE
128
129// char *strptime(const char *, const char *, struct tm *);
130 // However, we DON'T want to just provide it here because we would
131 // crash and/or overwrite data when strptime from OS X tries
132 // to fill in MW's struct tm which is two fields shorter (no TZ stuff)
133 // So for now let's just say we don't have strptime
134 #undef HAVE_STRPTIME
dcbd3762
DE
135#endif
136
31907d03
SC
137#if defined(__MWERKS__) && wxUSE_UNICODE
138 #include <wtime.h>
139#endif
140
0779cc9a 141#if !defined(WX_TIMEZONE) && !defined(WX_GMTOFF_IN_TM)
6a27c749
WS
142 #if defined(__WXPALMOS__)
143 #define WX_GMTOFF_IN_TM
144 #elif defined(__BORLANDC__) || defined(__MINGW32__) || defined(__VISAGECPP__)
f0f951fa 145 #define WX_TIMEZONE _timezone
8208e181 146 #elif defined(__MWERKS__)
f6bcfd97 147 long wxmw_timezone = 28800;
c4e1b7f2 148 #define WX_TIMEZONE wxmw_timezone
5283098e 149 #elif defined(__DJGPP__) || defined(__WINE__)
713a0efc 150 #include <sys/timeb.h>
c4e1b7f2 151 #include <values.h>
713a0efc
VS
152 static long wxGetTimeZone()
153 {
c4e1b7f2
VS
154 static long timezone = MAXLONG; // invalid timezone
155 if (timezone == MAXLONG)
156 {
157 struct timeb tb;
158 ftime(&tb);
159 timezone = tb.timezone;
160 }
161 return timezone;
713a0efc
VS
162 }
163 #define WX_TIMEZONE wxGetTimeZone()
0779cc9a
GD
164 #elif defined(__DARWIN__)
165 #define WX_GMTOFF_IN_TM
e09080ec 166 #elif defined(__WXWINCE__) && defined(__VISUALC8__)
44061d36 167 // _timezone is not present in dynamic run-time library
b667edae 168 #if 0
791b07a3
JS
169 // Solution (1): use the function equivalent of _timezone
170 static long wxGetTimeZone()
171 {
172 static long s_Timezone = MAXLONG; // invalid timezone
173 if (s_Timezone == MAXLONG)
174 {
175 int t;
176 _get_timezone(& t);
177 s_Timezone = (long) t;
178 }
179 return s_Timezone;
180 }
181 #define WX_TIMEZONE wxGetTimeZone()
b667edae 182 #elif 1
791b07a3 183 // Solution (2): using GetTimeZoneInformation
44061d36
JS
184 static long wxGetTimeZone()
185 {
186 static long timezone = MAXLONG; // invalid timezone
187 if (timezone == MAXLONG)
188 {
189 TIME_ZONE_INFORMATION tzi;
190 ::GetTimeZoneInformation(&tzi);
191 timezone = tzi.Bias;
192 }
193 return timezone;
194 }
195 #define WX_TIMEZONE wxGetTimeZone()
196 #else
791b07a3 197 // Old method using _timezone: this symbol doesn't exist in the dynamic run-time library (i.e. using /MD)
e09080ec 198 #define WX_TIMEZONE _timezone
44061d36 199 #endif
f0f951fa
VZ
200 #else // unknown platform - try timezone
201 #define WX_TIMEZONE timezone
202 #endif
0779cc9a 203#endif // !WX_TIMEZONE && !WX_GMTOFF_IN_TM
c25a510b 204
bb7afa49
VZ
205// everyone has strftime except Win CE unless VC8 is used
206#if !defined(__WXWINCE__) || defined(__VISUALC8__)
207 #define HAVE_STRFTIME
208#endif
209
e09080ec
VZ
210// NB: VC8 safe time functions could/should be used for wxMSW as well probably
211#if defined(__WXWINCE__) && defined(__VISUALC8__)
212
213struct tm *wxLocaltime_r(const time_t *t, struct tm* tm)
214{
215 __time64_t t64 = *t;
216 return _localtime64_s(tm, &t64) == 0 ? tm : NULL;
217}
218
219struct tm *wxGmtime_r(const time_t* t, struct tm* tm)
220{
221 __time64_t t64 = *t;
222 return _gmtime64_s(tm, &t64) == 0 ? tm : NULL;
223}
224
225#else // !wxWinCE with VC8
226
5b52a684 227#if (!defined(HAVE_LOCALTIME_R) || !defined(HAVE_GMTIME_R)) && wxUSE_THREADS && !defined(__WINDOWS__)
cf44a61c
SN
228static wxMutex timeLock;
229#endif
230
231#ifndef HAVE_LOCALTIME_R
232struct tm *wxLocaltime_r(const time_t* ticks, struct tm* temp)
233{
234#if wxUSE_THREADS && !defined(__WINDOWS__)
235 // No need to waste time with a mutex on windows since it's using
236 // thread local storage for localtime anyway.
6f721331 237 wxMutexLocker locker(timeLock);
cf44a61c 238#endif
55809d13
VZ
239
240 // Borland CRT crashes when passed 0 ticks for some reason, see SF bug 1704438
241#ifdef __BORLANDC__
242 if ( !*ticks )
243 return NULL;
244#endif
245
246 const tm * const t = localtime(ticks);
247 if ( !t )
248 return NULL;
249
250 memcpy(temp, t, sizeof(struct tm));
cf44a61c
SN
251 return temp;
252}
e09080ec 253#endif // !HAVE_LOCALTIME_R
cf44a61c
SN
254
255#ifndef HAVE_GMTIME_R
256struct tm *wxGmtime_r(const time_t* ticks, struct tm* temp)
257{
258#if wxUSE_THREADS && !defined(__WINDOWS__)
259 // No need to waste time with a mutex on windows since it's
260 // using thread local storage for gmtime anyway.
6f721331 261 wxMutexLocker locker(timeLock);
cf44a61c 262#endif
55809d13
VZ
263
264#ifdef __BORLANDC__
265 if ( !*ticks )
266 return NULL;
267#endif
268
269 const tm * const t = gmtime(ticks);
270 if ( !t )
271 return NULL;
272
cf44a61c
SN
273 memcpy(temp, gmtime(ticks), sizeof(struct tm));
274 return temp;
275}
e09080ec
VZ
276#endif // !HAVE_GMTIME_R
277
278#endif // wxWinCE with VC8/other platforms
cf44a61c 279
384223b3
VZ
280// ----------------------------------------------------------------------------
281// macros
282// ----------------------------------------------------------------------------
283
284// debugging helper: just a convenient replacement of wxCHECK()
637b7e4f
VZ
285#define wxDATETIME_CHECK(expr, msg) \
286 wxCHECK2_MSG(expr, *this = wxInvalidDateTime; return *this, msg)
384223b3 287
4f6aed9c
VZ
288// ----------------------------------------------------------------------------
289// private classes
290// ----------------------------------------------------------------------------
291
292class wxDateTimeHolidaysModule : public wxModule
293{
294public:
295 virtual bool OnInit()
296 {
297 wxDateTimeHolidayAuthority::AddAuthority(new wxDateTimeWorkDays);
298
68379eaf 299 return true;
4f6aed9c
VZ
300 }
301
302 virtual void OnExit()
303 {
304 wxDateTimeHolidayAuthority::ClearAllAuthorities();
df5168c4 305 wxDateTimeHolidayAuthority::ms_authorities.clear();
4f6aed9c
VZ
306 }
307
308private:
309 DECLARE_DYNAMIC_CLASS(wxDateTimeHolidaysModule)
310};
311
312IMPLEMENT_DYNAMIC_CLASS(wxDateTimeHolidaysModule, wxModule)
313
b76b015e
VZ
314// ----------------------------------------------------------------------------
315// constants
316// ----------------------------------------------------------------------------
317
e6ec579c 318// some trivial ones
fcc3d7cb
VZ
319static const int MONTHS_IN_YEAR = 12;
320
df05cdc5
VZ
321static const int SEC_PER_MIN = 60;
322
323static const int MIN_PER_HOUR = 60;
324
325static const int HOURS_PER_DAY = 24;
fcc3d7cb 326
e6ec579c
VZ
327static const long SECONDS_PER_DAY = 86400l;
328
df05cdc5
VZ
329static const int DAYS_PER_WEEK = 7;
330
e6ec579c
VZ
331static const long MILLISECONDS_PER_DAY = 86400000l;
332
333// this is the integral part of JDN of the midnight of Jan 1, 1970
334// (i.e. JDN(Jan 1, 1970) = 2440587.5)
cd0b1709 335static const long EPOCH_JDN = 2440587l;
b76b015e 336
9ffaedfc
VZ
337// used only in asserts
338#ifdef __WXDEBUG__
1ef54dcf
VZ
339// the date of JDN -0.5 (as we don't work with fractional parts, this is the
340// reference date for us) is Nov 24, 4714BC
341static const int JDN_0_YEAR = -4713;
342static const int JDN_0_MONTH = wxDateTime::Nov;
343static const int JDN_0_DAY = 24;
9ffaedfc 344#endif // __WXDEBUG__
1ef54dcf
VZ
345
346// the constants used for JDN calculations
cd0b1709
VZ
347static const long JDN_OFFSET = 32046l;
348static const long DAYS_PER_5_MONTHS = 153l;
349static const long DAYS_PER_4_YEARS = 1461l;
350static const long DAYS_PER_400_YEARS = 146097l;
1ef54dcf 351
f0f951fa
VZ
352// this array contains the cumulated number of days in all previous months for
353// normal and leap years
354static const wxDateTime::wxDateTime_t gs_cumulatedDays[2][MONTHS_IN_YEAR] =
355{
356 { 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334 },
357 { 0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335 }
358};
359
fcc3d7cb 360// ----------------------------------------------------------------------------
2ef31e80
VZ
361// global data
362// ----------------------------------------------------------------------------
363
71ebd60b
VZ
364const char *wxDefaultDateTimeFormat = "%c";
365const char *wxDefaultTimeSpanFormat = "%H:%M:%S";
1aaf88d2 366
384223b3
VZ
367// in the fine tradition of ANSI C we use our equivalent of (time_t)-1 to
368// indicate an invalid wxDateTime object
56d0c5a6 369const wxDateTime wxDefaultDateTime;
2ef31e80
VZ
370
371wxDateTime::Country wxDateTime::ms_country = wxDateTime::Country_Unknown;
372
b76b015e
VZ
373// ----------------------------------------------------------------------------
374// private functions
375// ----------------------------------------------------------------------------
376
4f6aed9c
VZ
377// debugger helper: shows what the date really is
378#ifdef __WXDEBUG__
77fa3d82 379extern const char *wxDumpDate(const wxDateTime* dt)
4f6aed9c 380{
77fa3d82 381 static char buf[128];
4f6aed9c 382
77fa3d82
VZ
383 wxString fmt(dt->Format("%Y-%m-%d (%a) %H:%M:%S"));
384 wxStrncpy(buf, fmt + " (" + dt->GetValue().ToString() + " ticks)",
385 WXSIZEOF(buf));
4f6aed9c
VZ
386
387 return buf;
388}
389#endif // Debug
390
fcc3d7cb
VZ
391// get the number of days in the given month of the given year
392static inline
393wxDateTime::wxDateTime_t GetNumOfDaysInMonth(int year, wxDateTime::Month month)
394{
e6ec579c
VZ
395 // the number of days in month in Julian/Gregorian calendar: the first line
396 // is for normal years, the second one is for the leap ones
397 static wxDateTime::wxDateTime_t daysInMonth[2][MONTHS_IN_YEAR] =
398 {
399 { 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 },
400 { 31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 }
401 };
402
403 return daysInMonth[wxDateTime::IsLeapYear(year)][month];
fcc3d7cb
VZ
404}
405
c5432233
VZ
406// returns the time zone in the C sense, i.e. the difference UTC - local
407// (in seconds)
fcc3d7cb
VZ
408static int GetTimeZone()
409{
68379eaf
WS
410 // set to true when the timezone is set
411 static bool s_timezoneSet = false;
0779cc9a 412 static long gmtoffset = LONG_MAX; // invalid timezone
c5432233 413
a452689b 414 // ensure that the timezone variable is set by calling wxLocaltime_r
fcc3d7cb
VZ
415 if ( !s_timezoneSet )
416 {
a452689b
SN
417 // just call wxLocaltime_r() instead of figuring out whether this
418 // system supports tzset(), _tzset() or something else
c5432233 419 time_t t = 0;
3d561414 420 struct tm tm;
fcc3d7cb 421
3d561414 422 wxLocaltime_r(&t, &tm);
68379eaf 423 s_timezoneSet = true;
c5432233 424
44c930eb 425#ifdef WX_GMTOFF_IN_TM
c5432233
VZ
426 // note that GMT offset is the opposite of time zone and so to return
427 // consistent results in both WX_GMTOFF_IN_TM and !WX_GMTOFF_IN_TM
428 // cases we have to negate it
3d561414 429 gmtoffset = -tm.tm_gmtoff;
44c930eb
JG
430#else // !WX_GMTOFF_IN_TM
431 gmtoffset = WX_TIMEZONE;
432#endif // WX_GMTOFF_IN_TM/!WX_GMTOFF_IN_TM
fcc3d7cb
VZ
433 }
434
0779cc9a 435 return (int)gmtoffset;
fcc3d7cb
VZ
436}
437
e6ec579c 438// return the integral part of the JDN for the midnight of the given date (to
1ef54dcf
VZ
439// get the real JDN you need to add 0.5, this is, in fact, JDN of the
440// noon of the previous day)
e6ec579c
VZ
441static long GetTruncatedJDN(wxDateTime::wxDateTime_t day,
442 wxDateTime::Month mon,
443 int year)
444{
1ef54dcf
VZ
445 // CREDIT: code below is by Scott E. Lee (but bugs are mine)
446
447 // check the date validity
448 wxASSERT_MSG(
449 (year > JDN_0_YEAR) ||
450 ((year == JDN_0_YEAR) && (mon > JDN_0_MONTH)) ||
451 ((year == JDN_0_YEAR) && (mon == JDN_0_MONTH) && (day >= JDN_0_DAY)),
452 _T("date out of range - can't convert to JDN")
453 );
454
455 // make the year positive to avoid problems with negative numbers division
456 year += 4800;
457
458 // months are counted from March here
459 int month;
460 if ( mon >= wxDateTime::Mar )
e6ec579c 461 {
1ef54dcf 462 month = mon - 2;
e6ec579c 463 }
1ef54dcf 464 else
e6ec579c 465 {
1ef54dcf
VZ
466 month = mon + 10;
467 year--;
468 }
e6ec579c 469
1ef54dcf
VZ
470 // now we can simply add all the contributions together
471 return ((year / 100) * DAYS_PER_400_YEARS) / 4
472 + ((year % 100) * DAYS_PER_4_YEARS) / 4
473 + (month * DAYS_PER_5_MONTHS + 2) / 5
474 + day
475 - JDN_OFFSET;
e6ec579c
VZ
476}
477
bb7afa49
VZ
478#ifdef HAVE_STRFTIME
479
2423ef22 480// this function is a wrapper around strftime(3) adding error checking
12e82477 481static wxString CallStrftime(const wxString& format, const tm* tm)
b76b015e 482{
68ee7c47 483 wxChar buf[4096];
594588aa
MW
484 // Create temp wxString here to work around mingw/cygwin bug 1046059
485 // http://sourceforge.net/tracker/?func=detail&atid=102435&aid=1046059&group_id=2435
486 wxString s;
487
ba9bbf13 488 if ( !wxStrftime(buf, WXSIZEOF(buf), format, tm) )
b76b015e 489 {
adec277f 490 // if the format is valid, buffer must be too small?
b76b015e 491 wxFAIL_MSG(_T("strftime() failed"));
adec277f
VZ
492
493 buf[0] = '\0';
b76b015e
VZ
494 }
495
594588aa
MW
496 s = buf;
497 return s;
b76b015e 498}
bb7afa49
VZ
499
500#endif // HAVE_STRFTIME
b76b015e 501
2423ef22
VZ
502#ifdef HAVE_STRPTIME
503
f536f005
VZ
504#if wxUSE_UNIX && !defined(HAVE_STRPTIME_DECL)
505 // configure detected that we had strptime() but not its declaration,
506 // provide it ourselves
e2620fda
VZ
507 extern "C" char *strptime(const char *, const char *, struct tm *);
508#endif
509
2423ef22 510// Unicode-friendly strptime() wrapper
71ebd60b
VZ
511static const wxStringCharType *
512CallStrptime(const wxStringCharType *input, const char *fmt, tm *tm)
2423ef22
VZ
513{
514 // the problem here is that strptime() returns pointer into the string we
515 // passed to it while we're really interested in the pointer into the
516 // original, Unicode, string so we try to transform the pointer back
71ebd60b 517#if wxUSE_UNICODE_WCHAR
2423ef22
VZ
518 wxCharBuffer inputMB(wxConvertWX2MB(input));
519#else // ASCII
520 const char * const inputMB = input;
521#endif // Unicode/Ascii
522
523 const char *result = strptime(inputMB, fmt, tm);
524 if ( !result )
525 return NULL;
526
71ebd60b 527#if wxUSE_UNICODE_WCHAR
2423ef22
VZ
528 // FIXME: this is wrong in presence of surrogates &c
529 return input + (result - inputMB.data());
530#else // ASCII
531 return result;
532#endif // Unicode/Ascii
533}
534
535#endif // HAVE_STRPTIME
536
2f02cb89
VZ
537// if year and/or month have invalid values, replace them with the current ones
538static void ReplaceDefaultYearMonthWithCurrent(int *year,
539 wxDateTime::Month *month)
540{
541 struct tm *tmNow = NULL;
a452689b 542 struct tm tmstruct;
2f02cb89
VZ
543
544 if ( *year == wxDateTime::Inv_Year )
545 {
a452689b 546 tmNow = wxDateTime::GetTmNow(&tmstruct);
2f02cb89
VZ
547
548 *year = 1900 + tmNow->tm_year;
549 }
550
551 if ( *month == wxDateTime::Inv_Month )
552 {
553 if ( !tmNow )
a452689b 554 tmNow = wxDateTime::GetTmNow(&tmstruct);
2f02cb89
VZ
555
556 *month = (wxDateTime::Month)tmNow->tm_mon;
557 }
558}
559
f0f951fa
VZ
560// fll the struct tm with default values
561static void InitTm(struct tm& tm)
562{
563 // struct tm may have etxra fields (undocumented and with unportable
564 // names) which, nevertheless, must be set to 0
565 memset(&tm, 0, sizeof(struct tm));
566
567 tm.tm_mday = 1; // mday 0 is invalid
568 tm.tm_year = 76; // any valid year
569 tm.tm_isdst = -1; // auto determine
570}
571
cd0b1709
VZ
572// parsing helpers
573// ---------------
574
575// return the month if the string is a month name or Inv_Month otherwise
f0f951fa 576static wxDateTime::Month GetMonthFromName(const wxString& name, int flags)
cd0b1709
VZ
577{
578 wxDateTime::Month mon;
579 for ( mon = wxDateTime::Jan; mon < wxDateTime::Inv_Month; wxNextMonth(mon) )
580 {
f0f951fa
VZ
581 // case-insensitive comparison either one of or with both abbreviated
582 // and not versions
583 if ( flags & wxDateTime::Name_Full )
cd0b1709 584 {
f0f951fa
VZ
585 if ( name.CmpNoCase(wxDateTime::
586 GetMonthName(mon, wxDateTime::Name_Full)) == 0 )
587 {
588 break;
589 }
590 }
591
592 if ( flags & wxDateTime::Name_Abbr )
593 {
594 if ( name.CmpNoCase(wxDateTime::
595 GetMonthName(mon, wxDateTime::Name_Abbr)) == 0 )
596 {
597 break;
598 }
cd0b1709
VZ
599 }
600 }
601
602 return mon;
603}
604
605// return the weekday if the string is a weekday name or Inv_WeekDay otherwise
f0f951fa 606static wxDateTime::WeekDay GetWeekDayFromName(const wxString& name, int flags)
cd0b1709
VZ
607{
608 wxDateTime::WeekDay wd;
609 for ( wd = wxDateTime::Sun; wd < wxDateTime::Inv_WeekDay; wxNextWDay(wd) )
610 {
f0f951fa
VZ
611 // case-insensitive comparison either one of or with both abbreviated
612 // and not versions
613 if ( flags & wxDateTime::Name_Full )
cd0b1709 614 {
f0f951fa
VZ
615 if ( name.CmpNoCase(wxDateTime::
616 GetWeekDayName(wd, wxDateTime::Name_Full)) == 0 )
617 {
618 break;
619 }
620 }
621
622 if ( flags & wxDateTime::Name_Abbr )
623 {
624 if ( name.CmpNoCase(wxDateTime::
625 GetWeekDayName(wd, wxDateTime::Name_Abbr)) == 0 )
626 {
627 break;
628 }
cd0b1709
VZ
629 }
630 }
631
632 return wd;
633}
634
a452689b
SN
635/* static */
636struct tm *wxDateTime::GetTmNow(struct tm *tmstruct)
637{
638 time_t t = GetTimeNow();
639 return wxLocaltime_r(&t, tmstruct);
640}
641
f6bcfd97 642// scans all digits (but no more than len) and returns the resulting number
71ebd60b
VZ
643static bool GetNumericToken(size_t len,
644 const wxStringCharType*& p,
645 unsigned long *number)
f0f951fa 646{
f6bcfd97 647 size_t n = 1;
f0f951fa
VZ
648 wxString s;
649 while ( wxIsdigit(*p) )
650 {
651 s += *p++;
f6bcfd97
BP
652
653 if ( len && ++n > len )
654 break;
f0f951fa
VZ
655 }
656
bb8a8478 657 return !s.empty() && s.ToULong(number);
f0f951fa
VZ
658}
659
660// scans all alphabetic characters and returns the resulting string
71ebd60b 661static wxString GetAlphaToken(const wxStringCharType*& p)
f0f951fa
VZ
662{
663 wxString s;
664 while ( wxIsalpha(*p) )
665 {
666 s += *p++;
667 }
668
669 return s;
670}
671
0979c962
VZ
672// ============================================================================
673// implementation of wxDateTime
674// ============================================================================
675
b76b015e
VZ
676// ----------------------------------------------------------------------------
677// struct Tm
678// ----------------------------------------------------------------------------
679
680wxDateTime::Tm::Tm()
681{
682 year = (wxDateTime_t)wxDateTime::Inv_Year;
683 mon = wxDateTime::Inv_Month;
684 mday = 0;
e6ec579c 685 hour = min = sec = msec = 0;
b76b015e
VZ
686 wday = wxDateTime::Inv_WeekDay;
687}
688
299fcbfe
VZ
689wxDateTime::Tm::Tm(const struct tm& tm, const TimeZone& tz)
690 : m_tz(tz)
b76b015e 691{
e6ec579c 692 msec = 0;
907173e5
WS
693 sec = (wxDateTime::wxDateTime_t)tm.tm_sec;
694 min = (wxDateTime::wxDateTime_t)tm.tm_min;
695 hour = (wxDateTime::wxDateTime_t)tm.tm_hour;
696 mday = (wxDateTime::wxDateTime_t)tm.tm_mday;
fcc3d7cb 697 mon = (wxDateTime::Month)tm.tm_mon;
b76b015e 698 year = 1900 + tm.tm_year;
bb8a8478
WS
699 wday = (wxDateTime::wxDateTime_t)tm.tm_wday;
700 yday = (wxDateTime::wxDateTime_t)tm.tm_yday;
b76b015e
VZ
701}
702
703bool wxDateTime::Tm::IsValid() const
704{
705 // we allow for the leap seconds, although we don't use them (yet)
fcc3d7cb 706 return (year != wxDateTime::Inv_Year) && (mon != wxDateTime::Inv_Month) &&
c5a1681b 707 (mday <= GetNumOfDaysInMonth(year, mon)) &&
e6ec579c 708 (hour < 24) && (min < 60) && (sec < 62) && (msec < 1000);
b76b015e
VZ
709}
710
711void wxDateTime::Tm::ComputeWeekDay()
712{
c5a1681b
VZ
713 // compute the week day from day/month/year: we use the dumbest algorithm
714 // possible: just compute our JDN and then use the (simple to derive)
715 // formula: weekday = (JDN + 1.5) % 7
5a572f6c 716 wday = (wxDateTime::wxDateTime_t)((GetTruncatedJDN(mday, mon, year) + 2) % 7);
b76b015e
VZ
717}
718
e6ec579c 719void wxDateTime::Tm::AddMonths(int monDiff)
fcc3d7cb
VZ
720{
721 // normalize the months field
722 while ( monDiff < -mon )
723 {
724 year--;
725
726 monDiff += MONTHS_IN_YEAR;
727 }
728
2ef31e80 729 while ( monDiff + mon >= MONTHS_IN_YEAR )
fcc3d7cb
VZ
730 {
731 year++;
239446b4
VZ
732
733 monDiff -= MONTHS_IN_YEAR;
fcc3d7cb
VZ
734 }
735
736 mon = (wxDateTime::Month)(mon + monDiff);
737
e6ec579c 738 wxASSERT_MSG( mon >= 0 && mon < MONTHS_IN_YEAR, _T("logic error") );
4f6aed9c
VZ
739
740 // NB: we don't check here that the resulting date is valid, this function
741 // is private and the caller must check it if needed
fcc3d7cb
VZ
742}
743
e6ec579c 744void wxDateTime::Tm::AddDays(int dayDiff)
fcc3d7cb
VZ
745{
746 // normalize the days field
9d9b7755 747 while ( dayDiff + mday < 1 )
fcc3d7cb
VZ
748 {
749 AddMonths(-1);
750
9d9b7755 751 dayDiff += GetNumOfDaysInMonth(year, mon);
fcc3d7cb
VZ
752 }
753
907173e5 754 mday = (wxDateTime::wxDateTime_t)( mday + dayDiff );
fcc3d7cb
VZ
755 while ( mday > GetNumOfDaysInMonth(year, mon) )
756 {
757 mday -= GetNumOfDaysInMonth(year, mon);
758
759 AddMonths(1);
760 }
761
762 wxASSERT_MSG( mday > 0 && mday <= GetNumOfDaysInMonth(year, mon),
763 _T("logic error") );
764}
765
766// ----------------------------------------------------------------------------
767// class TimeZone
768// ----------------------------------------------------------------------------
769
770wxDateTime::TimeZone::TimeZone(wxDateTime::TZ tz)
771{
772 switch ( tz )
773 {
774 case wxDateTime::Local:
299fcbfe
VZ
775 // get the offset from C RTL: it returns the difference GMT-local
776 // while we want to have the offset _from_ GMT, hence the '-'
777 m_offset = -GetTimeZone();
fcc3d7cb
VZ
778 break;
779
780 case wxDateTime::GMT_12:
781 case wxDateTime::GMT_11:
782 case wxDateTime::GMT_10:
783 case wxDateTime::GMT_9:
784 case wxDateTime::GMT_8:
785 case wxDateTime::GMT_7:
786 case wxDateTime::GMT_6:
787 case wxDateTime::GMT_5:
788 case wxDateTime::GMT_4:
789 case wxDateTime::GMT_3:
790 case wxDateTime::GMT_2:
791 case wxDateTime::GMT_1:
299fcbfe 792 m_offset = -3600*(wxDateTime::GMT0 - tz);
fcc3d7cb
VZ
793 break;
794
795 case wxDateTime::GMT0:
796 case wxDateTime::GMT1:
797 case wxDateTime::GMT2:
798 case wxDateTime::GMT3:
799 case wxDateTime::GMT4:
800 case wxDateTime::GMT5:
801 case wxDateTime::GMT6:
802 case wxDateTime::GMT7:
803 case wxDateTime::GMT8:
804 case wxDateTime::GMT9:
805 case wxDateTime::GMT10:
806 case wxDateTime::GMT11:
807 case wxDateTime::GMT12:
34f90a1c 808 case wxDateTime::GMT13:
299fcbfe 809 m_offset = 3600*(tz - wxDateTime::GMT0);
fcc3d7cb
VZ
810 break;
811
812 case wxDateTime::A_CST:
813 // Central Standard Time in use in Australia = UTC + 9.5
d26adb9d 814 m_offset = 60l*(9*MIN_PER_HOUR + MIN_PER_HOUR/2);
fcc3d7cb
VZ
815 break;
816
817 default:
818 wxFAIL_MSG( _T("unknown time zone") );
819 }
820}
821
b76b015e
VZ
822// ----------------------------------------------------------------------------
823// static functions
824// ----------------------------------------------------------------------------
825
826/* static */
827bool wxDateTime::IsLeapYear(int year, wxDateTime::Calendar cal)
828{
2f02cb89
VZ
829 if ( year == Inv_Year )
830 year = GetCurrentYear();
831
b76b015e
VZ
832 if ( cal == Gregorian )
833 {
834 // in Gregorian calendar leap years are those divisible by 4 except
835 // those divisible by 100 unless they're also divisible by 400
836 // (in some countries, like Russia and Greece, additional corrections
837 // exist, but they won't manifest themselves until 2700)
838 return (year % 4 == 0) && ((year % 100 != 0) || (year % 400 == 0));
839 }
840 else if ( cal == Julian )
841 {
842 // in Julian calendar the rule is simpler
843 return year % 4 == 0;
844 }
845 else
846 {
847 wxFAIL_MSG(_T("unknown calendar"));
848
68379eaf 849 return false;
b76b015e
VZ
850 }
851}
852
fcc3d7cb
VZ
853/* static */
854int wxDateTime::GetCentury(int year)
855{
856 return year > 0 ? year / 100 : year / 100 - 1;
857}
858
b76b015e
VZ
859/* static */
860int wxDateTime::ConvertYearToBC(int year)
861{
862 // year 0 is BC 1
863 return year > 0 ? year : year - 1;
864}
865
866/* static */
867int wxDateTime::GetCurrentYear(wxDateTime::Calendar cal)
868{
869 switch ( cal )
870 {
871 case Gregorian:
872 return Now().GetYear();
873
874 case Julian:
875 wxFAIL_MSG(_T("TODO"));
876 break;
877
878 default:
879 wxFAIL_MSG(_T("unsupported calendar"));
880 break;
881 }
882
883 return Inv_Year;
884}
885
886/* static */
887wxDateTime::Month wxDateTime::GetCurrentMonth(wxDateTime::Calendar cal)
888{
889 switch ( cal )
890 {
891 case Gregorian:
892 return Now().GetMonth();
b76b015e
VZ
893
894 case Julian:
895 wxFAIL_MSG(_T("TODO"));
896 break;
897
898 default:
899 wxFAIL_MSG(_T("unsupported calendar"));
900 break;
901 }
902
903 return Inv_Month;
904}
905
2f02cb89
VZ
906/* static */
907wxDateTime::wxDateTime_t wxDateTime::GetNumberOfDays(int year, Calendar cal)
908{
909 if ( year == Inv_Year )
910 {
911 // take the current year if none given
912 year = GetCurrentYear();
913 }
914
915 switch ( cal )
916 {
917 case Gregorian:
918 case Julian:
919 return IsLeapYear(year) ? 366 : 365;
2f02cb89
VZ
920
921 default:
922 wxFAIL_MSG(_T("unsupported calendar"));
923 break;
924 }
925
926 return 0;
927}
928
b76b015e
VZ
929/* static */
930wxDateTime::wxDateTime_t wxDateTime::GetNumberOfDays(wxDateTime::Month month,
931 int year,
932 wxDateTime::Calendar cal)
933{
fcc3d7cb 934 wxCHECK_MSG( month < MONTHS_IN_YEAR, 0, _T("invalid month") );
b76b015e
VZ
935
936 if ( cal == Gregorian || cal == Julian )
937 {
938 if ( year == Inv_Year )
939 {
940 // take the current year if none given
941 year = GetCurrentYear();
942 }
943
fcc3d7cb 944 return GetNumOfDaysInMonth(year, month);
b76b015e
VZ
945 }
946 else
947 {
948 wxFAIL_MSG(_T("unsupported calendar"));
949
950 return 0;
951 }
952}
953
954/* static */
f0f951fa
VZ
955wxString wxDateTime::GetMonthName(wxDateTime::Month month,
956 wxDateTime::NameFlags flags)
b76b015e 957{
525d8583 958 wxCHECK_MSG( month != Inv_Month, wxEmptyString, _T("invalid month") );
bb7afa49 959#ifdef HAVE_STRFTIME
68ee7c47
VZ
960 // notice that we must set all the fields to avoid confusing libc (GNU one
961 // gets confused to a crash if we don't do this)
cd0b1709 962 tm tm;
f0f951fa 963 InitTm(tm);
cd0b1709 964 tm.tm_mon = month;
b76b015e 965
f0f951fa 966 return CallStrftime(flags == Name_Abbr ? _T("%b") : _T("%B"), &tm);
bb7afa49 967#else // !HAVE_STRFTIME
ba9bbf13
WS
968 wxString ret;
969 switch(month)
970 {
971 case Jan:
972 ret = (flags == Name_Abbr ? wxT("Jan"): wxT("January"));
973 break;
974 case Feb:
975 ret = (flags == Name_Abbr ? wxT("Feb"): wxT("Febuary"));
976 break;
977 case Mar:
978 ret = (flags == Name_Abbr ? wxT("Mar"): wxT("March"));
979 break;
980 case Apr:
981 ret = (flags == Name_Abbr ? wxT("Apr"): wxT("April"));
982 break;
983 case May:
984 ret = (flags == Name_Abbr ? wxT("May"): wxT("May"));
985 break;
986 case Jun:
987 ret = (flags == Name_Abbr ? wxT("Jun"): wxT("June"));
988 break;
989 case Jul:
990 ret = (flags == Name_Abbr ? wxT("Jul"): wxT("July"));
991 break;
992 case Aug:
993 ret = (flags == Name_Abbr ? wxT("Aug"): wxT("August"));
994 break;
995 case Sep:
996 ret = (flags == Name_Abbr ? wxT("Sep"): wxT("September"));
997 break;
998 case Oct:
999 ret = (flags == Name_Abbr ? wxT("Oct"): wxT("October"));
1000 break;
1001 case Nov:
1002 ret = (flags == Name_Abbr ? wxT("Nov"): wxT("November"));
1003 break;
1004 case Dec:
1005 ret = (flags == Name_Abbr ? wxT("Dec"): wxT("December"));
1006 break;
1007 }
1008 return ret;
bb7afa49 1009#endif // HAVE_STRFTIME/!HAVE_STRFTIME
b76b015e
VZ
1010}
1011
1012/* static */
f0f951fa
VZ
1013wxString wxDateTime::GetWeekDayName(wxDateTime::WeekDay wday,
1014 wxDateTime::NameFlags flags)
b76b015e 1015{
525d8583 1016 wxCHECK_MSG( wday != Inv_WeekDay, wxEmptyString, _T("invalid weekday") );
bb7afa49 1017#ifdef HAVE_STRFTIME
2c622d71
VZ
1018 // take some arbitrary Sunday (but notice that the day should be such that
1019 // after adding wday to it below we still have a valid date, e.g. don't
1020 // take 28 here!)
f0f951fa
VZ
1021 tm tm;
1022 InitTm(tm);
2c622d71 1023 tm.tm_mday = 21;
f0f951fa
VZ
1024 tm.tm_mon = Nov;
1025 tm.tm_year = 99;
b76b015e 1026
1ef54dcf 1027 // and offset it by the number of days needed to get the correct wday
b76b015e
VZ
1028 tm.tm_mday += wday;
1029
c5a1681b
VZ
1030 // call mktime() to normalize it...
1031 (void)mktime(&tm);
1032
1033 // ... and call strftime()
f0f951fa 1034 return CallStrftime(flags == Name_Abbr ? _T("%a") : _T("%A"), &tm);
bb7afa49 1035#else // !HAVE_STRFTIME
ba9bbf13
WS
1036 wxString ret;
1037 switch(wday)
1038 {
1039 case Sun:
1040 ret = (flags == Name_Abbr ? wxT("Sun") : wxT("Sunday"));
1041 break;
1042 case Mon:
1043 ret = (flags == Name_Abbr ? wxT("Mon") : wxT("Monday"));
1044 break;
1045 case Tue:
1046 ret = (flags == Name_Abbr ? wxT("Tue") : wxT("Tuesday"));
1047 break;
1048 case Wed:
1049 ret = (flags == Name_Abbr ? wxT("Wed") : wxT("Wednesday"));
1050 break;
1051 case Thu:
1052 ret = (flags == Name_Abbr ? wxT("Thu") : wxT("Thursday"));
1053 break;
1054 case Fri:
1055 ret = (flags == Name_Abbr ? wxT("Fri") : wxT("Friday"));
1056 break;
1057 case Sat:
1058 ret = (flags == Name_Abbr ? wxT("Sat") : wxT("Saturday"));
1059 break;
1060 }
1061 return ret;
bb7afa49 1062#endif // HAVE_STRFTIME/!HAVE_STRFTIME
f0f951fa
VZ
1063}
1064
1065/* static */
1066void wxDateTime::GetAmPmStrings(wxString *am, wxString *pm)
1067{
1068 tm tm;
1069 InitTm(tm);
653567bb 1070 wxChar buffer[64];
0308fd61
JS
1071 // @Note: Do not call 'CallStrftime' here! CallStrftime checks the return code
1072 // and causes an assertion failed if the buffer is to small (which is good) - OR -
1073 // if strftime does not return anything because the format string is invalid - OR -
1074 // if there are no 'am' / 'pm' tokens defined for the current locale (which is not good).
1075 // wxDateTime::ParseTime will try several different formats to parse the time.
1076 // As a result, GetAmPmStrings might get called, even if the current locale
1077 // does not define any 'am' / 'pm' tokens. In this case, wxStrftime would
1078 // assert, even though it is a perfectly legal use.
f0f951fa
VZ
1079 if ( am )
1080 {
10a2749b 1081 if (wxStrftime(buffer, sizeof(buffer)/sizeof(wxChar), _T("%p"), &tm) > 0)
0308fd61
JS
1082 *am = wxString(buffer);
1083 else
1084 *am = wxString();
f0f951fa
VZ
1085 }
1086 if ( pm )
1087 {
1088 tm.tm_hour = 13;
10a2749b 1089 if (wxStrftime(buffer, sizeof(buffer)/sizeof(wxChar), _T("%p"), &tm) > 0)
0308fd61
JS
1090 *pm = wxString(buffer);
1091 else
1092 *pm = wxString();
f0f951fa 1093 }
b76b015e
VZ
1094}
1095
239446b4
VZ
1096// ----------------------------------------------------------------------------
1097// Country stuff: date calculations depend on the country (DST, work days,
1098// ...), so we need to know which rules to follow.
1099// ----------------------------------------------------------------------------
1100
1101/* static */
1102wxDateTime::Country wxDateTime::GetCountry()
1103{
f0f951fa 1104 // TODO use LOCALE_ICOUNTRY setting under Win32
77b88df2 1105#ifndef __WXWINCE__
239446b4
VZ
1106 if ( ms_country == Country_Unknown )
1107 {
1108 // try to guess from the time zone name
1109 time_t t = time(NULL);
a452689b
SN
1110 struct tm tmstruct;
1111 struct tm *tm = wxLocaltime_r(&t, &tmstruct);
239446b4
VZ
1112
1113 wxString tz = CallStrftime(_T("%Z"), tm);
1114 if ( tz == _T("WET") || tz == _T("WEST") )
1115 {
1116 ms_country = UK;
1117 }
1118 else if ( tz == _T("CET") || tz == _T("CEST") )
1119 {
1120 ms_country = Country_EEC;
1121 }
1122 else if ( tz == _T("MSK") || tz == _T("MSD") )
1123 {
1124 ms_country = Russia;
1125 }
1126 else if ( tz == _T("AST") || tz == _T("ADT") ||
1127 tz == _T("EST") || tz == _T("EDT") ||
1128 tz == _T("CST") || tz == _T("CDT") ||
1129 tz == _T("MST") || tz == _T("MDT") ||
1130 tz == _T("PST") || tz == _T("PDT") )
1131 {
1132 ms_country = USA;
1133 }
1134 else
1135 {
1136 // well, choose a default one
1137 ms_country = USA;
1138 }
1139 }
bb7afa49 1140#else // __WXWINCE__
77b88df2 1141 ms_country = USA;
bb7afa49 1142#endif // !__WXWINCE__/__WXWINCE__
239446b4
VZ
1143
1144 return ms_country;
1145}
1146
1147/* static */
1148void wxDateTime::SetCountry(wxDateTime::Country country)
1149{
1150 ms_country = country;
1151}
1152
1153/* static */
1154bool wxDateTime::IsWestEuropeanCountry(Country country)
1155{
1156 if ( country == Country_Default )
1157 {
1158 country = GetCountry();
1159 }
1160
1161 return (Country_WesternEurope_Start <= country) &&
1162 (country <= Country_WesternEurope_End);
1163}
1164
1165// ----------------------------------------------------------------------------
1166// DST calculations: we use 3 different rules for the West European countries,
1167// USA and for the rest of the world. This is undoubtedly false for many
1168// countries, but I lack the necessary info (and the time to gather it),
1169// please add the other rules here!
1170// ----------------------------------------------------------------------------
1171
1172/* static */
1173bool wxDateTime::IsDSTApplicable(int year, Country country)
1174{
1175 if ( year == Inv_Year )
1176 {
1177 // take the current year if none given
1178 year = GetCurrentYear();
1179 }
1180
1181 if ( country == Country_Default )
1182 {
1183 country = GetCountry();
1184 }
1185
1186 switch ( country )
1187 {
1188 case USA:
1189 case UK:
1190 // DST was first observed in the US and UK during WWI, reused
1191 // during WWII and used again since 1966
1192 return year >= 1966 ||
1193 (year >= 1942 && year <= 1945) ||
1194 (year == 1918 || year == 1919);
1195
1196 default:
1197 // assume that it started after WWII
1198 return year > 1950;
1199 }
1200}
1201
1202/* static */
1203wxDateTime wxDateTime::GetBeginDST(int year, Country country)
1204{
1205 if ( year == Inv_Year )
1206 {
1207 // take the current year if none given
1208 year = GetCurrentYear();
1209 }
1210
1211 if ( country == Country_Default )
1212 {
1213 country = GetCountry();
1214 }
1215
1216 if ( !IsDSTApplicable(year, country) )
1217 {
2ef31e80 1218 return wxInvalidDateTime;
239446b4
VZ
1219 }
1220
1221 wxDateTime dt;
1222
1223 if ( IsWestEuropeanCountry(country) || (country == Russia) )
1224 {
1225 // DST begins at 1 a.m. GMT on the last Sunday of March
1226 if ( !dt.SetToLastWeekDay(Sun, Mar, year) )
1227 {
1228 // weird...
1229 wxFAIL_MSG( _T("no last Sunday in March?") );
1230 }
1231
1232 dt += wxTimeSpan::Hours(1);
239446b4
VZ
1233 }
1234 else switch ( country )
1235 {
1236 case USA:
1237 switch ( year )
1238 {
1239 case 1918:
1240 case 1919:
1241 // don't know for sure - assume it was in effect all year
1242
1243 case 1943:
1244 case 1944:
1245 case 1945:
1246 dt.Set(1, Jan, year);
1247 break;
1248
1249 case 1942:
1250 // DST was installed Feb 2, 1942 by the Congress
1251 dt.Set(2, Feb, year);
1252 break;
1253
1254 // Oil embargo changed the DST period in the US
1255 case 1974:
1256 dt.Set(6, Jan, 1974);
1257 break;
1258
1259 case 1975:
1260 dt.Set(23, Feb, 1975);
1261 break;
1262
1263 default:
1264 // before 1986, DST begun on the last Sunday of April, but
1265 // in 1986 Reagan changed it to begin at 2 a.m. of the
1266 // first Sunday in April
1267 if ( year < 1986 )
1268 {
1269 if ( !dt.SetToLastWeekDay(Sun, Apr, year) )
1270 {
1271 // weird...
1272 wxFAIL_MSG( _T("no first Sunday in April?") );
1273 }
1274 }
1275 else
1276 {
1277 if ( !dt.SetToWeekDay(Sun, 1, Apr, year) )
1278 {
1279 // weird...
1280 wxFAIL_MSG( _T("no first Sunday in April?") );
1281 }
1282 }
1283
1284 dt += wxTimeSpan::Hours(2);
1285
1286 // TODO what about timezone??
1287 }
1288
1289 break;
1290
1291 default:
1292 // assume Mar 30 as the start of the DST for the rest of the world
1293 // - totally bogus, of course
1294 dt.Set(30, Mar, year);
1295 }
1296
1297 return dt;
1298}
1299
1300/* static */
1301wxDateTime wxDateTime::GetEndDST(int year, Country country)
1302{
1303 if ( year == Inv_Year )
1304 {
1305 // take the current year if none given
1306 year = GetCurrentYear();
1307 }
1308
1309 if ( country == Country_Default )
1310 {
1311 country = GetCountry();
1312 }
1313
1314 if ( !IsDSTApplicable(year, country) )
1315 {
2ef31e80 1316 return wxInvalidDateTime;
239446b4
VZ
1317 }
1318
1319 wxDateTime dt;
1320
1321 if ( IsWestEuropeanCountry(country) || (country == Russia) )
1322 {
5f287370 1323 // DST ends at 1 a.m. GMT on the last Sunday of October
239446b4
VZ
1324 if ( !dt.SetToLastWeekDay(Sun, Oct, year) )
1325 {
1326 // weirder and weirder...
1327 wxFAIL_MSG( _T("no last Sunday in October?") );
1328 }
1329
1330 dt += wxTimeSpan::Hours(1);
239446b4
VZ
1331 }
1332 else switch ( country )
1333 {
1334 case USA:
1335 switch ( year )
1336 {
1337 case 1918:
1338 case 1919:
1339 // don't know for sure - assume it was in effect all year
1340
1341 case 1943:
1342 case 1944:
1343 dt.Set(31, Dec, year);
1344 break;
1345
1346 case 1945:
1347 // the time was reset after the end of the WWII
1348 dt.Set(30, Sep, year);
1349 break;
1350
1351 default:
5f287370 1352 // DST ends at 2 a.m. on the last Sunday of October
239446b4
VZ
1353 if ( !dt.SetToLastWeekDay(Sun, Oct, year) )
1354 {
1355 // weirder and weirder...
1356 wxFAIL_MSG( _T("no last Sunday in October?") );
1357 }
1358
1359 dt += wxTimeSpan::Hours(2);
1360
1361 // TODO what about timezone??
1362 }
1363 break;
1364
1365 default:
1366 // assume October 26th as the end of the DST - totally bogus too
1367 dt.Set(26, Oct, year);
1368 }
1369
1370 return dt;
1371}
1372
0979c962
VZ
1373// ----------------------------------------------------------------------------
1374// constructors and assignment operators
1375// ----------------------------------------------------------------------------
1376
f6bcfd97
BP
1377// return the current time with ms precision
1378/* static */ wxDateTime wxDateTime::UNow()
1379{
1380 return wxDateTime(wxGetLocalTimeMillis());
1381}
1382
299fcbfe
VZ
1383// the values in the tm structure contain the local time
1384wxDateTime& wxDateTime::Set(const struct tm& tm)
0979c962 1385{
299fcbfe 1386 struct tm tm2(tm);
b76b015e 1387 time_t timet = mktime(&tm2);
1ef54dcf 1388
4afd7529 1389 if ( timet == (time_t)-1 )
0979c962 1390 {
4afd7529
VZ
1391 // mktime() rather unintuitively fails for Jan 1, 1970 if the hour is
1392 // less than timezone - try to make it work for this case
1393 if ( tm2.tm_year == 70 && tm2.tm_mon == 0 && tm2.tm_mday == 1 )
1394 {
3d78a532
RD
1395 return Set((time_t)(
1396 GetTimeZone() +
1397 tm2.tm_hour * MIN_PER_HOUR * SEC_PER_MIN +
1398 tm2.tm_min * SEC_PER_MIN +
1399 tm2.tm_sec));
4afd7529
VZ
1400 }
1401
1402 wxFAIL_MSG( _T("mktime() failed") );
0979c962 1403
384223b3
VZ
1404 *this = wxInvalidDateTime;
1405
1406 return *this;
0979c962
VZ
1407 }
1408 else
1409 {
1410 return Set(timet);
1411 }
1412}
1413
1414wxDateTime& wxDateTime::Set(wxDateTime_t hour,
1415 wxDateTime_t minute,
1416 wxDateTime_t second,
1417 wxDateTime_t millisec)
1418{
1419 // we allow seconds to be 61 to account for the leap seconds, even if we
1420 // don't use them really
384223b3
VZ
1421 wxDATETIME_CHECK( hour < 24 &&
1422 second < 62 &&
1423 minute < 60 &&
1424 millisec < 1000,
1425 _T("Invalid time in wxDateTime::Set()") );
0979c962
VZ
1426
1427 // get the current date from system
a452689b
SN
1428 struct tm tmstruct;
1429 struct tm *tm = GetTmNow(&tmstruct);
299fcbfe 1430
a452689b 1431 wxDATETIME_CHECK( tm, _T("wxLocaltime_r() failed") );
0979c962 1432
456639ac
VZ
1433 // make a copy so it isn't clobbered by the call to mktime() below
1434 struct tm tm1(*tm);
1435
0979c962 1436 // adjust the time
456639ac
VZ
1437 tm1.tm_hour = hour;
1438 tm1.tm_min = minute;
1439 tm1.tm_sec = second;
0979c962 1440
9cc311d3 1441 // and the DST in case it changes on this date
456639ac 1442 struct tm tm2(tm1);
9cc311d3 1443 mktime(&tm2);
456639ac
VZ
1444 if ( tm2.tm_isdst != tm1.tm_isdst )
1445 tm1.tm_isdst = tm2.tm_isdst;
9cc311d3 1446
456639ac 1447 (void)Set(tm1);
0979c962
VZ
1448
1449 // and finally adjust milliseconds
1450 return SetMillisecond(millisec);
1451}
1452
1453wxDateTime& wxDateTime::Set(wxDateTime_t day,
1454 Month month,
1455 int year,
1456 wxDateTime_t hour,
1457 wxDateTime_t minute,
1458 wxDateTime_t second,
1459 wxDateTime_t millisec)
1460{
384223b3
VZ
1461 wxDATETIME_CHECK( hour < 24 &&
1462 second < 62 &&
1463 minute < 60 &&
1464 millisec < 1000,
1465 _T("Invalid time in wxDateTime::Set()") );
0979c962 1466
2f02cb89 1467 ReplaceDefaultYearMonthWithCurrent(&year, &month);
0979c962 1468
384223b3
VZ
1469 wxDATETIME_CHECK( (0 < day) && (day <= GetNumberOfDays(month, year)),
1470 _T("Invalid date in wxDateTime::Set()") );
0979c962
VZ
1471
1472 // the range of time_t type (inclusive)
1473 static const int yearMinInRange = 1970;
1474 static const int yearMaxInRange = 2037;
1475
1476 // test only the year instead of testing for the exact end of the Unix
1477 // time_t range - it doesn't bring anything to do more precise checks
2f02cb89 1478 if ( year >= yearMinInRange && year <= yearMaxInRange )
0979c962
VZ
1479 {
1480 // use the standard library version if the date is in range - this is
b76b015e 1481 // probably more efficient than our code
0979c962 1482 struct tm tm;
b76b015e 1483 tm.tm_year = year - 1900;
0979c962
VZ
1484 tm.tm_mon = month;
1485 tm.tm_mday = day;
1486 tm.tm_hour = hour;
1487 tm.tm_min = minute;
1488 tm.tm_sec = second;
299fcbfe 1489 tm.tm_isdst = -1; // mktime() will guess it
0979c962
VZ
1490
1491 (void)Set(tm);
1492
1493 // and finally adjust milliseconds
3d78a532
RD
1494 if (IsValid())
1495 SetMillisecond(millisec);
1496
1497 return *this;
0979c962
VZ
1498 }
1499 else
1500 {
1501 // do time calculations ourselves: we want to calculate the number of
fcc3d7cb 1502 // milliseconds between the given date and the epoch
e6ec579c
VZ
1503
1504 // get the JDN for the midnight of this day
1505 m_time = GetTruncatedJDN(day, month, year);
1506 m_time -= EPOCH_JDN;
1507 m_time *= SECONDS_PER_DAY * TIME_T_FACTOR;
1508
299fcbfe
VZ
1509 // JDN corresponds to GMT, we take localtime
1510 Add(wxTimeSpan(hour, minute, second + GetTimeZone(), millisec));
b76b015e
VZ
1511 }
1512
1513 return *this;
1514}
1515
e6ec579c
VZ
1516wxDateTime& wxDateTime::Set(double jdn)
1517{
1ef54dcf
VZ
1518 // so that m_time will be 0 for the midnight of Jan 1, 1970 which is jdn
1519 // EPOCH_JDN + 0.5
1520 jdn -= EPOCH_JDN + 0.5;
1521
d26adb9d 1522 m_time.Assign(jdn*MILLISECONDS_PER_DAY);
cd0b1709 1523
d26adb9d 1524 // JDNs always are in UTC, so we don't need any adjustments for time zone
e6ec579c
VZ
1525
1526 return *this;
1527}
1528
9d9b7755
VZ
1529wxDateTime& wxDateTime::ResetTime()
1530{
1531 Tm tm = GetTm();
1532
1533 if ( tm.hour || tm.min || tm.sec || tm.msec )
1534 {
1535 tm.msec =
1536 tm.sec =
1537 tm.min =
1538 tm.hour = 0;
1539
1540 Set(tm);
1541 }
1542
1543 return *this;
1544}
1545
fb96cf85
VZ
1546wxDateTime wxDateTime::GetDateOnly() const
1547{
1548 Tm tm = GetTm();
1549 tm.msec =
1550 tm.sec =
1551 tm.min =
1552 tm.hour = 0;
1553 return wxDateTime(tm);
1554}
1555
2b5f62a0
VZ
1556// ----------------------------------------------------------------------------
1557// DOS Date and Time Format functions
1558// ----------------------------------------------------------------------------
1559// the dos date and time value is an unsigned 32 bit value in the format:
1560// YYYYYYYMMMMDDDDDhhhhhmmmmmmsssss
1561//
1562// Y = year offset from 1980 (0-127)
1563// M = month (1-12)
1564// D = day of month (1-31)
1565// h = hour (0-23)
1566// m = minute (0-59)
1567// s = bisecond (0-29) each bisecond indicates two seconds
1568// ----------------------------------------------------------------------------
1569
1570wxDateTime& wxDateTime::SetFromDOS(unsigned long ddt)
1571{
1572 struct tm tm;
4739346e 1573 InitTm(tm);
2b5f62a0
VZ
1574
1575 long year = ddt & 0xFE000000;
1576 year >>= 25;
1577 year += 80;
1578 tm.tm_year = year;
1579
1580 long month = ddt & 0x1E00000;
1581 month >>= 21;
1582 month -= 1;
1583 tm.tm_mon = month;
1584
1585 long day = ddt & 0x1F0000;
1586 day >>= 16;
1587 tm.tm_mday = day;
1588
1589 long hour = ddt & 0xF800;
1590 hour >>= 11;
1591 tm.tm_hour = hour;
1592
1593 long minute = ddt & 0x7E0;
1594 minute >>= 5;
1595 tm.tm_min = minute;
1596
1597 long second = ddt & 0x1F;
1598 tm.tm_sec = second * 2;
1599
1600 return Set(mktime(&tm));
1601}
1602
1603unsigned long wxDateTime::GetAsDOS() const
1604{
1605 unsigned long ddt;
1606 time_t ticks = GetTicks();
a452689b
SN
1607 struct tm tmstruct;
1608 struct tm *tm = wxLocaltime_r(&ticks, &tmstruct);
1faa4ad2 1609 wxCHECK_MSG( tm, ULONG_MAX, _T("time can't be represented in DOS format") );
2b5f62a0
VZ
1610
1611 long year = tm->tm_year;
1612 year -= 80;
1613 year <<= 25;
1614
1615 long month = tm->tm_mon;
1616 month += 1;
1617 month <<= 21;
1618
1619 long day = tm->tm_mday;
1620 day <<= 16;
1621
1622 long hour = tm->tm_hour;
1623 hour <<= 11;
1624
1625 long minute = tm->tm_min;
1626 minute <<= 5;
1627
1628 long second = tm->tm_sec;
1629 second /= 2;
1630
1631 ddt = year | month | day | hour | minute | second;
1632 return ddt;
1633}
1634
b76b015e
VZ
1635// ----------------------------------------------------------------------------
1636// time_t <-> broken down time conversions
1637// ----------------------------------------------------------------------------
1638
299fcbfe 1639wxDateTime::Tm wxDateTime::GetTm(const TimeZone& tz) const
b76b015e
VZ
1640{
1641 wxASSERT_MSG( IsValid(), _T("invalid wxDateTime") );
1642
1643 time_t time = GetTicks();
1644 if ( time != (time_t)-1 )
1645 {
1646 // use C RTL functions
a452689b 1647 struct tm tmstruct;
299fcbfe
VZ
1648 tm *tm;
1649 if ( tz.GetOffset() == -GetTimeZone() )
1650 {
1651 // we are working with local time
a452689b 1652 tm = wxLocaltime_r(&time, &tmstruct);
c5a1681b
VZ
1653
1654 // should never happen
a452689b 1655 wxCHECK_MSG( tm, Tm(), _T("wxLocaltime_r() failed") );
299fcbfe
VZ
1656 }
1657 else
1658 {
13111b2a 1659 time += (time_t)tz.GetOffset();
33ac7e6f 1660#if defined(__VMS__) || defined(__WATCOMC__) // time is unsigned so avoid warning
13111b2a 1661 int time2 = (int) time;
9d9b7755 1662 if ( time2 >= 0 )
fb10f04c 1663#else
9d9b7755 1664 if ( time >= 0 )
fb10f04c 1665#endif
c5a1681b 1666 {
a452689b 1667 tm = wxGmtime_r(&time, &tmstruct);
b76b015e 1668
c5a1681b 1669 // should never happen
a452689b 1670 wxCHECK_MSG( tm, Tm(), _T("wxGmtime_r() failed") );
c5a1681b
VZ
1671 }
1672 else
1673 {
1674 tm = (struct tm *)NULL;
1675 }
1676 }
b76b015e 1677
c5a1681b
VZ
1678 if ( tm )
1679 {
f6bcfd97
BP
1680 // adjust the milliseconds
1681 Tm tm2(*tm, tz);
1682 long timeOnly = (m_time % MILLISECONDS_PER_DAY).ToLong();
1683 tm2.msec = (wxDateTime_t)(timeOnly % 1000);
1684 return tm2;
c5a1681b
VZ
1685 }
1686 //else: use generic code below
b76b015e 1687 }
e6ec579c 1688
c5a1681b
VZ
1689 // remember the time and do the calculations with the date only - this
1690 // eliminates rounding errors of the floating point arithmetics
299fcbfe 1691
c5a1681b 1692 wxLongLong timeMidnight = m_time + tz.GetOffset() * 1000;
1ef54dcf 1693
c5a1681b 1694 long timeOnly = (timeMidnight % MILLISECONDS_PER_DAY).ToLong();
1ef54dcf 1695
c5a1681b
VZ
1696 // we want to always have positive time and timeMidnight to be really
1697 // the midnight before it
1698 if ( timeOnly < 0 )
1699 {
1700 timeOnly = MILLISECONDS_PER_DAY + timeOnly;
1701 }
e6ec579c 1702
c5a1681b 1703 timeMidnight -= timeOnly;
1ef54dcf 1704
c5a1681b
VZ
1705 // calculate the Gregorian date from JDN for the midnight of our date:
1706 // this will yield day, month (in 1..12 range) and year
1ef54dcf 1707
c5a1681b
VZ
1708 // actually, this is the JDN for the noon of the previous day
1709 long jdn = (timeMidnight / MILLISECONDS_PER_DAY).ToLong() + EPOCH_JDN;
1ef54dcf 1710
c5a1681b 1711 // CREDIT: code below is by Scott E. Lee (but bugs are mine)
1ef54dcf 1712
c5a1681b 1713 wxASSERT_MSG( jdn > -2, _T("JDN out of range") );
1ef54dcf 1714
c5a1681b 1715 // calculate the century
479cd5de
VZ
1716 long temp = (jdn + JDN_OFFSET) * 4 - 1;
1717 long century = temp / DAYS_PER_400_YEARS;
1ef54dcf 1718
c5a1681b
VZ
1719 // then the year and day of year (1 <= dayOfYear <= 366)
1720 temp = ((temp % DAYS_PER_400_YEARS) / 4) * 4 + 3;
479cd5de
VZ
1721 long year = (century * 100) + (temp / DAYS_PER_4_YEARS);
1722 long dayOfYear = (temp % DAYS_PER_4_YEARS) / 4 + 1;
1ef54dcf 1723
c5a1681b
VZ
1724 // and finally the month and day of the month
1725 temp = dayOfYear * 5 - 3;
479cd5de
VZ
1726 long month = temp / DAYS_PER_5_MONTHS;
1727 long day = (temp % DAYS_PER_5_MONTHS) / 5 + 1;
c5a1681b
VZ
1728
1729 // month is counted from March - convert to normal
1730 if ( month < 10 )
1731 {
1732 month += 3;
1733 }
1734 else
1735 {
1736 year += 1;
1737 month -= 9;
1738 }
1ef54dcf 1739
c5a1681b
VZ
1740 // year is offset by 4800
1741 year -= 4800;
1ef54dcf 1742
c5a1681b
VZ
1743 // check that the algorithm gave us something reasonable
1744 wxASSERT_MSG( (0 < month) && (month <= 12), _T("invalid month") );
1745 wxASSERT_MSG( (1 <= day) && (day < 32), _T("invalid day") );
e6ec579c 1746
c5a1681b
VZ
1747 // construct Tm from these values
1748 Tm tm;
1749 tm.year = (int)year;
1750 tm.mon = (Month)(month - 1); // algorithm yields 1 for January, not 0
1751 tm.mday = (wxDateTime_t)day;
479cd5de 1752 tm.msec = (wxDateTime_t)(timeOnly % 1000);
c5a1681b
VZ
1753 timeOnly -= tm.msec;
1754 timeOnly /= 1000; // now we have time in seconds
e6ec579c 1755
d26adb9d 1756 tm.sec = (wxDateTime_t)(timeOnly % SEC_PER_MIN);
c5a1681b 1757 timeOnly -= tm.sec;
d26adb9d 1758 timeOnly /= SEC_PER_MIN; // now we have time in minutes
e6ec579c 1759
d26adb9d 1760 tm.min = (wxDateTime_t)(timeOnly % MIN_PER_HOUR);
c5a1681b 1761 timeOnly -= tm.min;
e6ec579c 1762
d26adb9d 1763 tm.hour = (wxDateTime_t)(timeOnly / MIN_PER_HOUR);
b76b015e 1764
c5a1681b 1765 return tm;
b76b015e
VZ
1766}
1767
1768wxDateTime& wxDateTime::SetYear(int year)
1769{
1770 wxASSERT_MSG( IsValid(), _T("invalid wxDateTime") );
1771
1772 Tm tm(GetTm());
1773 tm.year = year;
1774 Set(tm);
1775
1776 return *this;
1777}
1778
1779wxDateTime& wxDateTime::SetMonth(Month month)
1780{
1781 wxASSERT_MSG( IsValid(), _T("invalid wxDateTime") );
1782
1783 Tm tm(GetTm());
1784 tm.mon = month;
1785 Set(tm);
1786
1787 return *this;
1788}
1789
1790wxDateTime& wxDateTime::SetDay(wxDateTime_t mday)
1791{
1792 wxASSERT_MSG( IsValid(), _T("invalid wxDateTime") );
1793
1794 Tm tm(GetTm());
1795 tm.mday = mday;
1796 Set(tm);
1797
1798 return *this;
1799}
1800
1801wxDateTime& wxDateTime::SetHour(wxDateTime_t hour)
1802{
1803 wxASSERT_MSG( IsValid(), _T("invalid wxDateTime") );
1804
1805 Tm tm(GetTm());
1806 tm.hour = hour;
1807 Set(tm);
1808
1809 return *this;
1810}
1811
1812wxDateTime& wxDateTime::SetMinute(wxDateTime_t min)
1813{
1814 wxASSERT_MSG( IsValid(), _T("invalid wxDateTime") );
1815
1816 Tm tm(GetTm());
1817 tm.min = min;
1818 Set(tm);
1819
1820 return *this;
1821}
1822
1823wxDateTime& wxDateTime::SetSecond(wxDateTime_t sec)
1824{
1825 wxASSERT_MSG( IsValid(), _T("invalid wxDateTime") );
1826
1827 Tm tm(GetTm());
1828 tm.sec = sec;
1829 Set(tm);
0979c962
VZ
1830
1831 return *this;
1832}
b76b015e
VZ
1833
1834wxDateTime& wxDateTime::SetMillisecond(wxDateTime_t millisecond)
1835{
1836 wxASSERT_MSG( IsValid(), _T("invalid wxDateTime") );
1837
1838 // we don't need to use GetTm() for this one
1839 m_time -= m_time % 1000l;
1840 m_time += millisecond;
1841
1842 return *this;
1843}
1844
1845// ----------------------------------------------------------------------------
1846// wxDateTime arithmetics
1847// ----------------------------------------------------------------------------
1848
1849wxDateTime& wxDateTime::Add(const wxDateSpan& diff)
1850{
1851 Tm tm(GetTm());
1852
1853 tm.year += diff.GetYears();
fcc3d7cb 1854 tm.AddMonths(diff.GetMonths());
4f6aed9c
VZ
1855
1856 // check that the resulting date is valid
1857 if ( tm.mday > GetNumOfDaysInMonth(tm.year, tm.mon) )
1858 {
1859 // We suppose that when adding one month to Jan 31 we want to get Feb
1860 // 28 (or 29), i.e. adding a month to the last day of the month should
1861 // give the last day of the next month which is quite logical.
1862 //
1863 // Unfortunately, there is no logic way to understand what should
1864 // Jan 30 + 1 month be - Feb 28 too or Feb 27 (assuming non leap year)?
1865 // We make it Feb 28 (last day too), but it is highly questionable.
1866 tm.mday = GetNumOfDaysInMonth(tm.year, tm.mon);
1867 }
1868
fcc3d7cb 1869 tm.AddDays(diff.GetTotalDays());
b76b015e
VZ
1870
1871 Set(tm);
1872
9d9b7755
VZ
1873 wxASSERT_MSG( IsSameTime(tm),
1874 _T("Add(wxDateSpan) shouldn't modify time") );
1875
b76b015e
VZ
1876 return *this;
1877}
1878
2f02cb89
VZ
1879// ----------------------------------------------------------------------------
1880// Weekday and monthday stuff
1881// ----------------------------------------------------------------------------
1882
4c27e2fa
VZ
1883// convert Sun, Mon, ..., Sat into 6, 0, ..., 5
1884static inline int ConvertWeekDayToMondayBase(int wd)
1885{
1886 return wd == wxDateTime::Sun ? 6 : wd - 1;
1887}
1888
1889/* static */
1890wxDateTime
1891wxDateTime::SetToWeekOfYear(int year, wxDateTime_t numWeek, WeekDay wd)
4f6aed9c 1892{
2b5f62a0
VZ
1893 wxASSERT_MSG( numWeek > 0,
1894 _T("invalid week number: weeks are counted from 1") );
1895
4c27e2fa
VZ
1896 // Jan 4 always lies in the 1st week of the year
1897 wxDateTime dt(4, Jan, year);
1898 dt.SetToWeekDayInSameWeek(wd);
1899 dt += wxDateSpan::Weeks(numWeek - 1);
1900
1901 return dt;
1902}
4f6aed9c 1903
ca3e85cf 1904#if WXWIN_COMPATIBILITY_2_6
4c27e2fa
VZ
1905// use a separate function to avoid warnings about using deprecated
1906// SetToTheWeek in GetWeek below
1907static wxDateTime
1908SetToTheWeek(int year,
1909 wxDateTime::wxDateTime_t numWeek,
1910 wxDateTime::WeekDay weekday,
1911 wxDateTime::WeekFlags flags)
1912{
4f6aed9c 1913 // Jan 4 always lies in the 1st week of the year
4c27e2fa
VZ
1914 wxDateTime dt(4, wxDateTime::Jan, year);
1915 dt.SetToWeekDayInSameWeek(weekday, flags);
1916 dt += wxDateSpan::Weeks(numWeek - 1);
4f6aed9c 1917
4c27e2fa
VZ
1918 return dt;
1919}
1920
1921bool wxDateTime::SetToTheWeek(wxDateTime_t numWeek,
1922 WeekDay weekday,
1923 WeekFlags flags)
1924{
1925 int year = GetYear();
1926 *this = ::SetToTheWeek(year, numWeek, weekday, flags);
4f6aed9c
VZ
1927 if ( GetYear() != year )
1928 {
1929 // oops... numWeek was too big
68379eaf 1930 return false;
4f6aed9c
VZ
1931 }
1932
68379eaf 1933 return true;
4f6aed9c
VZ
1934}
1935
4c27e2fa
VZ
1936wxDateTime wxDateTime::GetWeek(wxDateTime_t numWeek,
1937 WeekDay weekday,
1938 WeekFlags flags) const
1939{
1940 return ::SetToTheWeek(GetYear(), numWeek, weekday, flags);
1941}
ca3e85cf 1942#endif // WXWIN_COMPATIBILITY_2_6
4c27e2fa 1943
2f02cb89
VZ
1944wxDateTime& wxDateTime::SetToLastMonthDay(Month month,
1945 int year)
1946{
1947 // take the current month/year if none specified
1a8557b1
VZ
1948 if ( year == Inv_Year )
1949 year = GetYear();
1950 if ( month == Inv_Month )
1951 month = GetMonth();
2f02cb89 1952
fcc3d7cb 1953 return Set(GetNumOfDaysInMonth(year, month), month, year);
2f02cb89
VZ
1954}
1955
2b5f62a0 1956wxDateTime& wxDateTime::SetToWeekDayInSameWeek(WeekDay weekday, WeekFlags flags)
cd0b1709 1957{
384223b3 1958 wxDATETIME_CHECK( weekday != Inv_WeekDay, _T("invalid weekday") );
cd0b1709 1959
af80bc92
VZ
1960 int wdayDst = weekday,
1961 wdayThis = GetWeekDay();
1962 if ( wdayDst == wdayThis )
cd0b1709
VZ
1963 {
1964 // nothing to do
1965 return *this;
1966 }
2b5f62a0
VZ
1967
1968 if ( flags == Default_First )
1969 {
1970 flags = GetCountry() == USA ? Sunday_First : Monday_First;
1971 }
1972
1973 // the logic below based on comparing weekday and wdayThis works if Sun (0)
1974 // is the first day in the week, but breaks down for Monday_First case so
1975 // we adjust the week days in this case
af80bc92 1976 if ( flags == Monday_First )
2b5f62a0
VZ
1977 {
1978 if ( wdayThis == Sun )
1979 wdayThis += 7;
af80bc92
VZ
1980 if ( wdayDst == Sun )
1981 wdayDst += 7;
2b5f62a0
VZ
1982 }
1983 //else: Sunday_First, nothing to do
1984
1985 // go forward or back in time to the day we want
af80bc92 1986 if ( wdayDst < wdayThis )
cd0b1709 1987 {
af80bc92 1988 return Subtract(wxDateSpan::Days(wdayThis - wdayDst));
cd0b1709
VZ
1989 }
1990 else // weekday > wdayThis
1991 {
af80bc92 1992 return Add(wxDateSpan::Days(wdayDst - wdayThis));
cd0b1709
VZ
1993 }
1994}
1995
1996wxDateTime& wxDateTime::SetToNextWeekDay(WeekDay weekday)
1997{
384223b3 1998 wxDATETIME_CHECK( weekday != Inv_WeekDay, _T("invalid weekday") );
cd0b1709
VZ
1999
2000 int diff;
2001 WeekDay wdayThis = GetWeekDay();
2002 if ( weekday == wdayThis )
2003 {
2004 // nothing to do
2005 return *this;
2006 }
2007 else if ( weekday < wdayThis )
2008 {
2009 // need to advance a week
2010 diff = 7 - (wdayThis - weekday);
2011 }
2012 else // weekday > wdayThis
2013 {
2014 diff = weekday - wdayThis;
2015 }
2016
4f6aed9c 2017 return Add(wxDateSpan::Days(diff));
cd0b1709
VZ
2018}
2019
2020wxDateTime& wxDateTime::SetToPrevWeekDay(WeekDay weekday)
2021{
384223b3 2022 wxDATETIME_CHECK( weekday != Inv_WeekDay, _T("invalid weekday") );
cd0b1709
VZ
2023
2024 int diff;
2025 WeekDay wdayThis = GetWeekDay();
2026 if ( weekday == wdayThis )
2027 {
2028 // nothing to do
2029 return *this;
2030 }
2031 else if ( weekday > wdayThis )
2032 {
2033 // need to go to previous week
2034 diff = 7 - (weekday - wdayThis);
2035 }
2036 else // weekday < wdayThis
2037 {
2038 diff = wdayThis - weekday;
2039 }
2040
f6bcfd97 2041 return Subtract(wxDateSpan::Days(diff));
cd0b1709
VZ
2042}
2043
2f02cb89
VZ
2044bool wxDateTime::SetToWeekDay(WeekDay weekday,
2045 int n,
2046 Month month,
2047 int year)
2048{
68379eaf 2049 wxCHECK_MSG( weekday != Inv_WeekDay, false, _T("invalid weekday") );
2f02cb89 2050
68379eaf 2051 // we don't check explicitly that -5 <= n <= 5 because we will return false
2f02cb89
VZ
2052 // anyhow in such case - but may be should still give an assert for it?
2053
2054 // take the current month/year if none specified
2055 ReplaceDefaultYearMonthWithCurrent(&year, &month);
2056
2057 wxDateTime dt;
2058
2059 // TODO this probably could be optimised somehow...
2060
2061 if ( n > 0 )
2062 {
2063 // get the first day of the month
2064 dt.Set(1, month, year);
2065
2066 // get its wday
2067 WeekDay wdayFirst = dt.GetWeekDay();
2068
2069 // go to the first weekday of the month
2070 int diff = weekday - wdayFirst;
2071 if ( diff < 0 )
2072 diff += 7;
2073
2074 // add advance n-1 weeks more
2075 diff += 7*(n - 1);
2076
239446b4 2077 dt += wxDateSpan::Days(diff);
2f02cb89 2078 }
239446b4 2079 else // count from the end of the month
2f02cb89
VZ
2080 {
2081 // get the last day of the month
2082 dt.SetToLastMonthDay(month, year);
2083
2084 // get its wday
2085 WeekDay wdayLast = dt.GetWeekDay();
2086
2087 // go to the last weekday of the month
2088 int diff = wdayLast - weekday;
2089 if ( diff < 0 )
2090 diff += 7;
2091
2092 // and rewind n-1 weeks from there
239446b4 2093 diff += 7*(-n - 1);
2f02cb89
VZ
2094
2095 dt -= wxDateSpan::Days(diff);
2096 }
2097
2098 // check that it is still in the same month
2099 if ( dt.GetMonth() == month )
2100 {
2101 *this = dt;
2102
68379eaf 2103 return true;
2f02cb89
VZ
2104 }
2105 else
2106 {
2107 // no such day in this month
68379eaf 2108 return false;
2f02cb89
VZ
2109 }
2110}
2111
1c5d27e2
VZ
2112static inline
2113wxDateTime::wxDateTime_t GetDayOfYearFromTm(const wxDateTime::Tm& tm)
2114{
907173e5 2115 return (wxDateTime::wxDateTime_t)(gs_cumulatedDays[wxDateTime::IsLeapYear(tm.year)][tm.mon] + tm.mday);
1c5d27e2
VZ
2116}
2117
239446b4
VZ
2118wxDateTime::wxDateTime_t wxDateTime::GetDayOfYear(const TimeZone& tz) const
2119{
1c5d27e2
VZ
2120 return GetDayOfYearFromTm(GetTm(tz));
2121}
239446b4 2122
1c5d27e2
VZ
2123wxDateTime::wxDateTime_t
2124wxDateTime::GetWeekOfYear(wxDateTime::WeekFlags flags, const TimeZone& tz) const
239446b4 2125{
9d9b7755
VZ
2126 if ( flags == Default_First )
2127 {
2128 flags = GetCountry() == USA ? Sunday_First : Monday_First;
2129 }
239446b4 2130
1c5d27e2
VZ
2131 Tm tm(GetTm(tz));
2132 wxDateTime_t nDayInYear = GetDayOfYearFromTm(tm);
239446b4 2133
1c5d27e2
VZ
2134 int wdTarget = GetWeekDay(tz);
2135 int wdYearStart = wxDateTime(1, Jan, GetYear()).GetWeekDay();
2136 int week;
9d9b7755
VZ
2137 if ( flags == Sunday_First )
2138 {
1c5d27e2
VZ
2139 // FIXME: First week is not calculated correctly.
2140 week = (nDayInYear - wdTarget + 7) / 7;
2141 if ( wdYearStart == Wed || wdYearStart == Thu )
2142 week++;
9d9b7755 2143 }
1c5d27e2 2144 else // week starts with monday
9d9b7755 2145 {
1c5d27e2
VZ
2146 // adjust the weekdays to non-US style.
2147 wdYearStart = ConvertWeekDayToMondayBase(wdYearStart);
2148 wdTarget = ConvertWeekDayToMondayBase(wdTarget);
239446b4 2149
1c5d27e2
VZ
2150 // quoting from http://www.cl.cam.ac.uk/~mgk25/iso-time.html:
2151 //
2152 // Week 01 of a year is per definition the first week that has the
2153 // Thursday in this year, which is equivalent to the week that
2154 // contains the fourth day of January. In other words, the first
2155 // week of a new year is the week that has the majority of its
2156 // days in the new year. Week 01 might also contain days from the
2157 // previous year and the week before week 01 of a year is the last
2158 // week (52 or 53) of the previous year even if it contains days
2159 // from the new year. A week starts with Monday (day 1) and ends
2160 // with Sunday (day 7).
2161 //
2162
2163 // if Jan 1 is Thursday or less, it is in the first week of this year
2164 if ( wdYearStart < 4 )
2165 {
2166 // count the number of entire weeks between Jan 1 and this date
2167 week = (nDayInYear + wdYearStart + 6 - wdTarget)/7;
2168
2169 // be careful to check for overflow in the next year
2170 if ( week == 53 && tm.mday - wdTarget > 28 )
2171 week = 1;
2172 }
2173 else // Jan 1 is in the last week of the previous year
2174 {
2175 // check if we happen to be at the last week of previous year:
2176 if ( tm.mon == Jan && tm.mday < 8 - wdYearStart )
2177 week = wxDateTime(31, Dec, GetYear()-1).GetWeekOfYear();
2178 else
2179 week = (nDayInYear + wdYearStart - 1 - wdTarget)/7;
2180 }
239446b4
VZ
2181 }
2182
907173e5 2183 return (wxDateTime::wxDateTime_t)week;
68ee7c47
VZ
2184}
2185
9d9b7755
VZ
2186wxDateTime::wxDateTime_t wxDateTime::GetWeekOfMonth(wxDateTime::WeekFlags flags,
2187 const TimeZone& tz) const
68ee7c47 2188{
9d9b7755
VZ
2189 Tm tm = GetTm(tz);
2190 wxDateTime dtMonthStart = wxDateTime(1, tm.mon, tm.year);
6dc6fda6 2191 int nWeek = GetWeekOfYear(flags) - dtMonthStart.GetWeekOfYear(flags) + 1;
9d9b7755 2192 if ( nWeek < 0 )
68ee7c47 2193 {
9d9b7755
VZ
2194 // this may happen for January when Jan, 1 is the last week of the
2195 // previous year
2196 nWeek += IsLeapYear(tm.year - 1) ? 53 : 52;
68ee7c47 2197 }
68ee7c47 2198
6dc6fda6 2199 return (wxDateTime::wxDateTime_t)nWeek;
239446b4
VZ
2200}
2201
f0f951fa
VZ
2202wxDateTime& wxDateTime::SetToYearDay(wxDateTime::wxDateTime_t yday)
2203{
2204 int year = GetYear();
384223b3
VZ
2205 wxDATETIME_CHECK( (0 < yday) && (yday <= GetNumberOfDays(year)),
2206 _T("invalid year day") );
f0f951fa
VZ
2207
2208 bool isLeap = IsLeapYear(year);
2209 for ( Month mon = Jan; mon < Inv_Month; wxNextMonth(mon) )
2210 {
2211 // for Dec, we can't compare with gs_cumulatedDays[mon + 1], but we
2212 // don't need it neither - because of the CHECK above we know that
2213 // yday lies in December then
f49d731f 2214 if ( (mon == Dec) || (yday <= gs_cumulatedDays[isLeap][mon + 1]) )
f0f951fa 2215 {
42841dfc 2216 Set((wxDateTime::wxDateTime_t)(yday - gs_cumulatedDays[isLeap][mon]), mon, year);
f0f951fa
VZ
2217
2218 break;
2219 }
2220 }
2221
2222 return *this;
2223}
2224
e6ec579c
VZ
2225// ----------------------------------------------------------------------------
2226// Julian day number conversion and related stuff
2227// ----------------------------------------------------------------------------
2228
2229double wxDateTime::GetJulianDayNumber() const
2230{
d26adb9d 2231 return m_time.ToDouble() / MILLISECONDS_PER_DAY + EPOCH_JDN + 0.5;
e6ec579c
VZ
2232}
2233
2234double wxDateTime::GetRataDie() const
2235{
2236 // March 1 of the year 0 is Rata Die day -306 and JDN 1721119.5
2237 return GetJulianDayNumber() - 1721119.5 - 306;
2238}
2239
fcc3d7cb 2240// ----------------------------------------------------------------------------
299fcbfe 2241// timezone and DST stuff
fcc3d7cb
VZ
2242// ----------------------------------------------------------------------------
2243
299fcbfe 2244int wxDateTime::IsDST(wxDateTime::Country country) const
fcc3d7cb 2245{
299fcbfe
VZ
2246 wxCHECK_MSG( country == Country_Default, -1,
2247 _T("country support not implemented") );
2248
2249 // use the C RTL for the dates in the standard range
2250 time_t timet = GetTicks();
2251 if ( timet != (time_t)-1 )
2252 {
a452689b
SN
2253 struct tm tmstruct;
2254 tm *tm = wxLocaltime_r(&timet, &tmstruct);
299fcbfe 2255
a452689b 2256 wxCHECK_MSG( tm, -1, _T("wxLocaltime_r() failed") );
299fcbfe
VZ
2257
2258 return tm->tm_isdst;
2259 }
2260 else
2261 {
239446b4
VZ
2262 int year = GetYear();
2263
2264 if ( !IsDSTApplicable(year, country) )
2265 {
2266 // no DST time in this year in this country
2267 return -1;
2268 }
299fcbfe 2269
239446b4 2270 return IsBetween(GetBeginDST(year, country), GetEndDST(year, country));
299fcbfe 2271 }
fcc3d7cb
VZ
2272}
2273
41acf5c0 2274wxDateTime& wxDateTime::MakeTimezone(const TimeZone& tz, bool noDST)
fcc3d7cb 2275{
479cd5de 2276 long secDiff = GetTimeZone() + tz.GetOffset();
fcc3d7cb 2277
41acf5c0
VZ
2278 // we need to know whether DST is or not in effect for this date unless
2279 // the test disabled by the caller
2280 if ( !noDST && (IsDST() == 1) )
299fcbfe
VZ
2281 {
2282 // FIXME we assume that the DST is always shifted by 1 hour
2283 secDiff -= 3600;
2284 }
2285
d26adb9d
VZ
2286 return Add(wxTimeSpan::Seconds(secDiff));
2287}
2288
2289wxDateTime& wxDateTime::MakeFromTimezone(const TimeZone& tz, bool noDST)
2290{
2291 long secDiff = GetTimeZone() + tz.GetOffset();
2292
2293 // we need to know whether DST is or not in effect for this date unless
2294 // the test disabled by the caller
2295 if ( !noDST && (IsDST() == 1) )
2296 {
2297 // FIXME we assume that the DST is always shifted by 1 hour
2298 secDiff -= 3600;
2299 }
2300
f6bcfd97 2301 return Subtract(wxTimeSpan::Seconds(secDiff));
fcc3d7cb
VZ
2302}
2303
b76b015e
VZ
2304// ----------------------------------------------------------------------------
2305// wxDateTime to/from text representations
2306// ----------------------------------------------------------------------------
2307
12e82477 2308wxString wxDateTime::Format(const wxString& format, const TimeZone& tz) const
b76b015e 2309{
12e82477
VS
2310 wxCHECK_MSG( !format.empty(), wxEmptyString,
2311 _T("NULL format in wxDateTime::Format") );
e6ec579c 2312
f6bcfd97
BP
2313 // we have to use our own implementation if the date is out of range of
2314 // strftime() or if we use non standard specificators
bb7afa49 2315#ifdef HAVE_STRFTIME
b5085b02
WS
2316 time_t time = GetTicks();
2317
f6bcfd97 2318 if ( (time != (time_t)-1) && !wxStrstr(format, _T("%l")) )
b76b015e
VZ
2319 {
2320 // use strftime()
a452689b
SN
2321 struct tm tmstruct;
2322 struct tm *tm;
299fcbfe
VZ
2323 if ( tz.GetOffset() == -GetTimeZone() )
2324 {
2325 // we are working with local time
a452689b 2326 tm = wxLocaltime_r(&time, &tmstruct);
c5a1681b
VZ
2327
2328 // should never happen
a452689b 2329 wxCHECK_MSG( tm, wxEmptyString, _T("wxLocaltime_r() failed") );
299fcbfe
VZ
2330 }
2331 else
2332 {
479cd5de 2333 time += (int)tz.GetOffset();
299fcbfe 2334
33ac7e6f 2335#if defined(__VMS__) || defined(__WATCOMC__) // time is unsigned so avoid warning
13111b2a 2336 int time2 = (int) time;
9c2882d9 2337 if ( time2 >= 0 )
fb10f04c 2338#else
9c2882d9 2339 if ( time >= 0 )
fb10f04c 2340#endif
c5a1681b 2341 {
a452689b 2342 tm = wxGmtime_r(&time, &tmstruct);
b76b015e 2343
c5a1681b 2344 // should never happen
a452689b 2345 wxCHECK_MSG( tm, wxEmptyString, _T("wxGmtime_r() failed") );
c5a1681b
VZ
2346 }
2347 else
2348 {
2349 tm = (struct tm *)NULL;
2350 }
2351 }
bb7afa49 2352
c5a1681b 2353 if ( tm )
e6ec579c 2354 {
c5a1681b 2355 return CallStrftime(format, tm);
e6ec579c 2356 }
c5a1681b 2357 }
bb7afa49
VZ
2358 //else: use generic code below
2359#endif // HAVE_STRFTIME
c5a1681b 2360
68ee7c47 2361 // we only parse ANSI C format specifications here, no POSIX 2
f6bcfd97
BP
2362 // complications, no GNU extensions but we do add support for a "%l" format
2363 // specifier allowing to get the number of milliseconds
68ee7c47 2364 Tm tm = GetTm(tz);
e6ec579c 2365
68ee7c47
VZ
2366 // used for calls to strftime() when we only deal with time
2367 struct tm tmTimeOnly;
2368 tmTimeOnly.tm_hour = tm.hour;
2369 tmTimeOnly.tm_min = tm.min;
2370 tmTimeOnly.tm_sec = tm.sec;
2371 tmTimeOnly.tm_wday = 0;
2372 tmTimeOnly.tm_yday = 0;
2373 tmTimeOnly.tm_mday = 1; // any date will do
2374 tmTimeOnly.tm_mon = 0;
2375 tmTimeOnly.tm_year = 76;
2376 tmTimeOnly.tm_isdst = 0; // no DST, we adjust for tz ourselves
e6ec579c 2377
77c3e48a 2378 wxString tmp, res, fmt;
12e82477 2379 for ( wxString::const_iterator p = format.begin(); p != format.end(); ++p )
68ee7c47
VZ
2380 {
2381 if ( *p != _T('%') )
2382 {
2383 // copy as is
2384 res += *p;
b76b015e 2385
68ee7c47
VZ
2386 continue;
2387 }
e6ec579c 2388
77c3e48a 2389 // set the default format
12e82477 2390 switch ( (*++p).GetValue() )
77c3e48a
VZ
2391 {
2392 case _T('Y'): // year has 4 digits
2393 fmt = _T("%04d");
2394 break;
2395
2396 case _T('j'): // day of year has 3 digits
f6bcfd97 2397 case _T('l'): // milliseconds have 3 digits
77c3e48a
VZ
2398 fmt = _T("%03d");
2399 break;
2400
59d04dff
VZ
2401 case _T('w'): // week day as number has only one
2402 fmt = _T("%d");
2403 break;
2404
77c3e48a
VZ
2405 default:
2406 // it's either another valid format specifier in which case
2407 // the format is "%02d" (for all the rest) or we have the
2408 // field width preceding the format in which case it will
2409 // override the default format anyhow
2410 fmt = _T("%02d");
2411 }
2412
68379eaf 2413 bool restart = true;
fc3398f8 2414 while ( restart )
68ee7c47 2415 {
68379eaf 2416 restart = false;
68ee7c47 2417
fc3398f8 2418 // start of the format specification
12e82477 2419 switch ( (*p).GetValue() )
fc3398f8
VZ
2420 {
2421 case _T('a'): // a weekday name
2422 case _T('A'):
68379eaf 2423 // second parameter should be true for abbreviated names
fc3398f8
VZ
2424 res += GetWeekDayName(tm.GetWeekDay(),
2425 *p == _T('a') ? Name_Abbr : Name_Full);
2426 break;
68ee7c47 2427
fc3398f8
VZ
2428 case _T('b'): // a month name
2429 case _T('B'):
2430 res += GetMonthName(tm.mon,
2431 *p == _T('b') ? Name_Abbr : Name_Full);
2432 break;
2433
2434 case _T('c'): // locale default date and time representation
2435 case _T('x'): // locale default date representation
bb7afa49 2436#ifdef HAVE_STRFTIME
fc3398f8
VZ
2437 //
2438 // the problem: there is no way to know what do these format
2439 // specifications correspond to for the current locale.
2440 //
2441 // the solution: use a hack and still use strftime(): first
2442 // find the YEAR which is a year in the strftime() range (1970
2443 // - 2038) whose Jan 1 falls on the same week day as the Jan 1
2444 // of the real year. Then make a copy of the format and
3103e8a9 2445 // replace all occurrences of YEAR in it with some unique
fc3398f8
VZ
2446 // string not appearing anywhere else in it, then use
2447 // strftime() to format the date in year YEAR and then replace
2448 // YEAR back by the real year and the unique replacement
3103e8a9
JS
2449 // string back with YEAR. Notice that "all occurrences of YEAR"
2450 // means all occurrences of 4 digit as well as 2 digit form!
fc3398f8
VZ
2451 //
2452 // the bugs: we assume that neither of %c nor %x contains any
2453 // fields which may change between the YEAR and real year. For
2454 // example, the week number (%U, %W) and the day number (%j)
2455 // will change if one of these years is leap and the other one
2456 // is not!
68ee7c47 2457 {
8888d971 2458 // find the YEAR: normally, for any year X, Jan 1 of the
fc3398f8
VZ
2459 // year X + 28 is the same weekday as Jan 1 of X (because
2460 // the weekday advances by 1 for each normal X and by 2
2461 // for each leap X, hence by 5 every 4 years or by 35
2462 // which is 0 mod 7 every 28 years) but this rule breaks
2463 // down if there are years between X and Y which are
2464 // divisible by 4 but not leap (i.e. divisible by 100 but
2465 // not 400), hence the correction.
2466
2467 int yearReal = GetYear(tz);
2468 int mod28 = yearReal % 28;
2469
2470 // be careful to not go too far - we risk to leave the
2471 // supported range
2472 int year;
2473 if ( mod28 < 10 )
2474 {
2475 year = 1988 + mod28; // 1988 == 0 (mod 28)
2476 }
2477 else
2478 {
2479 year = 1970 + mod28 - 10; // 1970 == 10 (mod 28)
2480 }
e6ec579c 2481
fc3398f8
VZ
2482 int nCentury = year / 100,
2483 nCenturyReal = yearReal / 100;
c5a1681b 2484
fc3398f8
VZ
2485 // need to adjust for the years divisble by 400 which are
2486 // not leap but are counted like leap ones if we just take
2487 // the number of centuries in between for nLostWeekDays
2488 int nLostWeekDays = (nCentury - nCenturyReal) -
2489 (nCentury / 4 - nCenturyReal / 4);
c5a1681b 2490
fc3398f8
VZ
2491 // we have to gain back the "lost" weekdays: note that the
2492 // effect of this loop is to not do anything to
2493 // nLostWeekDays (which we won't use any more), but to
2494 // (indirectly) set the year correctly
2495 while ( (nLostWeekDays % 7) != 0 )
2496 {
2497 nLostWeekDays += year++ % 4 ? 1 : 2;
2498 }
88a7a4e1 2499
8888d971
VZ
2500 // finally move the year below 2000 so that the 2-digit
2501 // year number can never match the month or day of the
2502 // month when we do the replacements below
2503 if ( year >= 2000 )
2504 year -= 28;
c5a1681b 2505
8888d971
VZ
2506 wxASSERT_MSG( year >= 1970 && year < 2000,
2507 _T("logic error in wxDateTime::Format") );
88a7a4e1 2508
fc3398f8
VZ
2509
2510 // use strftime() to format the same date but in supported
2511 // year
2512 //
2513 // NB: we assume that strftime() doesn't check for the
2514 // date validity and will happily format the date
2515 // corresponding to Feb 29 of a non leap year (which
2516 // may happen if yearReal was leap and year is not)
2517 struct tm tmAdjusted;
2518 InitTm(tmAdjusted);
2519 tmAdjusted.tm_hour = tm.hour;
2520 tmAdjusted.tm_min = tm.min;
2521 tmAdjusted.tm_sec = tm.sec;
2522 tmAdjusted.tm_wday = tm.GetWeekDay();
2523 tmAdjusted.tm_yday = GetDayOfYear();
2524 tmAdjusted.tm_mday = tm.mday;
2525 tmAdjusted.tm_mon = tm.mon;
2526 tmAdjusted.tm_year = year - 1900;
2527 tmAdjusted.tm_isdst = 0; // no DST, already adjusted
2528 wxString str = CallStrftime(*p == _T('c') ? _T("%c")
2529 : _T("%x"),
2530 &tmAdjusted);
2531
8888d971
VZ
2532 // now replace the replacement year with the real year:
2533 // notice that we have to replace the 4 digit year with
2534 // a unique string not appearing in strftime() output
2535 // first to prevent the 2 digit year from matching any
2536 // substring of the 4 digit year (but any day, month,
2537 // hours or minutes components should be safe because
2538 // they are never in 70-99 range)
2539 wxString replacement("|");
2540 while ( str.find(replacement) != wxString::npos )
2541 replacement += '|';
2542
2543 str.Replace(wxString::Format("%d", year),
2544 replacement);
2545 str.Replace(wxString::Format("%d", year % 100),
2546 wxString::Format("%d", yearReal % 100));
2547 str.Replace(replacement,
2548 wxString::Format("%d", yearReal));
fc3398f8
VZ
2549
2550 res += str;
68ee7c47 2551 }
bb7afa49
VZ
2552#else // !HAVE_STRFTIME
2553 // Use "%m/%d/%y %H:%M:%S" format instead
ba9bbf13
WS
2554 res += wxString::Format(wxT("%02d/%02d/%04d %02d:%02d:%02d"),
2555 tm.mon+1,tm.mday, tm.year, tm.hour, tm.min, tm.sec);
bb7afa49 2556#endif // HAVE_STRFTIME/!HAVE_STRFTIME
fc3398f8 2557 break;
c5a1681b 2558
fc3398f8
VZ
2559 case _T('d'): // day of a month (01-31)
2560 res += wxString::Format(fmt, tm.mday);
2561 break;
68ee7c47 2562
fc3398f8
VZ
2563 case _T('H'): // hour in 24h format (00-23)
2564 res += wxString::Format(fmt, tm.hour);
2565 break;
2566
2567 case _T('I'): // hour in 12h format (01-12)
68ee7c47 2568 {
fc3398f8
VZ
2569 // 24h -> 12h, 0h -> 12h too
2570 int hour12 = tm.hour > 12 ? tm.hour - 12
2571 : tm.hour ? tm.hour : 12;
2572 res += wxString::Format(fmt, hour12);
68ee7c47 2573 }
fc3398f8 2574 break;
c5a1681b 2575
fc3398f8
VZ
2576 case _T('j'): // day of the year
2577 res += wxString::Format(fmt, GetDayOfYear(tz));
2578 break;
68ee7c47 2579
f6bcfd97
BP
2580 case _T('l'): // milliseconds (NOT STANDARD)
2581 res += wxString::Format(fmt, GetMillisecond(tz));
2582 break;
2583
fc3398f8
VZ
2584 case _T('m'): // month as a number (01-12)
2585 res += wxString::Format(fmt, tm.mon + 1);
2586 break;
68ee7c47 2587
fc3398f8
VZ
2588 case _T('M'): // minute as a decimal number (00-59)
2589 res += wxString::Format(fmt, tm.min);
2590 break;
68ee7c47 2591
fc3398f8 2592 case _T('p'): // AM or PM string
bb7afa49 2593#ifdef HAVE_STRFTIME
fc3398f8 2594 res += CallStrftime(_T("%p"), &tmTimeOnly);
bb7afa49 2595#else // !HAVE_STRFTIME
ba9bbf13 2596 res += (tmTimeOnly.tm_hour > 12) ? wxT("pm") : wxT("am");
bb7afa49 2597#endif // HAVE_STRFTIME/!HAVE_STRFTIME
fc3398f8 2598 break;
68ee7c47 2599
fc3398f8
VZ
2600 case _T('S'): // second as a decimal number (00-61)
2601 res += wxString::Format(fmt, tm.sec);
2602 break;
68ee7c47 2603
fc3398f8
VZ
2604 case _T('U'): // week number in the year (Sunday 1st week day)
2605 res += wxString::Format(fmt, GetWeekOfYear(Sunday_First, tz));
2606 break;
68ee7c47 2607
fc3398f8
VZ
2608 case _T('W'): // week number in the year (Monday 1st week day)
2609 res += wxString::Format(fmt, GetWeekOfYear(Monday_First, tz));
2610 break;
68ee7c47 2611
fc3398f8
VZ
2612 case _T('w'): // weekday as a number (0-6), Sunday = 0
2613 res += wxString::Format(fmt, tm.GetWeekDay());
2614 break;
68ee7c47 2615
fc3398f8 2616 // case _T('x'): -- handled with "%c"
68ee7c47 2617
fc3398f8
VZ
2618 case _T('X'): // locale default time representation
2619 // just use strftime() to format the time for us
bb7afa49 2620#ifdef HAVE_STRFTIME
fc3398f8 2621 res += CallStrftime(_T("%X"), &tmTimeOnly);
bb7afa49 2622#else // !HAVE_STRFTIME
ba9bbf13 2623 res += wxString::Format(wxT("%02d:%02d:%02d"),tm.hour, tm.min, tm.sec);
bb7afa49 2624#endif // HAVE_STRFTIME/!HAVE_STRFTIME
fc3398f8 2625 break;
68ee7c47 2626
fc3398f8
VZ
2627 case _T('y'): // year without century (00-99)
2628 res += wxString::Format(fmt, tm.year % 100);
2629 break;
68ee7c47 2630
fc3398f8
VZ
2631 case _T('Y'): // year with century
2632 res += wxString::Format(fmt, tm.year);
2633 break;
68ee7c47 2634
fc3398f8 2635 case _T('Z'): // timezone name
bb7afa49 2636#ifdef HAVE_STRFTIME
fc3398f8 2637 res += CallStrftime(_T("%Z"), &tmTimeOnly);
77b88df2 2638#endif
fc3398f8 2639 break;
68ee7c47 2640
fc3398f8
VZ
2641 default:
2642 // is it the format width?
2643 fmt.Empty();
2644 while ( *p == _T('-') || *p == _T('+') ||
2645 *p == _T(' ') || wxIsdigit(*p) )
2646 {
2647 fmt += *p;
2648 }
68ee7c47 2649
bb8a8478 2650 if ( !fmt.empty() )
fc3398f8
VZ
2651 {
2652 // we've only got the flags and width so far in fmt
2653 fmt.Prepend(_T('%'));
2654 fmt.Append(_T('d'));
68ee7c47 2655
68379eaf 2656 restart = true;
68ee7c47 2657
fc3398f8
VZ
2658 break;
2659 }
68ee7c47 2660
fc3398f8
VZ
2661 // no, it wasn't the width
2662 wxFAIL_MSG(_T("unknown format specificator"));
68ee7c47 2663
fc3398f8 2664 // fall through and just copy it nevertheless
68ee7c47 2665
fc3398f8
VZ
2666 case _T('%'): // a percent sign
2667 res += *p;
2668 break;
2669
2670 case 0: // the end of string
2671 wxFAIL_MSG(_T("missing format at the end of string"));
2672
2673 // just put the '%' which was the last char in format
2674 res += _T('%');
2675 break;
2676 }
68ee7c47 2677 }
c5a1681b
VZ
2678 }
2679
68ee7c47 2680 return res;
b76b015e 2681}
fcc3d7cb 2682
cd0b1709
VZ
2683// this function parses a string in (strict) RFC 822 format: see the section 5
2684// of the RFC for the detailed description, but briefly it's something of the
2685// form "Sat, 18 Dec 1999 00:48:30 +0100"
2686//
2687// this function is "strict" by design - it must reject anything except true
2688// RFC822 time specs.
2689//
2690// TODO a great candidate for using reg exps
71ebd60b
VZ
2691const char *
2692wxDateTime::ParseRfc822Date(const wxString& date, wxString::const_iterator *end)
cd0b1709 2693{
71ebd60b
VZ
2694 // TODO: rewrite using iterators instead of wxChar pointers
2695 const wxStringCharType *p = date.wx_str();
2696 const wxStringCharType *comma = wxStrchr(p, wxS(','));
cd0b1709
VZ
2697 if ( comma )
2698 {
2699 // the part before comma is the weekday
2700
2701 // skip it for now - we don't use but might check that it really
2702 // corresponds to the specfied date
2703 p = comma + 1;
2704
2705 if ( *p != _T(' ') )
2706 {
2707 wxLogDebug(_T("no space after weekday in RFC822 time spec"));
2708
71ebd60b 2709 return NULL;
cd0b1709
VZ
2710 }
2711
2712 p++; // skip space
2713 }
2714
2715 // the following 1 or 2 digits are the day number
2716 if ( !wxIsdigit(*p) )
2717 {
2718 wxLogDebug(_T("day number expected in RFC822 time spec, none found"));
2719
71ebd60b 2720 return NULL;
cd0b1709
VZ
2721 }
2722
907173e5 2723 wxDateTime_t day = (wxDateTime_t)(*p++ - _T('0'));
cd0b1709
VZ
2724 if ( wxIsdigit(*p) )
2725 {
2726 day *= 10;
907173e5 2727 day = (wxDateTime_t)(day + (*p++ - _T('0')));
cd0b1709
VZ
2728 }
2729
2730 if ( *p++ != _T(' ') )
2731 {
71ebd60b 2732 return NULL;
cd0b1709
VZ
2733 }
2734
2735 // the following 3 letters specify the month
2736 wxString monName(p, 3);
2737 Month mon;
2738 if ( monName == _T("Jan") )
2739 mon = Jan;
2740 else if ( monName == _T("Feb") )
2741 mon = Feb;
2742 else if ( monName == _T("Mar") )
2743 mon = Mar;
2744 else if ( monName == _T("Apr") )
2745 mon = Apr;
2746 else if ( monName == _T("May") )
2747 mon = May;
2748 else if ( monName == _T("Jun") )
2749 mon = Jun;
2750 else if ( monName == _T("Jul") )
2751 mon = Jul;
2752 else if ( monName == _T("Aug") )
2753 mon = Aug;
2754 else if ( monName == _T("Sep") )
2755 mon = Sep;
2756 else if ( monName == _T("Oct") )
2757 mon = Oct;
2758 else if ( monName == _T("Nov") )
2759 mon = Nov;
2760 else if ( monName == _T("Dec") )
2761 mon = Dec;
2762 else
2763 {
2764 wxLogDebug(_T("Invalid RFC 822 month name '%s'"), monName.c_str());
2765
71ebd60b 2766 return NULL;
cd0b1709
VZ
2767 }
2768
2769 p += 3;
2770
2771 if ( *p++ != _T(' ') )
2772 {
71ebd60b 2773 return NULL;
cd0b1709
VZ
2774 }
2775
2776 // next is the year
2777 if ( !wxIsdigit(*p) )
2778 {
2779 // no year?
71ebd60b 2780 return NULL;
cd0b1709
VZ
2781 }
2782
2783 int year = *p++ - _T('0');
2784
2785 if ( !wxIsdigit(*p) )
2786 {
2787 // should have at least 2 digits in the year
71ebd60b 2788 return NULL;
cd0b1709
VZ
2789 }
2790
2791 year *= 10;
2792 year += *p++ - _T('0');
2793
2794 // is it a 2 digit year (as per original RFC 822) or a 4 digit one?
2795 if ( wxIsdigit(*p) )
2796 {
2797 year *= 10;
2798 year += *p++ - _T('0');
2799
2800 if ( !wxIsdigit(*p) )
2801 {
2802 // no 3 digit years please
71ebd60b 2803 return NULL;
cd0b1709
VZ
2804 }
2805
2806 year *= 10;
2807 year += *p++ - _T('0');
2808 }
2809
2810 if ( *p++ != _T(' ') )
2811 {
71ebd60b 2812 return NULL;
cd0b1709
VZ
2813 }
2814
2815 // time is in the format hh:mm:ss and seconds are optional
2816 if ( !wxIsdigit(*p) )
2817 {
71ebd60b 2818 return NULL;
cd0b1709
VZ
2819 }
2820
42841dfc 2821 wxDateTime_t hour = (wxDateTime_t)(*p++ - _T('0'));
cd0b1709
VZ
2822
2823 if ( !wxIsdigit(*p) )
2824 {
71ebd60b 2825 return NULL;
cd0b1709
VZ
2826 }
2827
2828 hour *= 10;
42841dfc 2829 hour = (wxDateTime_t)(hour + (*p++ - _T('0')));
cd0b1709
VZ
2830
2831 if ( *p++ != _T(':') )
2832 {
71ebd60b 2833 return NULL;
cd0b1709
VZ
2834 }
2835
2836 if ( !wxIsdigit(*p) )
2837 {
71ebd60b 2838 return NULL;
cd0b1709
VZ
2839 }
2840
42841dfc 2841 wxDateTime_t min = (wxDateTime_t)(*p++ - _T('0'));
cd0b1709
VZ
2842
2843 if ( !wxIsdigit(*p) )
2844 {
71ebd60b 2845 return NULL;
cd0b1709
VZ
2846 }
2847
2848 min *= 10;
42841dfc 2849 min = (wxDateTime_t)(min + *p++ - _T('0'));
cd0b1709
VZ
2850
2851 wxDateTime_t sec = 0;
cf9f6737 2852 if ( *p == _T(':') )
cd0b1709 2853 {
cf9f6737 2854 p++;
cd0b1709
VZ
2855 if ( !wxIsdigit(*p) )
2856 {
71ebd60b 2857 return NULL;
cd0b1709
VZ
2858 }
2859
42841dfc 2860 sec = (wxDateTime_t)(*p++ - _T('0'));
cd0b1709
VZ
2861
2862 if ( !wxIsdigit(*p) )
2863 {
71ebd60b 2864 return NULL;
cd0b1709
VZ
2865 }
2866
2867 sec *= 10;
42841dfc 2868 sec = (wxDateTime_t)(sec + *p++ - _T('0'));
cd0b1709
VZ
2869 }
2870
2871 if ( *p++ != _T(' ') )
2872 {
71ebd60b 2873 return NULL;
cd0b1709
VZ
2874 }
2875
2876 // and now the interesting part: the timezone
ba9bbf13 2877 int offset wxDUMMY_INITIALIZE(0);
cd0b1709
VZ
2878 if ( *p == _T('-') || *p == _T('+') )
2879 {
2880 // the explicit offset given: it has the form of hhmm
2881 bool plus = *p++ == _T('+');
2882
2883 if ( !wxIsdigit(*p) || !wxIsdigit(*(p + 1)) )
2884 {
71ebd60b 2885 return NULL;
cd0b1709
VZ
2886 }
2887
2888 // hours
d26adb9d 2889 offset = MIN_PER_HOUR*(10*(*p - _T('0')) + (*(p + 1) - _T('0')));
cd0b1709
VZ
2890
2891 p += 2;
2892
2893 if ( !wxIsdigit(*p) || !wxIsdigit(*(p + 1)) )
2894 {
71ebd60b 2895 return NULL;
cd0b1709
VZ
2896 }
2897
2898 // minutes
2899 offset += 10*(*p - _T('0')) + (*(p + 1) - _T('0'));
2900
2901 if ( !plus )
2902 {
2903 offset = -offset;
2904 }
2905
2906 p += 2;
2907 }
2908 else
2909 {
2910 // the symbolic timezone given: may be either military timezone or one
2911 // of standard abbreviations
2912 if ( !*(p + 1) )
2913 {
2914 // military: Z = UTC, J unused, A = -1, ..., Y = +12
2915 static const int offsets[26] =
2916 {
2917 //A B C D E F G H I J K L M
2918 -1, -2, -3, -4, -5, -6, -7, -8, -9, 0, -10, -11, -12,
2919 //N O P R Q S T U V W Z Y Z
2920 +1, +2, +3, +4, +5, +6, +7, +8, +9, +10, +11, +12, 0
2921 };
2922
2923 if ( *p < _T('A') || *p > _T('Z') || *p == _T('J') )
2924 {
2925 wxLogDebug(_T("Invalid militaty timezone '%c'"), *p);
2926
71ebd60b 2927 return NULL;
cd0b1709
VZ
2928 }
2929
2930 offset = offsets[*p++ - _T('A')];
2931 }
2932 else
2933 {
2934 // abbreviation
2935 wxString tz = p;
2936 if ( tz == _T("UT") || tz == _T("UTC") || tz == _T("GMT") )
2937 offset = 0;
2938 else if ( tz == _T("AST") )
2939 offset = AST - GMT0;
2940 else if ( tz == _T("ADT") )
2941 offset = ADT - GMT0;
2942 else if ( tz == _T("EST") )
2943 offset = EST - GMT0;
2944 else if ( tz == _T("EDT") )
2945 offset = EDT - GMT0;
2946 else if ( tz == _T("CST") )
2947 offset = CST - GMT0;
2948 else if ( tz == _T("CDT") )
2949 offset = CDT - GMT0;
2950 else if ( tz == _T("MST") )
2951 offset = MST - GMT0;
2952 else if ( tz == _T("MDT") )
2953 offset = MDT - GMT0;
2954 else if ( tz == _T("PST") )
2955 offset = PST - GMT0;
2956 else if ( tz == _T("PDT") )
2957 offset = PDT - GMT0;
2958 else
2959 {
2960 wxLogDebug(_T("Unknown RFC 822 timezone '%s'"), p);
2961
71ebd60b 2962 return NULL;
cd0b1709
VZ
2963 }
2964
2965 p += tz.length();
2966 }
96531a71 2967
cd0b1709 2968 // make it minutes
d26adb9d 2969 offset *= MIN_PER_HOUR;
cd0b1709
VZ
2970 }
2971
d26adb9d 2972 // the spec was correct, construct the date from the values we found
cd0b1709 2973 Set(day, mon, year, hour, min, sec);
1cf57808 2974 MakeFromTimezone(TimeZone::Make(offset*SEC_PER_MIN));
cd0b1709 2975
71ebd60b
VZ
2976 const size_t endpos = p - date.wx_str();
2977 if ( end )
2978 *end = date.begin() + endpos;
2979
2980 return date.c_str() + endpos;
cd0b1709
VZ
2981}
2982
64f9c100 2983#ifdef __WINDOWS__
e44501a0 2984
be4e7abf
VZ
2985// returns the string containing strftime() format used for short dates in the
2986// current locale or an empty string
2987static wxString GetLocaleDateFormat()
64f9c100 2988{
be4e7abf
VZ
2989 wxString fmtWX;
2990
05eb2d40
VZ
2991 // there is no setlocale() under Windows CE, so just always query the
2992 // system there
2993#ifndef __WXWINCE__
64f9c100 2994 if ( strcmp(setlocale(LC_ALL, NULL), "C") != 0 )
e44501a0 2995#endif
64f9c100
VS
2996 {
2997 // The locale was programatically set to non-C. We assume that this was
2998 // done using wxLocale, in which case thread's current locale is also
2999 // set to correct LCID value and we can use GetLocaleInfo to determine
3000 // the correct formatting string:
c5fe22f8
JS
3001#ifdef __WXWINCE__
3002 LCID lcid = LOCALE_USER_DEFAULT;
3003#else
64f9c100 3004 LCID lcid = GetThreadLocale();
c5fe22f8 3005#endif
be4e7abf
VZ
3006 // according to MSDN 80 chars is max allowed for short date format
3007 wxChar fmt[81];
3008 if ( ::GetLocaleInfo(lcid, LOCALE_SSHORTDATE, fmt, WXSIZEOF(fmt)) )
64f9c100 3009 {
be4e7abf
VZ
3010 wxChar chLast = _T('\0');
3011 size_t lastCount = 0;
3012 for ( const wxChar *p = fmt; /* NUL handled inside */; p++ )
64f9c100 3013 {
be4e7abf 3014 if ( *p == chLast )
64f9c100 3015 {
be4e7abf
VZ
3016 lastCount++;
3017 continue;
64f9c100 3018 }
be4e7abf
VZ
3019
3020 switch ( *p )
64f9c100 3021 {
be4e7abf
VZ
3022 // these characters come in groups, start counting them
3023 case _T('d'):
3024 case _T('M'):
3025 case _T('y'):
3026 case _T('g'):
3027 chLast = *p;
3028 lastCount = 1;
3029 break;
3030
3031 default:
3032 // first deal with any special characters we have had
3033 if ( lastCount )
3034 {
3035 switch ( chLast )
3036 {
3037 case _T('d'):
3038 switch ( lastCount )
3039 {
3040 case 1: // d
3041 case 2: // dd
3042 // these two are the same as we
3043 // don't distinguish between 1 and
3044 // 2 digits for days
3045 fmtWX += _T("%d");
3046 break;
3047
3048 case 3: // ddd
3049 fmtWX += _T("%a");
3050 break;
3051
3052 case 4: // dddd
3053 fmtWX += _T("%A");
3054 break;
3055
3056 default:
3057 wxFAIL_MSG( _T("too many 'd's") );
3058 }
3059 break;
3060
3061 case _T('M'):
3062 switch ( lastCount )
3063 {
3064 case 1: // M
3065 case 2: // MM
3066 // as for 'd' and 'dd' above
3067 fmtWX += _T("%m");
3068 break;
3069
3070 case 3:
3071 fmtWX += _T("%b");
3072 break;
3073
3074 case 4:
3075 fmtWX += _T("%B");
3076 break;
3077
3078 default:
3079 wxFAIL_MSG( _T("too many 'M's") );
3080 }
3081 break;
3082
3083 case _T('y'):
3084 switch ( lastCount )
3085 {
3086 case 1: // y
3087 case 2: // yy
3088 fmtWX += _T("%y");
3089 break;
3090
3091 case 4: // yyyy
3092 fmtWX += _T("%Y");
3093 break;
3094
3095 default:
3096 wxFAIL_MSG( _T("wrong number of 'y's") );
3097 }
3098 break;
3099
3100 case _T('g'):
3101 // strftime() doesn't have era string,
3102 // ignore this format
3103 wxASSERT_MSG( lastCount <= 2,
3104 _T("too many 'g's") );
3105 break;
3106
3107 default:
3108 wxFAIL_MSG( _T("unreachable") );
3109 }
3110
3111 chLast = _T('\0');
3112 lastCount = 0;
3113 }
3114
3115 // not a special character so must be just a separator,
3116 // treat as is
3117 if ( *p != _T('\0') )
3118 {
3119 if ( *p == _T('%') )
3120 {
3121 // this one needs to be escaped
3122 fmtWX += _T('%');
3123 }
3124
3125 fmtWX += *p;
3126 }
64f9c100 3127 }
be4e7abf
VZ
3128
3129 if ( *p == _T('\0') )
3130 break;
64f9c100
VS
3131 }
3132 }
be4e7abf
VZ
3133 //else: GetLocaleInfo() failed, leave fmtDate value unchanged and
3134 // try our luck with the default formats
64f9c100 3135 }
be4e7abf
VZ
3136 //else: default C locale, default formats should work
3137
3138 return fmtWX;
64f9c100 3139}
e44501a0 3140
64f9c100
VS
3141#endif // __WINDOWS__
3142
71ebd60b
VZ
3143const char *
3144wxDateTime::ParseFormat(const wxString& date,
3145 const wxString& format,
3146 const wxDateTime& dateDef,
3147 wxString::const_iterator *end)
cd0b1709 3148{
71ebd60b 3149 wxCHECK_MSG( !format.empty(), NULL, "format can't be empty" );
cd0b1709 3150
f0f951fa
VZ
3151 wxString str;
3152 unsigned long num;
cd0b1709 3153
f0f951fa 3154 // what fields have we found?
68379eaf
WS
3155 bool haveWDay = false,
3156 haveYDay = false,
3157 haveDay = false,
3158 haveMon = false,
3159 haveYear = false,
3160 haveHour = false,
3161 haveMin = false,
3162 haveSec = false;
3163
3164 bool hourIsIn12hFormat = false, // or in 24h one?
3165 isPM = false; // AM by default
f0f951fa
VZ
3166
3167 // and the value of the items we have (init them to get rid of warnings)
3168 wxDateTime_t sec = 0,
3169 min = 0,
3170 hour = 0;
3171 WeekDay wday = Inv_WeekDay;
3172 wxDateTime_t yday = 0,
3173 mday = 0;
3174 wxDateTime::Month mon = Inv_Month;
3175 int year = 0;
3176
71ebd60b 3177 const wxStringCharType *input = date.wx_str();
12e82477 3178 for ( wxString::const_iterator fmt = format.begin(); fmt != format.end(); ++fmt )
f0f951fa
VZ
3179 {
3180 if ( *fmt != _T('%') )
3181 {
3182 if ( wxIsspace(*fmt) )
3183 {
3184 // a white space in the format string matches 0 or more white
3185 // spaces in the input
3186 while ( wxIsspace(*input) )
3187 {
3188 input++;
3189 }
3190 }
3191 else // !space
3192 {
3193 // any other character (not whitespace, not '%') must be
3194 // matched by itself in the input
3195 if ( *input++ != *fmt )
3196 {
3197 // no match
71ebd60b 3198 return NULL;
f0f951fa
VZ
3199 }
3200 }
3201
3202 // done with this format char
3203 continue;
3204 }
3205
3206 // start of a format specification
f6bcfd97
BP
3207
3208 // parse the optional width
3209 size_t width = 0;
1c193821 3210 while ( wxIsdigit(*++fmt) )
f6bcfd97
BP
3211 {
3212 width *= 10;
3213 width += *fmt - _T('0');
3214 }
3215
4147efe9
VZ
3216 // the default widths for the various fields
3217 if ( !width )
3218 {
12e82477 3219 switch ( (*fmt).GetValue() )
4147efe9
VZ
3220 {
3221 case _T('Y'): // year has 4 digits
3222 width = 4;
3223 break;
3224
3225 case _T('j'): // day of year has 3 digits
3226 case _T('l'): // milliseconds have 3 digits
3227 width = 3;
3228 break;
3229
3230 case _T('w'): // week day as number has only one
3231 width = 1;
3232 break;
3233
3234 default:
3235 // default for all other fields
3236 width = 2;
3237 }
3238 }
3239
f6bcfd97 3240 // then the format itself
12e82477 3241 switch ( (*fmt).GetValue() )
f0f951fa
VZ
3242 {
3243 case _T('a'): // a weekday name
3244 case _T('A'):
3245 {
3246 int flag = *fmt == _T('a') ? Name_Abbr : Name_Full;
3247 wday = GetWeekDayFromName(GetAlphaToken(input), flag);
3248 if ( wday == Inv_WeekDay )
3249 {
3250 // no match
71ebd60b 3251 return NULL;
f0f951fa
VZ
3252 }
3253 }
68379eaf 3254 haveWDay = true;
f0f951fa
VZ
3255 break;
3256
3257 case _T('b'): // a month name
3258 case _T('B'):
3259 {
3260 int flag = *fmt == _T('b') ? Name_Abbr : Name_Full;
3261 mon = GetMonthFromName(GetAlphaToken(input), flag);
3262 if ( mon == Inv_Month )
3263 {
3264 // no match
71ebd60b 3265 return NULL;
f0f951fa
VZ
3266 }
3267 }
68379eaf 3268 haveMon = true;
f0f951fa
VZ
3269 break;
3270
3271 case _T('c'): // locale default date and time representation
3272 {
3273 wxDateTime dt;
3274
71ebd60b 3275 const wxString inc(input);
f0f951fa 3276
71ebd60b
VZ
3277 // try the format which corresponds to ctime() output first
3278 wxString::const_iterator endc;
3279 if ( !dt.ParseFormat(inc, wxS("%a %b %d %H:%M:%S %Y"), &endc) &&
3280 !dt.ParseFormat(inc, wxS("%x %X"), &endc) &&
3281 !dt.ParseFormat(inc, wxS("%X %x"), &endc) )
f0f951fa
VZ
3282 {
3283 // we've tried everything and still no match
71ebd60b 3284 return NULL;
f0f951fa
VZ
3285 }
3286
be4017f8
VZ
3287 Tm tm = dt.GetTm();
3288
3289 haveDay = haveMon = haveYear =
68379eaf 3290 haveHour = haveMin = haveSec = true;
be4017f8
VZ
3291
3292 hour = tm.hour;
3293 min = tm.min;
3294 sec = tm.sec;
3295
3296 year = tm.year;
3297 mon = tm.mon;
3298 mday = tm.mday;
3299
71ebd60b 3300 input += endc - inc.begin();
f0f951fa
VZ
3301 }
3302 break;
3303
3304 case _T('d'): // day of a month (01-31)
f6bcfd97
BP
3305 if ( !GetNumericToken(width, input, &num) ||
3306 (num > 31) || (num < 1) )
f0f951fa
VZ
3307 {
3308 // no match
71ebd60b 3309 return NULL;
f0f951fa
VZ
3310 }
3311
3312 // we can't check whether the day range is correct yet, will
3313 // do it later - assume ok for now
68379eaf 3314 haveDay = true;
f0f951fa
VZ
3315 mday = (wxDateTime_t)num;
3316 break;
5f287370 3317
f0f951fa 3318 case _T('H'): // hour in 24h format (00-23)
f6bcfd97 3319 if ( !GetNumericToken(width, input, &num) || (num > 23) )
f0f951fa
VZ
3320 {
3321 // no match
71ebd60b 3322 return NULL;
f0f951fa
VZ
3323 }
3324
68379eaf 3325 haveHour = true;
f0f951fa
VZ
3326 hour = (wxDateTime_t)num;
3327 break;
3328
3329 case _T('I'): // hour in 12h format (01-12)
f6bcfd97 3330 if ( !GetNumericToken(width, input, &num) || !num || (num > 12) )
f0f951fa
VZ
3331 {
3332 // no match
71ebd60b 3333 return NULL;
f0f951fa
VZ
3334 }
3335
68379eaf
WS
3336 haveHour = true;
3337 hourIsIn12hFormat = true;
479cd5de 3338 hour = (wxDateTime_t)(num % 12); // 12 should be 0
f0f951fa
VZ
3339 break;
3340
3341 case _T('j'): // day of the year
f6bcfd97 3342 if ( !GetNumericToken(width, input, &num) || !num || (num > 366) )
f0f951fa
VZ
3343 {
3344 // no match
71ebd60b 3345 return NULL;
f0f951fa
VZ
3346 }
3347
68379eaf 3348 haveYDay = true;
f0f951fa
VZ
3349 yday = (wxDateTime_t)num;
3350 break;
3351
3352 case _T('m'): // month as a number (01-12)
f6bcfd97 3353 if ( !GetNumericToken(width, input, &num) || !num || (num > 12) )
f0f951fa
VZ
3354 {
3355 // no match
71ebd60b 3356 return NULL;
f0f951fa
VZ
3357 }
3358
68379eaf 3359 haveMon = true;
be4017f8 3360 mon = (Month)(num - 1);
f0f951fa
VZ
3361 break;
3362
3363 case _T('M'): // minute as a decimal number (00-59)
f6bcfd97 3364 if ( !GetNumericToken(width, input, &num) || (num > 59) )
f0f951fa
VZ
3365 {
3366 // no match
71ebd60b 3367 return NULL;
f0f951fa
VZ
3368 }
3369
68379eaf 3370 haveMin = true;
f0f951fa
VZ
3371 min = (wxDateTime_t)num;
3372 break;
3373
3374 case _T('p'): // AM or PM string
3375 {
3376 wxString am, pm, token = GetAlphaToken(input);
3377
3378 GetAmPmStrings(&am, &pm);
bb8a8478 3379 if (am.empty() && pm.empty())
71ebd60b 3380 return NULL; // no am/pm strings defined
f0f951fa
VZ
3381 if ( token.CmpNoCase(pm) == 0 )
3382 {
68379eaf 3383 isPM = true;
f0f951fa
VZ
3384 }
3385 else if ( token.CmpNoCase(am) != 0 )
3386 {
3387 // no match
71ebd60b 3388 return NULL;
f0f951fa
VZ
3389 }
3390 }
3391 break;
3392
3393 case _T('r'): // time as %I:%M:%S %p
3394 {
3395 wxDateTime dt;
33718736 3396 input = dt.ParseFormat(input, wxS("%I:%M:%S %p"));
f0f951fa
VZ
3397 if ( !input )
3398 {
3399 // no match
71ebd60b 3400 return NULL;
f0f951fa
VZ
3401 }
3402
68379eaf 3403 haveHour = haveMin = haveSec = true;
f0f951fa
VZ
3404
3405 Tm tm = dt.GetTm();
3406 hour = tm.hour;
3407 min = tm.min;
3408 sec = tm.sec;
3409 }
3410 break;
3411
3412 case _T('R'): // time as %H:%M
3413 {
3414 wxDateTime dt;
33718736 3415 input = dt.ParseFormat(input, wxS("%H:%M"));
f0f951fa
VZ
3416 if ( !input )
3417 {
3418 // no match
71ebd60b 3419 return NULL;
f0f951fa
VZ
3420 }
3421
68379eaf 3422 haveHour = haveMin = true;
f0f951fa
VZ
3423
3424 Tm tm = dt.GetTm();
3425 hour = tm.hour;
3426 min = tm.min;
3427 }
7d3e806d 3428 break;
f0f951fa
VZ
3429
3430 case _T('S'): // second as a decimal number (00-61)
f6bcfd97 3431 if ( !GetNumericToken(width, input, &num) || (num > 61) )
f0f951fa
VZ
3432 {
3433 // no match
71ebd60b 3434 return NULL;
f0f951fa
VZ
3435 }
3436
68379eaf 3437 haveSec = true;
f0f951fa
VZ
3438 sec = (wxDateTime_t)num;
3439 break;
3440
3441 case _T('T'): // time as %H:%M:%S
3442 {
3443 wxDateTime dt;
3444 input = dt.ParseFormat(input, _T("%H:%M:%S"));
3445 if ( !input )
3446 {
3447 // no match
71ebd60b 3448 return NULL;
f0f951fa
VZ
3449 }
3450
68379eaf 3451 haveHour = haveMin = haveSec = true;
f0f951fa
VZ
3452
3453 Tm tm = dt.GetTm();
3454 hour = tm.hour;
3455 min = tm.min;
3456 sec = tm.sec;
3457 }
be4017f8 3458 break;
f0f951fa
VZ
3459
3460 case _T('w'): // weekday as a number (0-6), Sunday = 0
f6bcfd97 3461 if ( !GetNumericToken(width, input, &num) || (wday > 6) )
f0f951fa
VZ
3462 {
3463 // no match
71ebd60b 3464 return NULL;
f0f951fa
VZ
3465 }
3466
68379eaf 3467 haveWDay = true;
f0f951fa
VZ
3468 wday = (WeekDay)num;
3469 break;
3470
3471 case _T('x'): // locale default date representation
3472#ifdef HAVE_STRPTIME
2423ef22 3473 // try using strptime() -- it may fail even if the input is
f0f951fa 3474 // correct but the date is out of range, so we will fall back
2423ef22 3475 // to our generic code anyhow
f0f951fa
VZ
3476 {
3477 struct tm tm;
2423ef22 3478
71ebd60b
VZ
3479 const wxStringCharType *
3480 result = CallStrptime(input, "%x", &tm);
f0f951fa
VZ
3481 if ( result )
3482 {
3483 input = result;
3484
68379eaf 3485 haveDay = haveMon = haveYear = true;
f0f951fa
VZ
3486
3487 year = 1900 + tm.tm_year;
3488 mon = (Month)tm.tm_mon;
3489 mday = tm.tm_mday;
3490
3491 break;
3492 }
3493 }
3494#endif // HAVE_STRPTIME
3495
f0f951fa
VZ
3496 {
3497 wxDateTime dt;
be4e7abf
VZ
3498 wxString fmtDate,
3499 fmtDateAlt;
f0f951fa 3500
64f9c100
VS
3501#ifdef __WINDOWS__
3502 // The above doesn't work for all locales, try to query
3503 // Windows for the right way of formatting the date:
be4e7abf
VZ
3504 fmtDate = GetLocaleDateFormat();
3505 if ( fmtDate.empty() )
71ebd60b 3506#endif // __WINDOWS__
be4e7abf
VZ
3507 {
3508 if ( IsWestEuropeanCountry(GetCountry()) ||
3509 GetCountry() == Russia )
3510 {
3511 fmtDate = _T("%d/%m/%y");
3512 fmtDateAlt = _T("%m/%d/%y");
3513 }
3514 else // assume USA
3515 {
3516 fmtDate = _T("%m/%d/%y");
3517 fmtDateAlt = _T("%d/%m/%y");
3518 }
3519 }
64f9c100 3520
71ebd60b
VZ
3521 const wxString indate(input);
3522 wxString::const_iterator endDate;
3523 if ( !dt.ParseFormat(indate, fmtDate, &endDate) )
f0f951fa 3524 {
71ebd60b
VZ
3525 // try another one if we have it
3526 if ( fmtDateAlt.empty() ||
3527 !dt.ParseFormat(indate, fmtDateAlt, &endDate) )
3528 {
3529 return NULL;
3530 }
f0f951fa
VZ
3531 }
3532
3533 Tm tm = dt.GetTm();
3534
71ebd60b
VZ
3535 haveDay =
3536 haveMon =
3537 haveYear = true;
f0f951fa
VZ
3538
3539 year = tm.year;
3540 mon = tm.mon;
3541 mday = tm.mday;
3542
71ebd60b 3543 input += endDate - indate.begin();
f0f951fa
VZ
3544 }
3545
3546 break;
3547
3548 case _T('X'): // locale default time representation
3549#ifdef HAVE_STRPTIME
3550 {
3551 // use strptime() to do it for us (FIXME !Unicode friendly)
3552 struct tm tm;
2423ef22 3553 input = CallStrptime(input, "%X", &tm);
f0f951fa
VZ
3554 if ( !input )
3555 {
71ebd60b 3556 return NULL;
f0f951fa
VZ
3557 }
3558
68379eaf 3559 haveHour = haveMin = haveSec = true;
f0f951fa
VZ
3560
3561 hour = tm.tm_hour;
3562 min = tm.tm_min;
3563 sec = tm.tm_sec;
3564 }
3565#else // !HAVE_STRPTIME
3566 // TODO under Win32 we can query the LOCALE_ITIME system
3567 // setting which says whether the default time format is
3568 // 24 or 12 hour
3569 {
3570 // try to parse what follows as "%H:%M:%S" and, if this
3571 // fails, as "%I:%M:%S %p" - this should catch the most
3572 // common cases
3573 wxDateTime dt;
3574
07089556
VZ
3575 const wxStringCharType *
3576 result = dt.ParseFormat(input, wxS("%T"));
f0f951fa
VZ
3577 if ( !result )
3578 {
07089556 3579 result = dt.ParseFormat(input, wxS("%r"));
f0f951fa
VZ
3580 }
3581
3582 if ( !result )
3583 {
3584 // no match
71ebd60b 3585 return NULL;
f0f951fa
VZ
3586 }
3587
07089556
VZ
3588 haveHour =
3589 haveMin =
3590 haveSec = true;
f0f951fa
VZ
3591
3592 Tm tm = dt.GetTm();
3593 hour = tm.hour;
3594 min = tm.min;
3595 sec = tm.sec;
3596
3597 input = result;
3598 }
3599#endif // HAVE_STRPTIME/!HAVE_STRPTIME
3600 break;
3601
3602 case _T('y'): // year without century (00-99)
f6bcfd97 3603 if ( !GetNumericToken(width, input, &num) || (num > 99) )
f0f951fa
VZ
3604 {
3605 // no match
71ebd60b 3606 return NULL;
f0f951fa
VZ
3607 }
3608
68379eaf 3609 haveYear = true;
f6bcfd97
BP
3610
3611 // TODO should have an option for roll over date instead of
3612 // hard coding it here
3613 year = (num > 30 ? 1900 : 2000) + (wxDateTime_t)num;
f0f951fa
VZ
3614 break;
3615
3616 case _T('Y'): // year with century
f6bcfd97 3617 if ( !GetNumericToken(width, input, &num) )
f0f951fa
VZ
3618 {
3619 // no match
71ebd60b 3620 return NULL;
f0f951fa
VZ
3621 }
3622
68379eaf 3623 haveYear = true;
be4017f8 3624 year = (wxDateTime_t)num;
f0f951fa
VZ
3625 break;
3626
3627 case _T('Z'): // timezone name
3628 wxFAIL_MSG(_T("TODO"));
3629 break;
3630
3631 case _T('%'): // a percent sign
3632 if ( *input++ != _T('%') )
3633 {
3634 // no match
71ebd60b 3635 return NULL;
f0f951fa
VZ
3636 }
3637 break;
3638
3639 case 0: // the end of string
3640 wxFAIL_MSG(_T("unexpected format end"));
3641
3642 // fall through
3643
3644 default: // not a known format spec
71ebd60b 3645 return NULL;
f0f951fa
VZ
3646 }
3647 }
3648
3649 // format matched, try to construct a date from what we have now
3650 Tm tmDef;
3651 if ( dateDef.IsValid() )
3652 {
3653 // take this date as default
3654 tmDef = dateDef.GetTm();
3655 }
c3302e7e 3656 else if ( IsValid() )
f0f951fa
VZ
3657 {
3658 // if this date is valid, don't change it
3659 tmDef = GetTm();
3660 }
3661 else
3662 {
3663 // no default and this date is invalid - fall back to Today()
3664 tmDef = Today().GetTm();
3665 }
3666
3667 Tm tm = tmDef;
3668
3669 // set the date
3670 if ( haveYear )
3671 {
3672 tm.year = year;
3673 }
3674
3675 // TODO we don't check here that the values are consistent, if both year
3676 // day and month/day were found, we just ignore the year day and we
3677 // also always ignore the week day
3678 if ( haveMon && haveDay )
3679 {
be4017f8
VZ
3680 if ( mday > GetNumOfDaysInMonth(tm.year, mon) )
3681 {
3682 wxLogDebug(_T("bad month day in wxDateTime::ParseFormat"));
3683
71ebd60b 3684 return NULL;
be4017f8
VZ
3685 }
3686
f0f951fa
VZ
3687 tm.mon = mon;
3688 tm.mday = mday;
3689 }
3690 else if ( haveYDay )
3691 {
be4017f8
VZ
3692 if ( yday > GetNumberOfDays(tm.year) )
3693 {
3694 wxLogDebug(_T("bad year day in wxDateTime::ParseFormat"));
3695
71ebd60b 3696 return NULL;
be4017f8
VZ
3697 }
3698
f0f951fa
VZ
3699 Tm tm2 = wxDateTime(1, Jan, tm.year).SetToYearDay(yday).GetTm();
3700
3701 tm.mon = tm2.mon;
3702 tm.mday = tm2.mday;
3703 }
3704
3705 // deal with AM/PM
3706 if ( haveHour && hourIsIn12hFormat && isPM )
3707 {
3708 // translate to 24hour format
3709 hour += 12;
3710 }
3711 //else: either already in 24h format or no translation needed
3712
3713 // set the time
3714 if ( haveHour )
3715 {
5f287370 3716 tm.hour = hour;
f0f951fa
VZ
3717 }
3718
3719 if ( haveMin )
3720 {
3721 tm.min = min;
3722 }
3723
3724 if ( haveSec )
3725 {
3726 tm.sec = sec;
3727 }
3728
3729 Set(tm);
3730
88a036ce
VZ
3731 // finally check that the week day is consistent -- if we had it
3732 if ( haveWDay && GetWeekDay() != wday )
3733 {
3734 wxLogDebug(_T("inconsistsnet week day in wxDateTime::ParseFormat()"));
3735
3736 return NULL;
3737 }
3738
71ebd60b
VZ
3739 const size_t endpos = input - date.wx_str();
3740 if ( end )
3741 *end = date.begin() + endpos;
3742
3743 return date.c_str() + endpos;
cd0b1709
VZ
3744}
3745
71ebd60b
VZ
3746const char *
3747wxDateTime::ParseDateTime(const wxString& date, wxString::const_iterator *end)
cd0b1709 3748{
de07d200
VZ
3749 // Set to current day and hour, so strings like '14:00' becomes today at
3750 // 14, not some other random date
3751 wxDateTime dtDate = wxDateTime::Today();
3752 wxDateTime dtTime = wxDateTime::Today();
cd0b1709 3753
71ebd60b
VZ
3754 wxString::const_iterator
3755 endTime,
3756 endDate,
3757 endBoth;
de07d200 3758
71ebd60b
VZ
3759 // If we got a date in the beginning, see if there is a time specified
3760 // after the date
3761 if ( dtDate.ParseDate(date, &endDate) )
de07d200
VZ
3762 {
3763 // Skip spaces, as the ParseTime() function fails on spaces
71ebd60b
VZ
3764 while ( endDate != date.end() && wxIsspace(*endDate) )
3765 ++endDate;
de07d200 3766
71ebd60b
VZ
3767 const wxString timestr(endDate, date.end());
3768 if ( !dtTime.ParseTime(timestr, &endTime) )
3769 return NULL;
3770
3771 endBoth = endDate + (endTime - timestr.begin());
de07d200
VZ
3772 }
3773 else // no date in the beginning
3774 {
71ebd60b
VZ
3775 // check if we have a time followed by a date
3776 if ( !dtTime.ParseTime(date, &endTime) )
3777 return NULL;
de07d200 3778
71ebd60b
VZ
3779 while ( endTime != date.end() && wxIsspace(*endTime) )
3780 ++endTime;
de07d200 3781
71ebd60b
VZ
3782 const wxString datestr(endTime, date.end());
3783 if ( !dtDate.ParseDate(datestr, &endDate) )
3784 return NULL;
3785
3786 endBoth = endTime + (endDate - datestr.begin());
3787 }
de07d200
VZ
3788
3789 Set(dtDate.GetDay(), dtDate.GetMonth(), dtDate.GetYear(),
3790 dtTime.GetHour(), dtTime.GetMinute(), dtTime.GetSecond(),
3791 dtTime.GetMillisecond());
3792
3793 // Return endpoint of scan
71ebd60b
VZ
3794 if ( end )
3795 *end = endBoth;
3796
3797 return date.c_str() + (endBoth - date.begin());
cd0b1709
VZ
3798}
3799
71ebd60b
VZ
3800const char *
3801wxDateTime::ParseDate(const wxString& date, wxString::const_iterator *end)
cd0b1709
VZ
3802{
3803 // this is a simplified version of ParseDateTime() which understands only
3804 // "today" (for wxDate compatibility) and digits only otherwise (and not
3805 // all esoteric constructions ParseDateTime() knows about)
3806
71ebd60b 3807 const wxStringCharType *p = date.wx_str();
cd0b1709
VZ
3808 while ( wxIsspace(*p) )
3809 p++;
3810
fd9f9f4c
VZ
3811 // some special cases
3812 static struct
cd0b1709 3813 {
e6d4038a 3814 const char *str;
fd9f9f4c
VZ
3815 int dayDiffFromToday;
3816 } literalDates[] =
3817 {
3818 { wxTRANSLATE("today"), 0 },
3819 { wxTRANSLATE("yesterday"), -1 },
3820 { wxTRANSLATE("tomorrow"), 1 },
3821 };
3822
3823 for ( size_t n = 0; n < WXSIZEOF(literalDates); n++ )
3824 {
7a7bd38a
VZ
3825 const wxString dateStr = wxGetTranslation(literalDates[n].str);
3826 size_t len = dateStr.length();
907173e5 3827 if ( wxStrlen(p) >= len )
fd9f9f4c 3828 {
907173e5 3829 wxString str(p, len);
7a7bd38a 3830 if ( str.CmpNoCase(dateStr) == 0 )
fd9f9f4c 3831 {
907173e5
WS
3832 // nothing can follow this, so stop here
3833 p += len;
3834
3835 int dayDiffFromToday = literalDates[n].dayDiffFromToday;
3836 *this = Today();
3837 if ( dayDiffFromToday )
3838 {
3839 *this += wxDateSpan::Days(dayDiffFromToday);
3840 }
cd0b1709 3841
71ebd60b
VZ
3842 const size_t endpos = p - date.wx_str();
3843
3844 if ( end )
3845 *end = date.begin() + endpos;
3846 return date.c_str() + endpos;
907173e5 3847 }
fd9f9f4c 3848 }
cd0b1709
VZ
3849 }
3850
3ca6a5f0
BP
3851 // We try to guess what we have here: for each new (numeric) token, we
3852 // determine if it can be a month, day or a year. Of course, there is an
3853 // ambiguity as some numbers may be days as well as months, so we also
3854 // have the ability to back track.
3855
cd0b1709 3856 // what do we have?
68379eaf
WS
3857 bool haveDay = false, // the months day?
3858 haveWDay = false, // the day of week?
3859 haveMon = false, // the month?
3860 haveYear = false; // the year?
cd0b1709
VZ
3861
3862 // and the value of the items we have (init them to get rid of warnings)
3863 WeekDay wday = Inv_WeekDay;
3864 wxDateTime_t day = 0;
3865 wxDateTime::Month mon = Inv_Month;
3866 int year = 0;
3867
3868 // tokenize the string
f6bcfd97 3869 size_t nPosCur = 0;
71ebd60b 3870 static const wxStringCharType *dateDelimiters = wxS(".,/-\t\r\n ");
f6bcfd97 3871 wxStringTokenizer tok(p, dateDelimiters);
cd0b1709
VZ
3872 while ( tok.HasMoreTokens() )
3873 {
3874 wxString token = tok.GetNextToken();
3ca6a5f0
BP
3875 if ( !token )
3876 continue;
cd0b1709
VZ
3877
3878 // is it a number?
3879 unsigned long val;
fde5a86b 3880 if ( token.ToULong(&val) )
cd0b1709
VZ
3881 {
3882 // guess what this number is
3883
68379eaf
WS
3884 bool isDay = false,
3885 isMonth = false,
3886 isYear = false;
3ca6a5f0
BP
3887
3888 if ( !haveMon && val > 0 && val <= 12 )
cd0b1709 3889 {
3ca6a5f0 3890 // assume it is month
68379eaf 3891 isMonth = true;
3ca6a5f0
BP
3892 }
3893 else // not the month
3894 {
560e2916 3895 if ( haveDay )
cd0b1709 3896 {
560e2916 3897 // this can only be the year
68379eaf 3898 isYear = true;
cd0b1709 3899 }
560e2916 3900 else // may be either day or year
cd0b1709 3901 {
eca0692c
VZ
3902 // use a leap year if we don't have the year yet to allow
3903 // dates like 2/29/1976 which would be rejected otherwise
6a27c749 3904 wxDateTime_t max_days = (wxDateTime_t)(
42841dfc 3905 haveMon
eca0692c 3906 ? GetNumOfDaysInMonth(haveYear ? year : 1976, mon)
42841dfc
WS
3907 : 31
3908 );
560e2916
VZ
3909
3910 // can it be day?
6a27c749 3911 if ( (val == 0) || (val > (unsigned long)max_days) )
560e2916
VZ
3912 {
3913 // no
68379eaf 3914 isYear = true;
560e2916
VZ
3915 }
3916 else // yes, suppose it's the day
3917 {
68379eaf 3918 isDay = true;
560e2916 3919 }
cd0b1709
VZ
3920 }
3921 }
3922
cd0b1709
VZ
3923 if ( isYear )
3924 {
3925 if ( haveYear )
cd0b1709 3926 break;
cd0b1709 3927
68379eaf 3928 haveYear = true;
cd0b1709 3929
479cd5de 3930 year = (wxDateTime_t)val;
cd0b1709 3931 }
3ca6a5f0 3932 else if ( isDay )
cd0b1709 3933 {
3ca6a5f0 3934 if ( haveDay )
cd0b1709 3935 break;
cd0b1709 3936
68379eaf 3937 haveDay = true;
cd0b1709 3938
3ca6a5f0 3939 day = (wxDateTime_t)val;
cd0b1709 3940 }
3ca6a5f0 3941 else if ( isMonth )
cd0b1709 3942 {
68379eaf 3943 haveMon = true;
cd0b1709 3944
3ca6a5f0 3945 mon = (Month)(val - 1);
cd0b1709
VZ
3946 }
3947 }
3948 else // not a number
3949 {
f6bcfd97
BP
3950 // be careful not to overwrite the current mon value
3951 Month mon2 = GetMonthFromName(token, Name_Full | Name_Abbr);
3952 if ( mon2 != Inv_Month )
cd0b1709
VZ
3953 {
3954 // it's a month
3955 if ( haveMon )
3956 {
6411a32c
VZ
3957 // but we already have a month - maybe we guessed wrong?
3958 if ( !haveDay )
3959 {
f5cd9787 3960 // no need to check in month range as always < 12, but
6411a32c 3961 // the days are counted from 1 unlike the months
42841dfc 3962 day = (wxDateTime_t)(mon + 1);
68379eaf 3963 haveDay = true;
6411a32c
VZ
3964 }
3965 else
3966 {
3967 // could possible be the year (doesn't the year come
3968 // before the month in the japanese format?) (FIXME)
3969 break;
f5cd9787 3970 }
cd0b1709
VZ
3971 }
3972
f6bcfd97
BP
3973 mon = mon2;
3974
68379eaf 3975 haveMon = true;
cd0b1709 3976 }
6411a32c 3977 else // not a valid month name
cd0b1709 3978 {
804eeca5
VZ
3979 WeekDay wday2 = GetWeekDayFromName(token, Name_Full | Name_Abbr);
3980 if ( wday2 != Inv_WeekDay )
cd0b1709
VZ
3981 {
3982 // a week day
3983 if ( haveWDay )
3984 {
3985 break;
3986 }
3987
804eeca5
VZ
3988 wday = wday2;
3989
68379eaf 3990 haveWDay = true;
cd0b1709 3991 }
6411a32c 3992 else // not a valid weekday name
cd0b1709
VZ
3993 {
3994 // try the ordinals
e6d4038a 3995 static const char *ordinals[] =
cd0b1709
VZ
3996 {
3997 wxTRANSLATE("first"),
3998 wxTRANSLATE("second"),
3999 wxTRANSLATE("third"),
4000 wxTRANSLATE("fourth"),
4001 wxTRANSLATE("fifth"),
4002 wxTRANSLATE("sixth"),
4003 wxTRANSLATE("seventh"),
4004 wxTRANSLATE("eighth"),
4005 wxTRANSLATE("ninth"),
4006 wxTRANSLATE("tenth"),
4007 wxTRANSLATE("eleventh"),
4008 wxTRANSLATE("twelfth"),
4009 wxTRANSLATE("thirteenth"),
4010 wxTRANSLATE("fourteenth"),
4011 wxTRANSLATE("fifteenth"),
4012 wxTRANSLATE("sixteenth"),
4013 wxTRANSLATE("seventeenth"),
4014 wxTRANSLATE("eighteenth"),
4015 wxTRANSLATE("nineteenth"),
4016 wxTRANSLATE("twentieth"),
4017 // that's enough - otherwise we'd have problems with
6411a32c 4018 // composite (or not) ordinals
cd0b1709
VZ
4019 };
4020
4021 size_t n;
4022 for ( n = 0; n < WXSIZEOF(ordinals); n++ )
4023 {
4024 if ( token.CmpNoCase(ordinals[n]) == 0 )
4025 {
4026 break;
4027 }
4028 }
4029
4030 if ( n == WXSIZEOF(ordinals) )
4031 {
4032 // stop here - something unknown
4033 break;
4034 }
4035
4036 // it's a day
4037 if ( haveDay )
4038 {
4039 // don't try anything here (as in case of numeric day
4040 // above) - the symbolic day spec should always
4041 // precede the month/year
4042 break;
4043 }
4044
68379eaf 4045 haveDay = true;
cd0b1709 4046
33ac7e6f 4047 day = (wxDateTime_t)(n + 1);
cd0b1709
VZ
4048 }
4049 }
4050 }
f6bcfd97
BP
4051
4052 nPosCur = tok.GetPosition();
cd0b1709
VZ
4053 }
4054
4055 // either no more tokens or the scan was stopped by something we couldn't
4056 // parse - in any case, see if we can construct a date from what we have
4057 if ( !haveDay && !haveWDay )
4058 {
f6bcfd97 4059 wxLogDebug(_T("ParseDate: no day, no weekday hence no date."));
cd0b1709 4060
eca0692c 4061 return NULL;
cd0b1709
VZ
4062 }
4063
4064 if ( haveWDay && (haveMon || haveYear || haveDay) &&
f6bcfd97 4065 !(haveDay && haveMon && haveYear) )
cd0b1709
VZ
4066 {
4067 // without adjectives (which we don't support here) the week day only
4068 // makes sense completely separately or with the full date
4069 // specification (what would "Wed 1999" mean?)
eca0692c 4070 return NULL;
cd0b1709
VZ
4071 }
4072
f6bcfd97
BP
4073 if ( !haveWDay && haveYear && !(haveDay && haveMon) )
4074 {
4075 // may be we have month and day instead of day and year?
4076 if ( haveDay && !haveMon )
4077 {
4078 if ( day <= 12 )
4079 {
4080 // exchange day and month
4081 mon = (wxDateTime::Month)(day - 1);
4082
4083 // we're in the current year then
196be0f1 4084 if ( (year > 0) && (year <= (int)GetNumOfDaysInMonth(Inv_Year, mon)) )
f6bcfd97 4085 {
42841dfc 4086 day = (wxDateTime_t)year;
f6bcfd97 4087
68379eaf
WS
4088 haveMon = true;
4089 haveYear = false;
f6bcfd97 4090 }
68379eaf 4091 //else: no, can't exchange, leave haveMon == false
f6bcfd97
BP
4092 }
4093 }
4094
4095 if ( !haveMon )
4096 {
4097 // if we give the year, month and day must be given too
4098 wxLogDebug(_T("ParseDate: day and month should be specified if year is."));
4099
eca0692c 4100 return NULL;
f6bcfd97
BP
4101 }
4102 }
4103
cd0b1709
VZ
4104 if ( !haveMon )
4105 {
4106 mon = GetCurrentMonth();
4107 }
4108
4109 if ( !haveYear )
4110 {
4111 year = GetCurrentYear();
4112 }
4113
4114 if ( haveDay )
4115 {
eca0692c
VZ
4116 // normally we check the day above but the check is optimistic in case
4117 // we find the day before its month/year so we have to redo it now
4118 if ( day > GetNumOfDaysInMonth(year, mon) )
4119 return NULL;
4120
cd0b1709
VZ
4121 Set(day, mon, year);
4122
4123 if ( haveWDay )
4124 {
4125 // check that it is really the same
4126 if ( GetWeekDay() != wday )
4127 {
4128 // inconsistency detected
f6bcfd97
BP
4129 wxLogDebug(_T("ParseDate: inconsistent day/weekday."));
4130
71ebd60b 4131 return NULL;
cd0b1709
VZ
4132 }
4133 }
4134 }
4135 else // haveWDay
4136 {
4137 *this = Today();
4138
4139 SetToWeekDayInSameWeek(wday);
4140 }
4141
f6bcfd97
BP
4142 // return the pointer to the first unparsed char
4143 p += nPosCur;
4144 if ( nPosCur && wxStrchr(dateDelimiters, *(p - 1)) )
4145 {
4146 // if we couldn't parse the token after the delimiter, put back the
4147 // delimiter as well
4148 p--;
4149 }
4150
71ebd60b
VZ
4151 const size_t endpos = p - date.wx_str();
4152 if ( end )
4153 *end = date.begin() + endpos;
4154
4155 return date.c_str() + endpos;
cd0b1709
VZ
4156}
4157
71ebd60b
VZ
4158const char *
4159wxDateTime::ParseTime(const wxString& time, wxString::const_iterator *end)
cd0b1709 4160{
f0f951fa
VZ
4161 // first try some extra things
4162 static const struct
4163 {
e6d4038a 4164 const char *name;
f0f951fa
VZ
4165 wxDateTime_t hour;
4166 } stdTimes[] =
4167 {
4168 { wxTRANSLATE("noon"), 12 },
4169 { wxTRANSLATE("midnight"), 00 },
4170 // anything else?
4171 };
cd0b1709 4172
f0f951fa
VZ
4173 for ( size_t n = 0; n < WXSIZEOF(stdTimes); n++ )
4174 {
4175 wxString timeString = wxGetTranslation(stdTimes[n].name);
4176 size_t len = timeString.length();
4177 if ( timeString.CmpNoCase(wxString(time, len)) == 0 )
4178 {
4ded51f2
CE
4179 // casts required by DigitalMars
4180 Set(stdTimes[n].hour, wxDateTime_t(0), wxDateTime_t(0));
f0f951fa 4181
71ebd60b
VZ
4182 if ( end )
4183 *end = time.begin() + len;
4184
4185 return time.c_str() + len;
f0f951fa
VZ
4186 }
4187 }
4188
c7f9a482
VZ
4189 // try all time formats we may think about in the order from longest to
4190 // shortest
71ebd60b 4191 static const char *timeFormats[] =
f0f951fa 4192 {
71ebd60b
VZ
4193 "%I:%M:%S %p", // 12hour with AM/PM
4194 "%H:%M:%S", // could be the same or 24 hour one so try it too
4195 "%I:%M %p", // 12hour with AM/PM but without seconds
4196 "%H:%M:%S", // and a possibly 24 hour version without seconds
4197 "%X", // possibly something from above or maybe something
4198 // completely different -- try it last
f0f951fa 4199
71ebd60b
VZ
4200 // TODO: parse timezones
4201 };
f0f951fa 4202
71ebd60b 4203 for ( size_t nFmt = 0; nFmt < WXSIZEOF(timeFormats); nFmt++ )
f0f951fa 4204 {
71ebd60b
VZ
4205 const char *result = ParseFormat(time, timeFormats[nFmt], end);
4206 if ( result )
4207 return result;
f0f951fa
VZ
4208 }
4209
71ebd60b 4210 return NULL;
cd0b1709
VZ
4211}
4212
4f6aed9c
VZ
4213// ----------------------------------------------------------------------------
4214// Workdays and holidays support
4215// ----------------------------------------------------------------------------
4216
4217bool wxDateTime::IsWorkDay(Country WXUNUSED(country)) const
4218{
4219 return !wxDateTimeHolidayAuthority::IsHoliday(*this);
4220}
4221
26364344
WS
4222// ============================================================================
4223// wxDateSpan
4224// ============================================================================
4225
4226wxDateSpan WXDLLIMPEXP_BASE operator*(int n, const wxDateSpan& ds)
4227{
4228 wxDateSpan ds1(ds);
4229 return ds1.Multiply(n);
4230}
4231
fcc3d7cb
VZ
4232// ============================================================================
4233// wxTimeSpan
4234// ============================================================================
4235
26364344
WS
4236wxTimeSpan WXDLLIMPEXP_BASE operator*(int n, const wxTimeSpan& ts)
4237{
4238 return wxTimeSpan(ts).Multiply(n);
4239}
4240
033400eb
VZ
4241// this enum is only used in wxTimeSpan::Format() below but we can't declare
4242// it locally to the method as it provokes an internal compiler error in egcs
4243// 2.91.60 when building with -O2
4244enum TimeSpanPart
4245{
4246 Part_Week,
4247 Part_Day,
4248 Part_Hour,
4249 Part_Min,
4250 Part_Sec,
4251 Part_MSec
4252};
4253
e6ec579c
VZ
4254// not all strftime(3) format specifiers make sense here because, for example,
4255// a time span doesn't have a year nor a timezone
4256//
4257// Here are the ones which are supported (all of them are supported by strftime
4258// as well):
4259// %H hour in 24 hour format
4260// %M minute (00 - 59)
4261// %S second (00 - 59)
4262// %% percent sign
4263//
4264// Also, for MFC CTimeSpan compatibility, we support
4265// %D number of days
4266//
4267// And, to be better than MFC :-), we also have
4268// %E number of wEeks
4269// %l milliseconds (000 - 999)
12e82477 4270wxString wxTimeSpan::Format(const wxString& format) const
fcc3d7cb 4271{
12e82477
VS
4272 wxCHECK_MSG( !format.empty(), wxEmptyString,
4273 _T("NULL format in wxTimeSpan::Format") );
fcc3d7cb
VZ
4274
4275 wxString str;
12e82477 4276 str.Alloc(format.length());
e6ec579c 4277
df05cdc5
VZ
4278 // Suppose we have wxTimeSpan ts(1 /* hour */, 2 /* min */, 3 /* sec */)
4279 //
4280 // Then, of course, ts.Format("%H:%M:%S") must return "01:02:03", but the
4281 // question is what should ts.Format("%S") do? The code here returns "3273"
4282 // in this case (i.e. the total number of seconds, not just seconds % 60)
4283 // because, for me, this call means "give me entire time interval in
4284 // seconds" and not "give me the seconds part of the time interval"
4285 //
4286 // If we agree that it should behave like this, it is clear that the
4287 // interpretation of each format specifier depends on the presence of the
4288 // other format specs in the string: if there was "%H" before "%M", we
4289 // should use GetMinutes() % 60, otherwise just GetMinutes() &c
4290
4291 // we remember the most important unit found so far
033400eb 4292 TimeSpanPart partBiggest = Part_MSec;
df05cdc5 4293
12e82477 4294 for ( wxString::const_iterator pch = format.begin(); pch != format.end(); ++pch )
e6ec579c
VZ
4295 {
4296 wxChar ch = *pch;
4297
f6bcfd97 4298 if ( ch == _T('%') )
e6ec579c 4299 {
df05cdc5 4300 // the start of the format specification of the printf() below
e566ccf1 4301 wxString fmtPrefix(_T('%'));
df05cdc5
VZ
4302
4303 // the number
4304 long n;
e6ec579c 4305
e566ccf1
VZ
4306 // the number of digits for the format string, 0 if unused
4307 unsigned digits = 0;
4308
f6bcfd97 4309 ch = *++pch; // get the format spec char
e6ec579c
VZ
4310 switch ( ch )
4311 {
4312 default:
4313 wxFAIL_MSG( _T("invalid format character") );
4314 // fall through
4315
f6bcfd97 4316 case _T('%'):
df05cdc5
VZ
4317 str += ch;
4318
4319 // skip the part below switch
4320 continue;
e6ec579c 4321
f6bcfd97 4322 case _T('D'):
df05cdc5
VZ
4323 n = GetDays();
4324 if ( partBiggest < Part_Day )
4325 {
4326 n %= DAYS_PER_WEEK;
4327 }
4328 else
4329 {
4330 partBiggest = Part_Day;
4331 }
e6ec579c
VZ
4332 break;
4333
f6bcfd97 4334 case _T('E'):
df05cdc5
VZ
4335 partBiggest = Part_Week;
4336 n = GetWeeks();
e6ec579c
VZ
4337 break;
4338
f6bcfd97 4339 case _T('H'):
df05cdc5
VZ
4340 n = GetHours();
4341 if ( partBiggest < Part_Hour )
4342 {
e566ccf1
VZ
4343 if ( n < 0 )
4344 {
4345 // the sign has already been taken into account
4346 // when outputting the biggest part
4347 n = -n;
4348 }
4349
df05cdc5
VZ
4350 n %= HOURS_PER_DAY;
4351 }
4352 else
4353 {
4354 partBiggest = Part_Hour;
4355 }
4356
e566ccf1 4357 digits = 2;
e6ec579c
VZ
4358 break;
4359
f6bcfd97 4360 case _T('l'):
df05cdc5
VZ
4361 n = GetMilliseconds().ToLong();
4362 if ( partBiggest < Part_MSec )
4363 {
e566ccf1
VZ
4364 if ( n < 0 )
4365 n = -n;
4366
df05cdc5
VZ
4367 n %= 1000;
4368 }
4369 //else: no need to reset partBiggest to Part_MSec, it is
4370 // the least significant one anyhow
4371
e566ccf1 4372 digits = 3;
e6ec579c
VZ
4373 break;
4374
f6bcfd97 4375 case _T('M'):
df05cdc5
VZ
4376 n = GetMinutes();
4377 if ( partBiggest < Part_Min )
4378 {
e566ccf1
VZ
4379 if ( n < 0 )
4380 n = -n;
4381
df05cdc5
VZ
4382 n %= MIN_PER_HOUR;
4383 }
4384 else
4385 {
4386 partBiggest = Part_Min;
4387 }
4388
e566ccf1 4389 digits = 2;
e6ec579c
VZ
4390 break;
4391
f6bcfd97 4392 case _T('S'):
df05cdc5
VZ
4393 n = GetSeconds().ToLong();
4394 if ( partBiggest < Part_Sec )
4395 {
e566ccf1
VZ
4396 if ( n < 0 )
4397 n = -n;
4398
df05cdc5
VZ
4399 n %= SEC_PER_MIN;
4400 }
4401 else
4402 {
4403 partBiggest = Part_Sec;
4404 }
4405
e566ccf1 4406 digits = 2;
e6ec579c
VZ
4407 break;
4408 }
4409
e566ccf1
VZ
4410 if ( digits )
4411 {
4412 // negative numbers need one extra position for '-' display
4413 if ( n < 0 )
4414 digits++;
4415
4416 fmtPrefix << _T("0") << digits;
4417 }
4418
df05cdc5
VZ
4419 str += wxString::Format(fmtPrefix + _T("ld"), n);
4420 }
4421 else
4422 {
4423 // normal character, just copy
4424 str += ch;
e6ec579c 4425 }
e6ec579c 4426 }
fcc3d7cb
VZ
4427
4428 return str;
4429}
4f6aed9c
VZ
4430
4431// ============================================================================
4432// wxDateTimeHolidayAuthority and related classes
4433// ============================================================================
4434
4435#include "wx/arrimpl.cpp"
4436
4115960d 4437WX_DEFINE_OBJARRAY(wxDateTimeArray)
4f6aed9c
VZ
4438
4439static int wxCMPFUNC_CONV
4440wxDateTimeCompareFunc(wxDateTime **first, wxDateTime **second)
4441{
4442 wxDateTime dt1 = **first,
4443 dt2 = **second;
4444
4445 return dt1 == dt2 ? 0 : dt1 < dt2 ? -1 : +1;
4446}
4447
4448// ----------------------------------------------------------------------------
4449// wxDateTimeHolidayAuthority
4450// ----------------------------------------------------------------------------
4451
4452wxHolidayAuthoritiesArray wxDateTimeHolidayAuthority::ms_authorities;
4453
4454/* static */
4455bool wxDateTimeHolidayAuthority::IsHoliday(const wxDateTime& dt)
4456{
df5168c4 4457 size_t count = ms_authorities.size();
4f6aed9c
VZ
4458 for ( size_t n = 0; n < count; n++ )
4459 {
4460 if ( ms_authorities[n]->DoIsHoliday(dt) )
4461 {
68379eaf 4462 return true;
4f6aed9c
VZ
4463 }
4464 }
4465
68379eaf 4466 return false;
4f6aed9c
VZ
4467}
4468
4469/* static */
4470size_t
4471wxDateTimeHolidayAuthority::GetHolidaysInRange(const wxDateTime& dtStart,
4472 const wxDateTime& dtEnd,
4473 wxDateTimeArray& holidays)
4474{
4475 wxDateTimeArray hol;
4476
df5168c4 4477 holidays.Clear();
4f6aed9c 4478
7a7bd38a
VZ
4479 const size_t countAuth = ms_authorities.size();
4480 for ( size_t nAuth = 0; nAuth < countAuth; nAuth++ )
4f6aed9c 4481 {
6dc6fda6 4482 ms_authorities[nAuth]->DoGetHolidaysInRange(dtStart, dtEnd, hol);
4f6aed9c
VZ
4483
4484 WX_APPEND_ARRAY(holidays, hol);
4485 }
4486
4487 holidays.Sort(wxDateTimeCompareFunc);
4488
df5168c4 4489 return holidays.size();
4f6aed9c
VZ
4490}
4491
4492/* static */
4493void wxDateTimeHolidayAuthority::ClearAllAuthorities()
4494{
4495 WX_CLEAR_ARRAY(ms_authorities);
4496}
4497
4498/* static */
4499void wxDateTimeHolidayAuthority::AddAuthority(wxDateTimeHolidayAuthority *auth)
4500{
df5168c4 4501 ms_authorities.push_back(auth);
4f6aed9c
VZ
4502}
4503
5e233068
WS
4504wxDateTimeHolidayAuthority::~wxDateTimeHolidayAuthority()
4505{
4506 // required here for Darwin
4507}
4508
4f6aed9c
VZ
4509// ----------------------------------------------------------------------------
4510// wxDateTimeWorkDays
4511// ----------------------------------------------------------------------------
4512
4513bool wxDateTimeWorkDays::DoIsHoliday(const wxDateTime& dt) const
4514{
4515 wxDateTime::WeekDay wd = dt.GetWeekDay();
4516
4517 return (wd == wxDateTime::Sun) || (wd == wxDateTime::Sat);
4518}
4519
4520size_t wxDateTimeWorkDays::DoGetHolidaysInRange(const wxDateTime& dtStart,
4521 const wxDateTime& dtEnd,
4522 wxDateTimeArray& holidays) const
4523{
4524 if ( dtStart > dtEnd )
4525 {
4526 wxFAIL_MSG( _T("invalid date range in GetHolidaysInRange") );
4527
4528 return 0u;
4529 }
4530
4531 holidays.Empty();
4532
4533 // instead of checking all days, start with the first Sat after dtStart and
4534 // end with the last Sun before dtEnd
4535 wxDateTime dtSatFirst = dtStart.GetNextWeekDay(wxDateTime::Sat),
4536 dtSatLast = dtEnd.GetPrevWeekDay(wxDateTime::Sat),
4537 dtSunFirst = dtStart.GetNextWeekDay(wxDateTime::Sun),
4538 dtSunLast = dtEnd.GetPrevWeekDay(wxDateTime::Sun),
4539 dt;
4540
4541 for ( dt = dtSatFirst; dt <= dtSatLast; dt += wxDateSpan::Week() )
4542 {
4543 holidays.Add(dt);
4544 }
4545
4546 for ( dt = dtSunFirst; dt <= dtSunLast; dt += wxDateSpan::Week() )
4547 {
4548 holidays.Add(dt);
4549 }
4550
4551 return holidays.GetCount();
4552}
3e0b743f 4553
26364344
WS
4554// ============================================================================
4555// other helper functions
4556// ============================================================================
4557
4558// ----------------------------------------------------------------------------
4559// iteration helpers: can be used to write a for loop over enum variable like
4560// this:
4561// for ( m = wxDateTime::Jan; m < wxDateTime::Inv_Month; wxNextMonth(m) )
4562// ----------------------------------------------------------------------------
4563
4564WXDLLIMPEXP_BASE void wxNextMonth(wxDateTime::Month& m)
4565{
4566 wxASSERT_MSG( m < wxDateTime::Inv_Month, _T("invalid month") );
4567
4568 // no wrapping or the for loop above would never end!
4569 m = (wxDateTime::Month)(m + 1);
4570}
4571
4572WXDLLIMPEXP_BASE void wxPrevMonth(wxDateTime::Month& m)
4573{
4574 wxASSERT_MSG( m < wxDateTime::Inv_Month, _T("invalid month") );
4575
4576 m = m == wxDateTime::Jan ? wxDateTime::Inv_Month
4577 : (wxDateTime::Month)(m - 1);
4578}
4579
4580WXDLLIMPEXP_BASE void wxNextWDay(wxDateTime::WeekDay& wd)
4581{
4582 wxASSERT_MSG( wd < wxDateTime::Inv_WeekDay, _T("invalid week day") );
4583
4584 // no wrapping or the for loop above would never end!
4585 wd = (wxDateTime::WeekDay)(wd + 1);
4586}
4587
4588WXDLLIMPEXP_BASE void wxPrevWDay(wxDateTime::WeekDay& wd)
4589{
4590 wxASSERT_MSG( wd < wxDateTime::Inv_WeekDay, _T("invalid week day") );
4591
4592 wd = wd == wxDateTime::Sun ? wxDateTime::Inv_WeekDay
4593 : (wxDateTime::WeekDay)(wd - 1);
4594}
4595
154014d6
VZ
4596#ifdef __WXMSW__
4597
4598wxDateTime& wxDateTime::SetFromMSWSysTime(const SYSTEMTIME& st)
4599{
4600 return Set(st.wDay,
4601 wx_static_cast(wxDateTime::Month, wxDateTime::Jan + st.wMonth - 1),
4602 st.wYear,
4603 0, 0, 0);
4604}
4605
4606void wxDateTime::GetAsMSWSysTime(SYSTEMTIME* st) const
4607{
4608 const wxDateTime::Tm tm(GetTm());
4609
4610 st->wYear = (WXWORD)tm.year;
4611 st->wMonth = (WXWORD)(tm.mon - wxDateTime::Jan + 1);
4612 st->wDay = tm.mday;
4613
4614 st->wDayOfWeek =
4615 st->wHour =
4616 st->wMinute =
4617 st->wSecond =
4618 st->wMilliseconds = 0;
4619}
4620#endif // __WXMSW__
4621
1e6feb95 4622#endif // wxUSE_DATETIME