]> git.saurik.com Git - wxWidgets.git/blame - src/common/datetime.cpp
added new project file having the new files
[wxWidgets.git] / src / common / datetime.cpp
CommitLineData
1ef54dcf 1///////////////////////////////////////////////////////////////////////////////
0979c962
VZ
2// Name: wx/datetime.h
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//
0979c962 16// Licence: wxWindows license
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
55#ifdef __GNUG__
56 #pragma implementation "datetime.h"
57#endif
58
59// For compilers that support precompilation, includes "wx.h".
60#include "wx/wxprec.h"
61
62#ifdef __BORLANDC__
63 #pragma hdrstop
64#endif
65
1e6feb95
VZ
66#if !defined(wxUSE_DATETIME) || wxUSE_DATETIME
67
0979c962
VZ
68#ifndef WX_PRECOMP
69 #include "wx/string.h"
0979c962
VZ
70 #include "wx/log.h"
71#endif // WX_PRECOMP
72
54800df8 73#include "wx/intl.h"
fcc3d7cb 74#include "wx/thread.h"
cd0b1709 75#include "wx/tokenzr.h"
7281ab04 76#include "wx/module.h"
fcc3d7cb 77
f0f951fa 78#define wxDEFINE_TIME_CONSTANTS // before including datetime.h
b76b015e 79
ff0ea71c
GT
80#include <ctype.h>
81
0979c962 82#include "wx/datetime.h"
f6bcfd97 83#include "wx/timer.h" // for wxGetLocalTimeMillis()
0979c962 84
f0f951fa
VZ
85// ----------------------------------------------------------------------------
86// conditional compilation
87// ----------------------------------------------------------------------------
6de20863 88
f0f951fa
VZ
89#if defined(HAVE_STRPTIME) && defined(__LINUX__)
90 // glibc 2.0.7 strptime() is broken - the following snippet causes it to
91 // crash (instead of just failing):
92 //
93 // strncpy(buf, "Tue Dec 21 20:25:40 1999", 128);
94 // strptime(buf, "%x", &tm);
95 //
96 // so don't use it
97 #undef HAVE_STRPTIME
98#endif // broken strptime()
99
100#ifndef WX_TIMEZONE
ad0dc53b 101 #if defined(__BORLANDC__) || defined(__MINGW32__) || defined(__VISAGECPP__)
f0f951fa 102 #define WX_TIMEZONE _timezone
8208e181 103 #elif defined(__MWERKS__)
f6bcfd97
BP
104 long wxmw_timezone = 28800;
105 #define WX_TIMEZONE wxmw_timezone;
f0f951fa
VZ
106 #else // unknown platform - try timezone
107 #define WX_TIMEZONE timezone
108 #endif
109#endif // !WX_TIMEZONE
c25a510b 110
384223b3
VZ
111// ----------------------------------------------------------------------------
112// macros
113// ----------------------------------------------------------------------------
114
115// debugging helper: just a convenient replacement of wxCHECK()
116#define wxDATETIME_CHECK(expr, msg) \
117 if ( !(expr) ) \
118 { \
119 wxFAIL_MSG(msg); \
120 *this = wxInvalidDateTime; \
121 return *this; \
122 }
123
4f6aed9c
VZ
124// ----------------------------------------------------------------------------
125// private classes
126// ----------------------------------------------------------------------------
127
128class wxDateTimeHolidaysModule : public wxModule
129{
130public:
131 virtual bool OnInit()
132 {
133 wxDateTimeHolidayAuthority::AddAuthority(new wxDateTimeWorkDays);
134
135 return TRUE;
136 }
137
138 virtual void OnExit()
139 {
140 wxDateTimeHolidayAuthority::ClearAllAuthorities();
f6081a04 141 wxDateTimeHolidayAuthority::ms_authorities.Clear();
4f6aed9c
VZ
142 }
143
144private:
145 DECLARE_DYNAMIC_CLASS(wxDateTimeHolidaysModule)
146};
147
148IMPLEMENT_DYNAMIC_CLASS(wxDateTimeHolidaysModule, wxModule)
149
b76b015e
VZ
150// ----------------------------------------------------------------------------
151// constants
152// ----------------------------------------------------------------------------
153
e6ec579c 154// some trivial ones
fcc3d7cb
VZ
155static const int MONTHS_IN_YEAR = 12;
156
df05cdc5
VZ
157static const int SEC_PER_MIN = 60;
158
159static const int MIN_PER_HOUR = 60;
160
161static const int HOURS_PER_DAY = 24;
fcc3d7cb 162
e6ec579c
VZ
163static const long SECONDS_PER_DAY = 86400l;
164
df05cdc5
VZ
165static const int DAYS_PER_WEEK = 7;
166
e6ec579c
VZ
167static const long MILLISECONDS_PER_DAY = 86400000l;
168
169// this is the integral part of JDN of the midnight of Jan 1, 1970
170// (i.e. JDN(Jan 1, 1970) = 2440587.5)
cd0b1709 171static const long EPOCH_JDN = 2440587l;
b76b015e 172
1ef54dcf
VZ
173// the date of JDN -0.5 (as we don't work with fractional parts, this is the
174// reference date for us) is Nov 24, 4714BC
175static const int JDN_0_YEAR = -4713;
176static const int JDN_0_MONTH = wxDateTime::Nov;
177static const int JDN_0_DAY = 24;
178
179// the constants used for JDN calculations
cd0b1709
VZ
180static const long JDN_OFFSET = 32046l;
181static const long DAYS_PER_5_MONTHS = 153l;
182static const long DAYS_PER_4_YEARS = 1461l;
183static const long DAYS_PER_400_YEARS = 146097l;
1ef54dcf 184
f0f951fa
VZ
185// this array contains the cumulated number of days in all previous months for
186// normal and leap years
187static const wxDateTime::wxDateTime_t gs_cumulatedDays[2][MONTHS_IN_YEAR] =
188{
189 { 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334 },
190 { 0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335 }
191};
192
fcc3d7cb 193// ----------------------------------------------------------------------------
2ef31e80
VZ
194// global data
195// ----------------------------------------------------------------------------
196
384223b3
VZ
197// in the fine tradition of ANSI C we use our equivalent of (time_t)-1 to
198// indicate an invalid wxDateTime object
c3302e7e 199
788722ac 200static const wxDateTime gs_dtDefault;
2ef31e80 201
384223b3 202const wxDateTime& wxDefaultDateTime = gs_dtDefault;
2ef31e80
VZ
203
204wxDateTime::Country wxDateTime::ms_country = wxDateTime::Country_Unknown;
205
206// ----------------------------------------------------------------------------
207// private globals
fcc3d7cb
VZ
208// ----------------------------------------------------------------------------
209
210// a critical section is needed to protect GetTimeZone() static
211// variable in MT case
c25a510b 212#if wxUSE_THREADS
2ef31e80 213 static wxCriticalSection gs_critsectTimezone;
fcc3d7cb
VZ
214#endif // wxUSE_THREADS
215
b76b015e
VZ
216// ----------------------------------------------------------------------------
217// private functions
218// ----------------------------------------------------------------------------
219
4f6aed9c
VZ
220// debugger helper: shows what the date really is
221#ifdef __WXDEBUG__
222extern const wxChar *wxDumpDate(const wxDateTime* dt)
223{
0de868d9 224 static wxChar buf[128];
4f6aed9c
VZ
225
226 wxStrcpy(buf, dt->Format(_T("%Y-%m-%d (%a) %H:%M:%S")));
227
228 return buf;
229}
230#endif // Debug
231
fcc3d7cb
VZ
232// get the number of days in the given month of the given year
233static inline
234wxDateTime::wxDateTime_t GetNumOfDaysInMonth(int year, wxDateTime::Month month)
235{
e6ec579c
VZ
236 // the number of days in month in Julian/Gregorian calendar: the first line
237 // is for normal years, the second one is for the leap ones
238 static wxDateTime::wxDateTime_t daysInMonth[2][MONTHS_IN_YEAR] =
239 {
240 { 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 },
241 { 31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 }
242 };
243
244 return daysInMonth[wxDateTime::IsLeapYear(year)][month];
fcc3d7cb
VZ
245}
246
247// ensure that the timezone variable is set by calling localtime
248static int GetTimeZone()
249{
250 // set to TRUE when the timezone is set
251 static bool s_timezoneSet = FALSE;
252
253 wxCRIT_SECT_LOCKER(lock, gs_critsectTimezone);
254
255 if ( !s_timezoneSet )
256 {
1ef54dcf 257 // just call localtime() instead of figuring out whether this system
e6ec579c 258 // supports tzset(), _tzset() or something else
a2ae3275 259 time_t t = 0;
fcc3d7cb 260
a2ae3275 261 (void)localtime(&t);
fcc3d7cb
VZ
262 s_timezoneSet = TRUE;
263 }
264
6de20863 265 return (int)WX_TIMEZONE;
fcc3d7cb
VZ
266}
267
e6ec579c 268// return the integral part of the JDN for the midnight of the given date (to
1ef54dcf
VZ
269// get the real JDN you need to add 0.5, this is, in fact, JDN of the
270// noon of the previous day)
e6ec579c
VZ
271static long GetTruncatedJDN(wxDateTime::wxDateTime_t day,
272 wxDateTime::Month mon,
273 int year)
274{
1ef54dcf
VZ
275 // CREDIT: code below is by Scott E. Lee (but bugs are mine)
276
277 // check the date validity
278 wxASSERT_MSG(
279 (year > JDN_0_YEAR) ||
280 ((year == JDN_0_YEAR) && (mon > JDN_0_MONTH)) ||
281 ((year == JDN_0_YEAR) && (mon == JDN_0_MONTH) && (day >= JDN_0_DAY)),
282 _T("date out of range - can't convert to JDN")
283 );
284
285 // make the year positive to avoid problems with negative numbers division
286 year += 4800;
287
288 // months are counted from March here
289 int month;
290 if ( mon >= wxDateTime::Mar )
e6ec579c 291 {
1ef54dcf 292 month = mon - 2;
e6ec579c 293 }
1ef54dcf 294 else
e6ec579c 295 {
1ef54dcf
VZ
296 month = mon + 10;
297 year--;
298 }
e6ec579c 299
1ef54dcf
VZ
300 // now we can simply add all the contributions together
301 return ((year / 100) * DAYS_PER_400_YEARS) / 4
302 + ((year % 100) * DAYS_PER_4_YEARS) / 4
303 + (month * DAYS_PER_5_MONTHS + 2) / 5
304 + day
305 - JDN_OFFSET;
e6ec579c
VZ
306}
307
2f02cb89 308// this function is a wrapper around strftime(3)
b76b015e
VZ
309static wxString CallStrftime(const wxChar *format, const tm* tm)
310{
68ee7c47 311 wxChar buf[4096];
b76b015e
VZ
312 if ( !wxStrftime(buf, WXSIZEOF(buf), format, tm) )
313 {
68ee7c47 314 // buffer is too small?
b76b015e
VZ
315 wxFAIL_MSG(_T("strftime() failed"));
316 }
317
318 return wxString(buf);
319}
320
2f02cb89
VZ
321// if year and/or month have invalid values, replace them with the current ones
322static void ReplaceDefaultYearMonthWithCurrent(int *year,
323 wxDateTime::Month *month)
324{
325 struct tm *tmNow = NULL;
326
327 if ( *year == wxDateTime::Inv_Year )
328 {
329 tmNow = wxDateTime::GetTmNow();
330
331 *year = 1900 + tmNow->tm_year;
332 }
333
334 if ( *month == wxDateTime::Inv_Month )
335 {
336 if ( !tmNow )
337 tmNow = wxDateTime::GetTmNow();
338
339 *month = (wxDateTime::Month)tmNow->tm_mon;
340 }
341}
342
f0f951fa
VZ
343// fll the struct tm with default values
344static void InitTm(struct tm& tm)
345{
346 // struct tm may have etxra fields (undocumented and with unportable
347 // names) which, nevertheless, must be set to 0
348 memset(&tm, 0, sizeof(struct tm));
349
350 tm.tm_mday = 1; // mday 0 is invalid
351 tm.tm_year = 76; // any valid year
352 tm.tm_isdst = -1; // auto determine
353}
354
cd0b1709
VZ
355// parsing helpers
356// ---------------
357
358// return the month if the string is a month name or Inv_Month otherwise
f0f951fa 359static wxDateTime::Month GetMonthFromName(const wxString& name, int flags)
cd0b1709
VZ
360{
361 wxDateTime::Month mon;
362 for ( mon = wxDateTime::Jan; mon < wxDateTime::Inv_Month; wxNextMonth(mon) )
363 {
f0f951fa
VZ
364 // case-insensitive comparison either one of or with both abbreviated
365 // and not versions
366 if ( flags & wxDateTime::Name_Full )
cd0b1709 367 {
f0f951fa
VZ
368 if ( name.CmpNoCase(wxDateTime::
369 GetMonthName(mon, wxDateTime::Name_Full)) == 0 )
370 {
371 break;
372 }
373 }
374
375 if ( flags & wxDateTime::Name_Abbr )
376 {
377 if ( name.CmpNoCase(wxDateTime::
378 GetMonthName(mon, wxDateTime::Name_Abbr)) == 0 )
379 {
380 break;
381 }
cd0b1709
VZ
382 }
383 }
384
385 return mon;
386}
387
388// return the weekday if the string is a weekday name or Inv_WeekDay otherwise
f0f951fa 389static wxDateTime::WeekDay GetWeekDayFromName(const wxString& name, int flags)
cd0b1709
VZ
390{
391 wxDateTime::WeekDay wd;
392 for ( wd = wxDateTime::Sun; wd < wxDateTime::Inv_WeekDay; wxNextWDay(wd) )
393 {
f0f951fa
VZ
394 // case-insensitive comparison either one of or with both abbreviated
395 // and not versions
396 if ( flags & wxDateTime::Name_Full )
cd0b1709 397 {
f0f951fa
VZ
398 if ( name.CmpNoCase(wxDateTime::
399 GetWeekDayName(wd, wxDateTime::Name_Full)) == 0 )
400 {
401 break;
402 }
403 }
404
405 if ( flags & wxDateTime::Name_Abbr )
406 {
407 if ( name.CmpNoCase(wxDateTime::
408 GetWeekDayName(wd, wxDateTime::Name_Abbr)) == 0 )
409 {
410 break;
411 }
cd0b1709
VZ
412 }
413 }
414
415 return wd;
416}
417
f6bcfd97
BP
418// scans all digits (but no more than len) and returns the resulting number
419static bool GetNumericToken(size_t len, const wxChar*& p, unsigned long *number)
f0f951fa 420{
f6bcfd97 421 size_t n = 1;
f0f951fa
VZ
422 wxString s;
423 while ( wxIsdigit(*p) )
424 {
425 s += *p++;
f6bcfd97
BP
426
427 if ( len && ++n > len )
428 break;
f0f951fa
VZ
429 }
430
431 return !!s && s.ToULong(number);
432}
433
434// scans all alphabetic characters and returns the resulting string
435static wxString GetAlphaToken(const wxChar*& p)
436{
437 wxString s;
438 while ( wxIsalpha(*p) )
439 {
440 s += *p++;
441 }
442
443 return s;
444}
445
0979c962
VZ
446// ============================================================================
447// implementation of wxDateTime
448// ============================================================================
449
b76b015e
VZ
450// ----------------------------------------------------------------------------
451// struct Tm
452// ----------------------------------------------------------------------------
453
454wxDateTime::Tm::Tm()
455{
456 year = (wxDateTime_t)wxDateTime::Inv_Year;
457 mon = wxDateTime::Inv_Month;
458 mday = 0;
e6ec579c 459 hour = min = sec = msec = 0;
b76b015e
VZ
460 wday = wxDateTime::Inv_WeekDay;
461}
462
299fcbfe
VZ
463wxDateTime::Tm::Tm(const struct tm& tm, const TimeZone& tz)
464 : m_tz(tz)
b76b015e 465{
e6ec579c 466 msec = 0;
b76b015e
VZ
467 sec = tm.tm_sec;
468 min = tm.tm_min;
469 hour = tm.tm_hour;
470 mday = tm.tm_mday;
fcc3d7cb 471 mon = (wxDateTime::Month)tm.tm_mon;
b76b015e
VZ
472 year = 1900 + tm.tm_year;
473 wday = tm.tm_wday;
474 yday = tm.tm_yday;
475}
476
477bool wxDateTime::Tm::IsValid() const
478{
479 // we allow for the leap seconds, although we don't use them (yet)
fcc3d7cb 480 return (year != wxDateTime::Inv_Year) && (mon != wxDateTime::Inv_Month) &&
c5a1681b 481 (mday <= GetNumOfDaysInMonth(year, mon)) &&
e6ec579c 482 (hour < 24) && (min < 60) && (sec < 62) && (msec < 1000);
b76b015e
VZ
483}
484
485void wxDateTime::Tm::ComputeWeekDay()
486{
c5a1681b
VZ
487 // compute the week day from day/month/year: we use the dumbest algorithm
488 // possible: just compute our JDN and then use the (simple to derive)
489 // formula: weekday = (JDN + 1.5) % 7
490 wday = (wxDateTime::WeekDay)(GetTruncatedJDN(mday, mon, year) + 2) % 7;
b76b015e
VZ
491}
492
e6ec579c 493void wxDateTime::Tm::AddMonths(int monDiff)
fcc3d7cb
VZ
494{
495 // normalize the months field
496 while ( monDiff < -mon )
497 {
498 year--;
499
500 monDiff += MONTHS_IN_YEAR;
501 }
502
2ef31e80 503 while ( monDiff + mon >= MONTHS_IN_YEAR )
fcc3d7cb
VZ
504 {
505 year++;
239446b4
VZ
506
507 monDiff -= MONTHS_IN_YEAR;
fcc3d7cb
VZ
508 }
509
510 mon = (wxDateTime::Month)(mon + monDiff);
511
e6ec579c 512 wxASSERT_MSG( mon >= 0 && mon < MONTHS_IN_YEAR, _T("logic error") );
4f6aed9c
VZ
513
514 // NB: we don't check here that the resulting date is valid, this function
515 // is private and the caller must check it if needed
fcc3d7cb
VZ
516}
517
e6ec579c 518void wxDateTime::Tm::AddDays(int dayDiff)
fcc3d7cb
VZ
519{
520 // normalize the days field
9d9b7755 521 while ( dayDiff + mday < 1 )
fcc3d7cb
VZ
522 {
523 AddMonths(-1);
524
9d9b7755 525 dayDiff += GetNumOfDaysInMonth(year, mon);
fcc3d7cb
VZ
526 }
527
9d9b7755 528 mday += dayDiff;
fcc3d7cb
VZ
529 while ( mday > GetNumOfDaysInMonth(year, mon) )
530 {
531 mday -= GetNumOfDaysInMonth(year, mon);
532
533 AddMonths(1);
534 }
535
536 wxASSERT_MSG( mday > 0 && mday <= GetNumOfDaysInMonth(year, mon),
537 _T("logic error") );
538}
539
540// ----------------------------------------------------------------------------
541// class TimeZone
542// ----------------------------------------------------------------------------
543
544wxDateTime::TimeZone::TimeZone(wxDateTime::TZ tz)
545{
546 switch ( tz )
547 {
548 case wxDateTime::Local:
299fcbfe
VZ
549 // get the offset from C RTL: it returns the difference GMT-local
550 // while we want to have the offset _from_ GMT, hence the '-'
551 m_offset = -GetTimeZone();
fcc3d7cb
VZ
552 break;
553
554 case wxDateTime::GMT_12:
555 case wxDateTime::GMT_11:
556 case wxDateTime::GMT_10:
557 case wxDateTime::GMT_9:
558 case wxDateTime::GMT_8:
559 case wxDateTime::GMT_7:
560 case wxDateTime::GMT_6:
561 case wxDateTime::GMT_5:
562 case wxDateTime::GMT_4:
563 case wxDateTime::GMT_3:
564 case wxDateTime::GMT_2:
565 case wxDateTime::GMT_1:
299fcbfe 566 m_offset = -3600*(wxDateTime::GMT0 - tz);
fcc3d7cb
VZ
567 break;
568
569 case wxDateTime::GMT0:
570 case wxDateTime::GMT1:
571 case wxDateTime::GMT2:
572 case wxDateTime::GMT3:
573 case wxDateTime::GMT4:
574 case wxDateTime::GMT5:
575 case wxDateTime::GMT6:
576 case wxDateTime::GMT7:
577 case wxDateTime::GMT8:
578 case wxDateTime::GMT9:
579 case wxDateTime::GMT10:
580 case wxDateTime::GMT11:
581 case wxDateTime::GMT12:
299fcbfe 582 m_offset = 3600*(tz - wxDateTime::GMT0);
fcc3d7cb
VZ
583 break;
584
585 case wxDateTime::A_CST:
586 // Central Standard Time in use in Australia = UTC + 9.5
cd0b1709 587 m_offset = 60l*(9*60 + 30);
fcc3d7cb
VZ
588 break;
589
590 default:
591 wxFAIL_MSG( _T("unknown time zone") );
592 }
593}
594
b76b015e
VZ
595// ----------------------------------------------------------------------------
596// static functions
597// ----------------------------------------------------------------------------
598
599/* static */
600bool wxDateTime::IsLeapYear(int year, wxDateTime::Calendar cal)
601{
2f02cb89
VZ
602 if ( year == Inv_Year )
603 year = GetCurrentYear();
604
b76b015e
VZ
605 if ( cal == Gregorian )
606 {
607 // in Gregorian calendar leap years are those divisible by 4 except
608 // those divisible by 100 unless they're also divisible by 400
609 // (in some countries, like Russia and Greece, additional corrections
610 // exist, but they won't manifest themselves until 2700)
611 return (year % 4 == 0) && ((year % 100 != 0) || (year % 400 == 0));
612 }
613 else if ( cal == Julian )
614 {
615 // in Julian calendar the rule is simpler
616 return year % 4 == 0;
617 }
618 else
619 {
620 wxFAIL_MSG(_T("unknown calendar"));
621
622 return FALSE;
623 }
624}
625
fcc3d7cb
VZ
626/* static */
627int wxDateTime::GetCentury(int year)
628{
629 return year > 0 ? year / 100 : year / 100 - 1;
630}
631
b76b015e
VZ
632/* static */
633int wxDateTime::ConvertYearToBC(int year)
634{
635 // year 0 is BC 1
636 return year > 0 ? year : year - 1;
637}
638
639/* static */
640int wxDateTime::GetCurrentYear(wxDateTime::Calendar cal)
641{
642 switch ( cal )
643 {
644 case Gregorian:
645 return Now().GetYear();
646
647 case Julian:
648 wxFAIL_MSG(_T("TODO"));
649 break;
650
651 default:
652 wxFAIL_MSG(_T("unsupported calendar"));
653 break;
654 }
655
656 return Inv_Year;
657}
658
659/* static */
660wxDateTime::Month wxDateTime::GetCurrentMonth(wxDateTime::Calendar cal)
661{
662 switch ( cal )
663 {
664 case Gregorian:
665 return Now().GetMonth();
b76b015e
VZ
666
667 case Julian:
668 wxFAIL_MSG(_T("TODO"));
669 break;
670
671 default:
672 wxFAIL_MSG(_T("unsupported calendar"));
673 break;
674 }
675
676 return Inv_Month;
677}
678
2f02cb89
VZ
679/* static */
680wxDateTime::wxDateTime_t wxDateTime::GetNumberOfDays(int year, Calendar cal)
681{
682 if ( year == Inv_Year )
683 {
684 // take the current year if none given
685 year = GetCurrentYear();
686 }
687
688 switch ( cal )
689 {
690 case Gregorian:
691 case Julian:
692 return IsLeapYear(year) ? 366 : 365;
2f02cb89
VZ
693
694 default:
695 wxFAIL_MSG(_T("unsupported calendar"));
696 break;
697 }
698
699 return 0;
700}
701
b76b015e
VZ
702/* static */
703wxDateTime::wxDateTime_t wxDateTime::GetNumberOfDays(wxDateTime::Month month,
704 int year,
705 wxDateTime::Calendar cal)
706{
fcc3d7cb 707 wxCHECK_MSG( month < MONTHS_IN_YEAR, 0, _T("invalid month") );
b76b015e
VZ
708
709 if ( cal == Gregorian || cal == Julian )
710 {
711 if ( year == Inv_Year )
712 {
713 // take the current year if none given
714 year = GetCurrentYear();
715 }
716
fcc3d7cb 717 return GetNumOfDaysInMonth(year, month);
b76b015e
VZ
718 }
719 else
720 {
721 wxFAIL_MSG(_T("unsupported calendar"));
722
723 return 0;
724 }
725}
726
727/* static */
f0f951fa
VZ
728wxString wxDateTime::GetMonthName(wxDateTime::Month month,
729 wxDateTime::NameFlags flags)
b76b015e
VZ
730{
731 wxCHECK_MSG( month != Inv_Month, _T(""), _T("invalid month") );
732
68ee7c47
VZ
733 // notice that we must set all the fields to avoid confusing libc (GNU one
734 // gets confused to a crash if we don't do this)
cd0b1709 735 tm tm;
f0f951fa 736 InitTm(tm);
cd0b1709 737 tm.tm_mon = month;
b76b015e 738
f0f951fa 739 return CallStrftime(flags == Name_Abbr ? _T("%b") : _T("%B"), &tm);
b76b015e
VZ
740}
741
742/* static */
f0f951fa
VZ
743wxString wxDateTime::GetWeekDayName(wxDateTime::WeekDay wday,
744 wxDateTime::NameFlags flags)
b76b015e
VZ
745{
746 wxCHECK_MSG( wday != Inv_WeekDay, _T(""), _T("invalid weekday") );
747
748 // take some arbitrary Sunday
f0f951fa
VZ
749 tm tm;
750 InitTm(tm);
751 tm.tm_mday = 28;
752 tm.tm_mon = Nov;
753 tm.tm_year = 99;
b76b015e 754
1ef54dcf 755 // and offset it by the number of days needed to get the correct wday
b76b015e
VZ
756 tm.tm_mday += wday;
757
c5a1681b
VZ
758 // call mktime() to normalize it...
759 (void)mktime(&tm);
760
761 // ... and call strftime()
f0f951fa
VZ
762 return CallStrftime(flags == Name_Abbr ? _T("%a") : _T("%A"), &tm);
763}
764
765/* static */
766void wxDateTime::GetAmPmStrings(wxString *am, wxString *pm)
767{
768 tm tm;
769 InitTm(tm);
770 if ( am )
771 {
772 *am = CallStrftime(_T("%p"), &tm);
773 }
774 if ( pm )
775 {
776 tm.tm_hour = 13;
777 *pm = CallStrftime(_T("%p"), &tm);
778 }
b76b015e
VZ
779}
780
239446b4
VZ
781// ----------------------------------------------------------------------------
782// Country stuff: date calculations depend on the country (DST, work days,
783// ...), so we need to know which rules to follow.
784// ----------------------------------------------------------------------------
785
786/* static */
787wxDateTime::Country wxDateTime::GetCountry()
788{
f0f951fa
VZ
789 // TODO use LOCALE_ICOUNTRY setting under Win32
790
239446b4
VZ
791 if ( ms_country == Country_Unknown )
792 {
793 // try to guess from the time zone name
794 time_t t = time(NULL);
795 struct tm *tm = localtime(&t);
796
797 wxString tz = CallStrftime(_T("%Z"), tm);
798 if ( tz == _T("WET") || tz == _T("WEST") )
799 {
800 ms_country = UK;
801 }
802 else if ( tz == _T("CET") || tz == _T("CEST") )
803 {
804 ms_country = Country_EEC;
805 }
806 else if ( tz == _T("MSK") || tz == _T("MSD") )
807 {
808 ms_country = Russia;
809 }
810 else if ( tz == _T("AST") || tz == _T("ADT") ||
811 tz == _T("EST") || tz == _T("EDT") ||
812 tz == _T("CST") || tz == _T("CDT") ||
813 tz == _T("MST") || tz == _T("MDT") ||
814 tz == _T("PST") || tz == _T("PDT") )
815 {
816 ms_country = USA;
817 }
818 else
819 {
820 // well, choose a default one
821 ms_country = USA;
822 }
823 }
824
825 return ms_country;
826}
827
828/* static */
829void wxDateTime::SetCountry(wxDateTime::Country country)
830{
831 ms_country = country;
832}
833
834/* static */
835bool wxDateTime::IsWestEuropeanCountry(Country country)
836{
837 if ( country == Country_Default )
838 {
839 country = GetCountry();
840 }
841
842 return (Country_WesternEurope_Start <= country) &&
843 (country <= Country_WesternEurope_End);
844}
845
846// ----------------------------------------------------------------------------
847// DST calculations: we use 3 different rules for the West European countries,
848// USA and for the rest of the world. This is undoubtedly false for many
849// countries, but I lack the necessary info (and the time to gather it),
850// please add the other rules here!
851// ----------------------------------------------------------------------------
852
853/* static */
854bool wxDateTime::IsDSTApplicable(int year, Country country)
855{
856 if ( year == Inv_Year )
857 {
858 // take the current year if none given
859 year = GetCurrentYear();
860 }
861
862 if ( country == Country_Default )
863 {
864 country = GetCountry();
865 }
866
867 switch ( country )
868 {
869 case USA:
870 case UK:
871 // DST was first observed in the US and UK during WWI, reused
872 // during WWII and used again since 1966
873 return year >= 1966 ||
874 (year >= 1942 && year <= 1945) ||
875 (year == 1918 || year == 1919);
876
877 default:
878 // assume that it started after WWII
879 return year > 1950;
880 }
881}
882
883/* static */
884wxDateTime wxDateTime::GetBeginDST(int year, Country country)
885{
886 if ( year == Inv_Year )
887 {
888 // take the current year if none given
889 year = GetCurrentYear();
890 }
891
892 if ( country == Country_Default )
893 {
894 country = GetCountry();
895 }
896
897 if ( !IsDSTApplicable(year, country) )
898 {
2ef31e80 899 return wxInvalidDateTime;
239446b4
VZ
900 }
901
902 wxDateTime dt;
903
904 if ( IsWestEuropeanCountry(country) || (country == Russia) )
905 {
906 // DST begins at 1 a.m. GMT on the last Sunday of March
907 if ( !dt.SetToLastWeekDay(Sun, Mar, year) )
908 {
909 // weird...
910 wxFAIL_MSG( _T("no last Sunday in March?") );
911 }
912
913 dt += wxTimeSpan::Hours(1);
914
41acf5c0
VZ
915 // disable DST tests because it could result in an infinite recursion!
916 dt.MakeGMT(TRUE);
239446b4
VZ
917 }
918 else switch ( country )
919 {
920 case USA:
921 switch ( year )
922 {
923 case 1918:
924 case 1919:
925 // don't know for sure - assume it was in effect all year
926
927 case 1943:
928 case 1944:
929 case 1945:
930 dt.Set(1, Jan, year);
931 break;
932
933 case 1942:
934 // DST was installed Feb 2, 1942 by the Congress
935 dt.Set(2, Feb, year);
936 break;
937
938 // Oil embargo changed the DST period in the US
939 case 1974:
940 dt.Set(6, Jan, 1974);
941 break;
942
943 case 1975:
944 dt.Set(23, Feb, 1975);
945 break;
946
947 default:
948 // before 1986, DST begun on the last Sunday of April, but
949 // in 1986 Reagan changed it to begin at 2 a.m. of the
950 // first Sunday in April
951 if ( year < 1986 )
952 {
953 if ( !dt.SetToLastWeekDay(Sun, Apr, year) )
954 {
955 // weird...
956 wxFAIL_MSG( _T("no first Sunday in April?") );
957 }
958 }
959 else
960 {
961 if ( !dt.SetToWeekDay(Sun, 1, Apr, year) )
962 {
963 // weird...
964 wxFAIL_MSG( _T("no first Sunday in April?") );
965 }
966 }
967
968 dt += wxTimeSpan::Hours(2);
969
970 // TODO what about timezone??
971 }
972
973 break;
974
975 default:
976 // assume Mar 30 as the start of the DST for the rest of the world
977 // - totally bogus, of course
978 dt.Set(30, Mar, year);
979 }
980
981 return dt;
982}
983
984/* static */
985wxDateTime wxDateTime::GetEndDST(int year, Country country)
986{
987 if ( year == Inv_Year )
988 {
989 // take the current year if none given
990 year = GetCurrentYear();
991 }
992
993 if ( country == Country_Default )
994 {
995 country = GetCountry();
996 }
997
998 if ( !IsDSTApplicable(year, country) )
999 {
2ef31e80 1000 return wxInvalidDateTime;
239446b4
VZ
1001 }
1002
1003 wxDateTime dt;
1004
1005 if ( IsWestEuropeanCountry(country) || (country == Russia) )
1006 {
5f287370 1007 // DST ends at 1 a.m. GMT on the last Sunday of October
239446b4
VZ
1008 if ( !dt.SetToLastWeekDay(Sun, Oct, year) )
1009 {
1010 // weirder and weirder...
1011 wxFAIL_MSG( _T("no last Sunday in October?") );
1012 }
1013
1014 dt += wxTimeSpan::Hours(1);
1015
41acf5c0
VZ
1016 // disable DST tests because it could result in an infinite recursion!
1017 dt.MakeGMT(TRUE);
239446b4
VZ
1018 }
1019 else switch ( country )
1020 {
1021 case USA:
1022 switch ( year )
1023 {
1024 case 1918:
1025 case 1919:
1026 // don't know for sure - assume it was in effect all year
1027
1028 case 1943:
1029 case 1944:
1030 dt.Set(31, Dec, year);
1031 break;
1032
1033 case 1945:
1034 // the time was reset after the end of the WWII
1035 dt.Set(30, Sep, year);
1036 break;
1037
1038 default:
5f287370 1039 // DST ends at 2 a.m. on the last Sunday of October
239446b4
VZ
1040 if ( !dt.SetToLastWeekDay(Sun, Oct, year) )
1041 {
1042 // weirder and weirder...
1043 wxFAIL_MSG( _T("no last Sunday in October?") );
1044 }
1045
1046 dt += wxTimeSpan::Hours(2);
1047
1048 // TODO what about timezone??
1049 }
1050 break;
1051
1052 default:
1053 // assume October 26th as the end of the DST - totally bogus too
1054 dt.Set(26, Oct, year);
1055 }
1056
1057 return dt;
1058}
1059
0979c962
VZ
1060// ----------------------------------------------------------------------------
1061// constructors and assignment operators
1062// ----------------------------------------------------------------------------
1063
f6bcfd97
BP
1064// return the current time with ms precision
1065/* static */ wxDateTime wxDateTime::UNow()
1066{
1067 return wxDateTime(wxGetLocalTimeMillis());
1068}
1069
299fcbfe
VZ
1070// the values in the tm structure contain the local time
1071wxDateTime& wxDateTime::Set(const struct tm& tm)
0979c962 1072{
299fcbfe 1073 struct tm tm2(tm);
b76b015e 1074 time_t timet = mktime(&tm2);
1ef54dcf 1075
4afd7529 1076 if ( timet == (time_t)-1 )
0979c962 1077 {
4afd7529
VZ
1078 // mktime() rather unintuitively fails for Jan 1, 1970 if the hour is
1079 // less than timezone - try to make it work for this case
1080 if ( tm2.tm_year == 70 && tm2.tm_mon == 0 && tm2.tm_mday == 1 )
1081 {
1082 // add timezone to make sure that date is in range
1083 tm2.tm_sec -= GetTimeZone();
1084
1085 timet = mktime(&tm2);
1086 if ( timet != (time_t)-1 )
1087 {
1088 timet += GetTimeZone();
1089
1090 return Set(timet);
1091 }
1092 }
1093
1094 wxFAIL_MSG( _T("mktime() failed") );
0979c962 1095
384223b3
VZ
1096 *this = wxInvalidDateTime;
1097
1098 return *this;
0979c962
VZ
1099 }
1100 else
1101 {
1102 return Set(timet);
1103 }
1104}
1105
1106wxDateTime& wxDateTime::Set(wxDateTime_t hour,
1107 wxDateTime_t minute,
1108 wxDateTime_t second,
1109 wxDateTime_t millisec)
1110{
1111 // we allow seconds to be 61 to account for the leap seconds, even if we
1112 // don't use them really
384223b3
VZ
1113 wxDATETIME_CHECK( hour < 24 &&
1114 second < 62 &&
1115 minute < 60 &&
1116 millisec < 1000,
1117 _T("Invalid time in wxDateTime::Set()") );
0979c962
VZ
1118
1119 // get the current date from system
9d9b7755 1120 struct tm *tm = GetTmNow();
299fcbfe 1121
384223b3 1122 wxDATETIME_CHECK( tm, _T("localtime() failed") );
0979c962
VZ
1123
1124 // adjust the time
1125 tm->tm_hour = hour;
1126 tm->tm_min = minute;
1127 tm->tm_sec = second;
1128
b76b015e 1129 (void)Set(*tm);
0979c962
VZ
1130
1131 // and finally adjust milliseconds
1132 return SetMillisecond(millisec);
1133}
1134
1135wxDateTime& wxDateTime::Set(wxDateTime_t day,
1136 Month month,
1137 int year,
1138 wxDateTime_t hour,
1139 wxDateTime_t minute,
1140 wxDateTime_t second,
1141 wxDateTime_t millisec)
1142{
384223b3
VZ
1143 wxDATETIME_CHECK( hour < 24 &&
1144 second < 62 &&
1145 minute < 60 &&
1146 millisec < 1000,
1147 _T("Invalid time in wxDateTime::Set()") );
0979c962 1148
2f02cb89 1149 ReplaceDefaultYearMonthWithCurrent(&year, &month);
0979c962 1150
384223b3
VZ
1151 wxDATETIME_CHECK( (0 < day) && (day <= GetNumberOfDays(month, year)),
1152 _T("Invalid date in wxDateTime::Set()") );
0979c962
VZ
1153
1154 // the range of time_t type (inclusive)
1155 static const int yearMinInRange = 1970;
1156 static const int yearMaxInRange = 2037;
1157
1158 // test only the year instead of testing for the exact end of the Unix
1159 // time_t range - it doesn't bring anything to do more precise checks
2f02cb89 1160 if ( year >= yearMinInRange && year <= yearMaxInRange )
0979c962
VZ
1161 {
1162 // use the standard library version if the date is in range - this is
b76b015e 1163 // probably more efficient than our code
0979c962 1164 struct tm tm;
b76b015e 1165 tm.tm_year = year - 1900;
0979c962
VZ
1166 tm.tm_mon = month;
1167 tm.tm_mday = day;
1168 tm.tm_hour = hour;
1169 tm.tm_min = minute;
1170 tm.tm_sec = second;
299fcbfe 1171 tm.tm_isdst = -1; // mktime() will guess it
0979c962
VZ
1172
1173 (void)Set(tm);
1174
1175 // and finally adjust milliseconds
1176 return SetMillisecond(millisec);
1177 }
1178 else
1179 {
1180 // do time calculations ourselves: we want to calculate the number of
fcc3d7cb 1181 // milliseconds between the given date and the epoch
e6ec579c
VZ
1182
1183 // get the JDN for the midnight of this day
1184 m_time = GetTruncatedJDN(day, month, year);
1185 m_time -= EPOCH_JDN;
1186 m_time *= SECONDS_PER_DAY * TIME_T_FACTOR;
1187
299fcbfe
VZ
1188 // JDN corresponds to GMT, we take localtime
1189 Add(wxTimeSpan(hour, minute, second + GetTimeZone(), millisec));
b76b015e
VZ
1190 }
1191
1192 return *this;
1193}
1194
e6ec579c
VZ
1195wxDateTime& wxDateTime::Set(double jdn)
1196{
1ef54dcf
VZ
1197 // so that m_time will be 0 for the midnight of Jan 1, 1970 which is jdn
1198 // EPOCH_JDN + 0.5
1199 jdn -= EPOCH_JDN + 0.5;
1200
cd0b1709
VZ
1201 jdn *= MILLISECONDS_PER_DAY;
1202
9c2882d9 1203 m_time.Assign(jdn);
e6ec579c
VZ
1204
1205 return *this;
1206}
1207
9d9b7755
VZ
1208wxDateTime& wxDateTime::ResetTime()
1209{
1210 Tm tm = GetTm();
1211
1212 if ( tm.hour || tm.min || tm.sec || tm.msec )
1213 {
1214 tm.msec =
1215 tm.sec =
1216 tm.min =
1217 tm.hour = 0;
1218
1219 Set(tm);
1220 }
1221
1222 return *this;
1223}
1224
b76b015e
VZ
1225// ----------------------------------------------------------------------------
1226// time_t <-> broken down time conversions
1227// ----------------------------------------------------------------------------
1228
299fcbfe 1229wxDateTime::Tm wxDateTime::GetTm(const TimeZone& tz) const
b76b015e
VZ
1230{
1231 wxASSERT_MSG( IsValid(), _T("invalid wxDateTime") );
1232
1233 time_t time = GetTicks();
1234 if ( time != (time_t)-1 )
1235 {
1236 // use C RTL functions
299fcbfe
VZ
1237 tm *tm;
1238 if ( tz.GetOffset() == -GetTimeZone() )
1239 {
1240 // we are working with local time
1241 tm = localtime(&time);
c5a1681b
VZ
1242
1243 // should never happen
f6bcfd97 1244 wxCHECK_MSG( tm, Tm(), _T("localtime() failed") );
299fcbfe
VZ
1245 }
1246 else
1247 {
13111b2a 1248 time += (time_t)tz.GetOffset();
33ac7e6f 1249#if defined(__VMS__) || defined(__WATCOMC__) // time is unsigned so avoid warning
13111b2a 1250 int time2 = (int) time;
9d9b7755 1251 if ( time2 >= 0 )
fb10f04c 1252#else
9d9b7755 1253 if ( time >= 0 )
fb10f04c 1254#endif
c5a1681b
VZ
1255 {
1256 tm = gmtime(&time);
b76b015e 1257
c5a1681b
VZ
1258 // should never happen
1259 wxCHECK_MSG( tm, Tm(), _T("gmtime() failed") );
1260 }
1261 else
1262 {
1263 tm = (struct tm *)NULL;
1264 }
1265 }
b76b015e 1266
c5a1681b
VZ
1267 if ( tm )
1268 {
f6bcfd97
BP
1269 // adjust the milliseconds
1270 Tm tm2(*tm, tz);
1271 long timeOnly = (m_time % MILLISECONDS_PER_DAY).ToLong();
1272 tm2.msec = (wxDateTime_t)(timeOnly % 1000);
1273 return tm2;
c5a1681b
VZ
1274 }
1275 //else: use generic code below
b76b015e 1276 }
e6ec579c 1277
c5a1681b
VZ
1278 // remember the time and do the calculations with the date only - this
1279 // eliminates rounding errors of the floating point arithmetics
299fcbfe 1280
c5a1681b 1281 wxLongLong timeMidnight = m_time + tz.GetOffset() * 1000;
1ef54dcf 1282
c5a1681b 1283 long timeOnly = (timeMidnight % MILLISECONDS_PER_DAY).ToLong();
1ef54dcf 1284
c5a1681b
VZ
1285 // we want to always have positive time and timeMidnight to be really
1286 // the midnight before it
1287 if ( timeOnly < 0 )
1288 {
1289 timeOnly = MILLISECONDS_PER_DAY + timeOnly;
1290 }
e6ec579c 1291
c5a1681b 1292 timeMidnight -= timeOnly;
1ef54dcf 1293
c5a1681b
VZ
1294 // calculate the Gregorian date from JDN for the midnight of our date:
1295 // this will yield day, month (in 1..12 range) and year
1ef54dcf 1296
c5a1681b
VZ
1297 // actually, this is the JDN for the noon of the previous day
1298 long jdn = (timeMidnight / MILLISECONDS_PER_DAY).ToLong() + EPOCH_JDN;
1ef54dcf 1299
c5a1681b 1300 // CREDIT: code below is by Scott E. Lee (but bugs are mine)
1ef54dcf 1301
c5a1681b 1302 wxASSERT_MSG( jdn > -2, _T("JDN out of range") );
1ef54dcf 1303
c5a1681b 1304 // calculate the century
479cd5de
VZ
1305 long temp = (jdn + JDN_OFFSET) * 4 - 1;
1306 long century = temp / DAYS_PER_400_YEARS;
1ef54dcf 1307
c5a1681b
VZ
1308 // then the year and day of year (1 <= dayOfYear <= 366)
1309 temp = ((temp % DAYS_PER_400_YEARS) / 4) * 4 + 3;
479cd5de
VZ
1310 long year = (century * 100) + (temp / DAYS_PER_4_YEARS);
1311 long dayOfYear = (temp % DAYS_PER_4_YEARS) / 4 + 1;
1ef54dcf 1312
c5a1681b
VZ
1313 // and finally the month and day of the month
1314 temp = dayOfYear * 5 - 3;
479cd5de
VZ
1315 long month = temp / DAYS_PER_5_MONTHS;
1316 long day = (temp % DAYS_PER_5_MONTHS) / 5 + 1;
c5a1681b
VZ
1317
1318 // month is counted from March - convert to normal
1319 if ( month < 10 )
1320 {
1321 month += 3;
1322 }
1323 else
1324 {
1325 year += 1;
1326 month -= 9;
1327 }
1ef54dcf 1328
c5a1681b
VZ
1329 // year is offset by 4800
1330 year -= 4800;
1ef54dcf 1331
c5a1681b
VZ
1332 // check that the algorithm gave us something reasonable
1333 wxASSERT_MSG( (0 < month) && (month <= 12), _T("invalid month") );
1334 wxASSERT_MSG( (1 <= day) && (day < 32), _T("invalid day") );
e6ec579c 1335
c5a1681b
VZ
1336 // construct Tm from these values
1337 Tm tm;
1338 tm.year = (int)year;
1339 tm.mon = (Month)(month - 1); // algorithm yields 1 for January, not 0
1340 tm.mday = (wxDateTime_t)day;
479cd5de 1341 tm.msec = (wxDateTime_t)(timeOnly % 1000);
c5a1681b
VZ
1342 timeOnly -= tm.msec;
1343 timeOnly /= 1000; // now we have time in seconds
e6ec579c 1344
479cd5de 1345 tm.sec = (wxDateTime_t)(timeOnly % 60);
c5a1681b
VZ
1346 timeOnly -= tm.sec;
1347 timeOnly /= 60; // now we have time in minutes
e6ec579c 1348
479cd5de 1349 tm.min = (wxDateTime_t)(timeOnly % 60);
c5a1681b 1350 timeOnly -= tm.min;
e6ec579c 1351
479cd5de 1352 tm.hour = (wxDateTime_t)(timeOnly / 60);
b76b015e 1353
c5a1681b 1354 return tm;
b76b015e
VZ
1355}
1356
1357wxDateTime& wxDateTime::SetYear(int year)
1358{
1359 wxASSERT_MSG( IsValid(), _T("invalid wxDateTime") );
1360
1361 Tm tm(GetTm());
1362 tm.year = year;
1363 Set(tm);
1364
1365 return *this;
1366}
1367
1368wxDateTime& wxDateTime::SetMonth(Month month)
1369{
1370 wxASSERT_MSG( IsValid(), _T("invalid wxDateTime") );
1371
1372 Tm tm(GetTm());
1373 tm.mon = month;
1374 Set(tm);
1375
1376 return *this;
1377}
1378
1379wxDateTime& wxDateTime::SetDay(wxDateTime_t mday)
1380{
1381 wxASSERT_MSG( IsValid(), _T("invalid wxDateTime") );
1382
1383 Tm tm(GetTm());
1384 tm.mday = mday;
1385 Set(tm);
1386
1387 return *this;
1388}
1389
1390wxDateTime& wxDateTime::SetHour(wxDateTime_t hour)
1391{
1392 wxASSERT_MSG( IsValid(), _T("invalid wxDateTime") );
1393
1394 Tm tm(GetTm());
1395 tm.hour = hour;
1396 Set(tm);
1397
1398 return *this;
1399}
1400
1401wxDateTime& wxDateTime::SetMinute(wxDateTime_t min)
1402{
1403 wxASSERT_MSG( IsValid(), _T("invalid wxDateTime") );
1404
1405 Tm tm(GetTm());
1406 tm.min = min;
1407 Set(tm);
1408
1409 return *this;
1410}
1411
1412wxDateTime& wxDateTime::SetSecond(wxDateTime_t sec)
1413{
1414 wxASSERT_MSG( IsValid(), _T("invalid wxDateTime") );
1415
1416 Tm tm(GetTm());
1417 tm.sec = sec;
1418 Set(tm);
0979c962
VZ
1419
1420 return *this;
1421}
b76b015e
VZ
1422
1423wxDateTime& wxDateTime::SetMillisecond(wxDateTime_t millisecond)
1424{
1425 wxASSERT_MSG( IsValid(), _T("invalid wxDateTime") );
1426
1427 // we don't need to use GetTm() for this one
1428 m_time -= m_time % 1000l;
1429 m_time += millisecond;
1430
1431 return *this;
1432}
1433
1434// ----------------------------------------------------------------------------
1435// wxDateTime arithmetics
1436// ----------------------------------------------------------------------------
1437
1438wxDateTime& wxDateTime::Add(const wxDateSpan& diff)
1439{
1440 Tm tm(GetTm());
1441
1442 tm.year += diff.GetYears();
fcc3d7cb 1443 tm.AddMonths(diff.GetMonths());
4f6aed9c
VZ
1444
1445 // check that the resulting date is valid
1446 if ( tm.mday > GetNumOfDaysInMonth(tm.year, tm.mon) )
1447 {
1448 // We suppose that when adding one month to Jan 31 we want to get Feb
1449 // 28 (or 29), i.e. adding a month to the last day of the month should
1450 // give the last day of the next month which is quite logical.
1451 //
1452 // Unfortunately, there is no logic way to understand what should
1453 // Jan 30 + 1 month be - Feb 28 too or Feb 27 (assuming non leap year)?
1454 // We make it Feb 28 (last day too), but it is highly questionable.
1455 tm.mday = GetNumOfDaysInMonth(tm.year, tm.mon);
1456 }
1457
fcc3d7cb 1458 tm.AddDays(diff.GetTotalDays());
b76b015e
VZ
1459
1460 Set(tm);
1461
9d9b7755
VZ
1462 wxASSERT_MSG( IsSameTime(tm),
1463 _T("Add(wxDateSpan) shouldn't modify time") );
1464
b76b015e
VZ
1465 return *this;
1466}
1467
2f02cb89
VZ
1468// ----------------------------------------------------------------------------
1469// Weekday and monthday stuff
1470// ----------------------------------------------------------------------------
1471
4f6aed9c
VZ
1472bool wxDateTime::SetToTheWeek(wxDateTime_t numWeek, WeekDay weekday)
1473{
1474 int year = GetYear();
1475
1476 // Jan 4 always lies in the 1st week of the year
1477 Set(4, Jan, year);
1478 SetToWeekDayInSameWeek(weekday) += wxDateSpan::Weeks(numWeek);
1479
1480 if ( GetYear() != year )
1481 {
1482 // oops... numWeek was too big
1483 return FALSE;
1484 }
1485
1486 return TRUE;
1487}
1488
2f02cb89
VZ
1489wxDateTime& wxDateTime::SetToLastMonthDay(Month month,
1490 int year)
1491{
1492 // take the current month/year if none specified
1a8557b1
VZ
1493 if ( year == Inv_Year )
1494 year = GetYear();
1495 if ( month == Inv_Month )
1496 month = GetMonth();
2f02cb89 1497
fcc3d7cb 1498 return Set(GetNumOfDaysInMonth(year, month), month, year);
2f02cb89
VZ
1499}
1500
cd0b1709
VZ
1501wxDateTime& wxDateTime::SetToWeekDayInSameWeek(WeekDay weekday)
1502{
384223b3 1503 wxDATETIME_CHECK( weekday != Inv_WeekDay, _T("invalid weekday") );
cd0b1709
VZ
1504
1505 WeekDay wdayThis = GetWeekDay();
1506 if ( weekday == wdayThis )
1507 {
1508 // nothing to do
1509 return *this;
1510 }
1511 else if ( weekday < wdayThis )
1512 {
f6bcfd97 1513 return Subtract(wxDateSpan::Days(wdayThis - weekday));
cd0b1709
VZ
1514 }
1515 else // weekday > wdayThis
1516 {
4f6aed9c 1517 return Add(wxDateSpan::Days(weekday - wdayThis));
cd0b1709
VZ
1518 }
1519}
1520
1521wxDateTime& wxDateTime::SetToNextWeekDay(WeekDay weekday)
1522{
384223b3 1523 wxDATETIME_CHECK( weekday != Inv_WeekDay, _T("invalid weekday") );
cd0b1709
VZ
1524
1525 int diff;
1526 WeekDay wdayThis = GetWeekDay();
1527 if ( weekday == wdayThis )
1528 {
1529 // nothing to do
1530 return *this;
1531 }
1532 else if ( weekday < wdayThis )
1533 {
1534 // need to advance a week
1535 diff = 7 - (wdayThis - weekday);
1536 }
1537 else // weekday > wdayThis
1538 {
1539 diff = weekday - wdayThis;
1540 }
1541
4f6aed9c 1542 return Add(wxDateSpan::Days(diff));
cd0b1709
VZ
1543}
1544
1545wxDateTime& wxDateTime::SetToPrevWeekDay(WeekDay weekday)
1546{
384223b3 1547 wxDATETIME_CHECK( weekday != Inv_WeekDay, _T("invalid weekday") );
cd0b1709
VZ
1548
1549 int diff;
1550 WeekDay wdayThis = GetWeekDay();
1551 if ( weekday == wdayThis )
1552 {
1553 // nothing to do
1554 return *this;
1555 }
1556 else if ( weekday > wdayThis )
1557 {
1558 // need to go to previous week
1559 diff = 7 - (weekday - wdayThis);
1560 }
1561 else // weekday < wdayThis
1562 {
1563 diff = wdayThis - weekday;
1564 }
1565
f6bcfd97 1566 return Subtract(wxDateSpan::Days(diff));
cd0b1709
VZ
1567}
1568
2f02cb89
VZ
1569bool wxDateTime::SetToWeekDay(WeekDay weekday,
1570 int n,
1571 Month month,
1572 int year)
1573{
1574 wxCHECK_MSG( weekday != Inv_WeekDay, FALSE, _T("invalid weekday") );
1575
1576 // we don't check explicitly that -5 <= n <= 5 because we will return FALSE
1577 // anyhow in such case - but may be should still give an assert for it?
1578
1579 // take the current month/year if none specified
1580 ReplaceDefaultYearMonthWithCurrent(&year, &month);
1581
1582 wxDateTime dt;
1583
1584 // TODO this probably could be optimised somehow...
1585
1586 if ( n > 0 )
1587 {
1588 // get the first day of the month
1589 dt.Set(1, month, year);
1590
1591 // get its wday
1592 WeekDay wdayFirst = dt.GetWeekDay();
1593
1594 // go to the first weekday of the month
1595 int diff = weekday - wdayFirst;
1596 if ( diff < 0 )
1597 diff += 7;
1598
1599 // add advance n-1 weeks more
1600 diff += 7*(n - 1);
1601
239446b4 1602 dt += wxDateSpan::Days(diff);
2f02cb89 1603 }
239446b4 1604 else // count from the end of the month
2f02cb89
VZ
1605 {
1606 // get the last day of the month
1607 dt.SetToLastMonthDay(month, year);
1608
1609 // get its wday
1610 WeekDay wdayLast = dt.GetWeekDay();
1611
1612 // go to the last weekday of the month
1613 int diff = wdayLast - weekday;
1614 if ( diff < 0 )
1615 diff += 7;
1616
1617 // and rewind n-1 weeks from there
239446b4 1618 diff += 7*(-n - 1);
2f02cb89
VZ
1619
1620 dt -= wxDateSpan::Days(diff);
1621 }
1622
1623 // check that it is still in the same month
1624 if ( dt.GetMonth() == month )
1625 {
1626 *this = dt;
1627
1628 return TRUE;
1629 }
1630 else
1631 {
1632 // no such day in this month
1633 return FALSE;
1634 }
1635}
1636
239446b4
VZ
1637wxDateTime::wxDateTime_t wxDateTime::GetDayOfYear(const TimeZone& tz) const
1638{
239446b4
VZ
1639 Tm tm(GetTm(tz));
1640
f0f951fa 1641 return gs_cumulatedDays[IsLeapYear(tm.year)][tm.mon] + tm.mday;
239446b4
VZ
1642}
1643
9d9b7755
VZ
1644wxDateTime::wxDateTime_t wxDateTime::GetWeekOfYear(wxDateTime::WeekFlags flags,
1645 const TimeZone& tz) const
239446b4 1646{
9d9b7755
VZ
1647 if ( flags == Default_First )
1648 {
1649 flags = GetCountry() == USA ? Sunday_First : Monday_First;
1650 }
239446b4
VZ
1651
1652 wxDateTime_t nDayInYear = GetDayOfYear(tz);
9d9b7755 1653 wxDateTime_t week;
239446b4 1654
9d9b7755
VZ
1655 WeekDay wd = GetWeekDay(tz);
1656 if ( flags == Sunday_First )
1657 {
1658 week = (nDayInYear - wd + 7) / 7;
1659 }
1660 else
1661 {
1662 // have to shift the week days values
1663 week = (nDayInYear - (wd - 1 + 7) % 7 + 7) / 7;
1664 }
239446b4 1665
9d9b7755
VZ
1666 // FIXME some more elegant way??
1667 WeekDay wdYearStart = wxDateTime(1, Jan, GetYear()).GetWeekDay();
1668 if ( wdYearStart == Wed || wdYearStart == Thu )
239446b4
VZ
1669 {
1670 week++;
1671 }
1672
1673 return week;
68ee7c47
VZ
1674}
1675
9d9b7755
VZ
1676wxDateTime::wxDateTime_t wxDateTime::GetWeekOfMonth(wxDateTime::WeekFlags flags,
1677 const TimeZone& tz) const
68ee7c47 1678{
9d9b7755
VZ
1679 Tm tm = GetTm(tz);
1680 wxDateTime dtMonthStart = wxDateTime(1, tm.mon, tm.year);
6dc6fda6 1681 int nWeek = GetWeekOfYear(flags) - dtMonthStart.GetWeekOfYear(flags) + 1;
9d9b7755 1682 if ( nWeek < 0 )
68ee7c47 1683 {
9d9b7755
VZ
1684 // this may happen for January when Jan, 1 is the last week of the
1685 // previous year
1686 nWeek += IsLeapYear(tm.year - 1) ? 53 : 52;
68ee7c47 1687 }
68ee7c47 1688
6dc6fda6 1689 return (wxDateTime::wxDateTime_t)nWeek;
239446b4
VZ
1690}
1691
f0f951fa
VZ
1692wxDateTime& wxDateTime::SetToYearDay(wxDateTime::wxDateTime_t yday)
1693{
1694 int year = GetYear();
384223b3
VZ
1695 wxDATETIME_CHECK( (0 < yday) && (yday <= GetNumberOfDays(year)),
1696 _T("invalid year day") );
f0f951fa
VZ
1697
1698 bool isLeap = IsLeapYear(year);
1699 for ( Month mon = Jan; mon < Inv_Month; wxNextMonth(mon) )
1700 {
1701 // for Dec, we can't compare with gs_cumulatedDays[mon + 1], but we
1702 // don't need it neither - because of the CHECK above we know that
1703 // yday lies in December then
1704 if ( (mon == Dec) || (yday < gs_cumulatedDays[isLeap][mon + 1]) )
1705 {
1706 Set(yday - gs_cumulatedDays[isLeap][mon], mon, year);
1707
1708 break;
1709 }
1710 }
1711
1712 return *this;
1713}
1714
e6ec579c
VZ
1715// ----------------------------------------------------------------------------
1716// Julian day number conversion and related stuff
1717// ----------------------------------------------------------------------------
1718
1719double wxDateTime::GetJulianDayNumber() const
1720{
299fcbfe
VZ
1721 // JDN are always expressed for the GMT dates
1722 Tm tm(ToTimezone(GMT0).GetTm(GMT0));
e6ec579c
VZ
1723
1724 double result = GetTruncatedJDN(tm.mday, tm.mon, tm.year);
1725
1726 // add the part GetTruncatedJDN() neglected
1727 result += 0.5;
1728
1729 // and now add the time: 86400 sec = 1 JDN
1730 return result + ((double)(60*(60*tm.hour + tm.min) + tm.sec)) / 86400;
1731}
1732
1733double wxDateTime::GetRataDie() const
1734{
1735 // March 1 of the year 0 is Rata Die day -306 and JDN 1721119.5
1736 return GetJulianDayNumber() - 1721119.5 - 306;
1737}
1738
fcc3d7cb 1739// ----------------------------------------------------------------------------
299fcbfe 1740// timezone and DST stuff
fcc3d7cb
VZ
1741// ----------------------------------------------------------------------------
1742
299fcbfe 1743int wxDateTime::IsDST(wxDateTime::Country country) const
fcc3d7cb 1744{
299fcbfe
VZ
1745 wxCHECK_MSG( country == Country_Default, -1,
1746 _T("country support not implemented") );
1747
1748 // use the C RTL for the dates in the standard range
1749 time_t timet = GetTicks();
1750 if ( timet != (time_t)-1 )
1751 {
1752 tm *tm = localtime(&timet);
1753
1754 wxCHECK_MSG( tm, -1, _T("localtime() failed") );
1755
1756 return tm->tm_isdst;
1757 }
1758 else
1759 {
239446b4
VZ
1760 int year = GetYear();
1761
1762 if ( !IsDSTApplicable(year, country) )
1763 {
1764 // no DST time in this year in this country
1765 return -1;
1766 }
299fcbfe 1767
239446b4 1768 return IsBetween(GetBeginDST(year, country), GetEndDST(year, country));
299fcbfe 1769 }
fcc3d7cb
VZ
1770}
1771
41acf5c0 1772wxDateTime& wxDateTime::MakeTimezone(const TimeZone& tz, bool noDST)
fcc3d7cb 1773{
479cd5de 1774 long secDiff = GetTimeZone() + tz.GetOffset();
fcc3d7cb 1775
41acf5c0
VZ
1776 // we need to know whether DST is or not in effect for this date unless
1777 // the test disabled by the caller
1778 if ( !noDST && (IsDST() == 1) )
299fcbfe
VZ
1779 {
1780 // FIXME we assume that the DST is always shifted by 1 hour
1781 secDiff -= 3600;
1782 }
1783
f6bcfd97 1784 return Subtract(wxTimeSpan::Seconds(secDiff));
fcc3d7cb
VZ
1785}
1786
b76b015e
VZ
1787// ----------------------------------------------------------------------------
1788// wxDateTime to/from text representations
1789// ----------------------------------------------------------------------------
1790
299fcbfe 1791wxString wxDateTime::Format(const wxChar *format, const TimeZone& tz) const
b76b015e 1792{
e6ec579c
VZ
1793 wxCHECK_MSG( format, _T(""), _T("NULL format in wxDateTime::Format") );
1794
f6bcfd97
BP
1795 // we have to use our own implementation if the date is out of range of
1796 // strftime() or if we use non standard specificators
b76b015e 1797 time_t time = GetTicks();
f6bcfd97 1798 if ( (time != (time_t)-1) && !wxStrstr(format, _T("%l")) )
b76b015e
VZ
1799 {
1800 // use strftime()
299fcbfe
VZ
1801 tm *tm;
1802 if ( tz.GetOffset() == -GetTimeZone() )
1803 {
1804 // we are working with local time
1805 tm = localtime(&time);
c5a1681b
VZ
1806
1807 // should never happen
1808 wxCHECK_MSG( tm, wxEmptyString, _T("localtime() failed") );
299fcbfe
VZ
1809 }
1810 else
1811 {
479cd5de 1812 time += (int)tz.GetOffset();
299fcbfe 1813
33ac7e6f 1814#if defined(__VMS__) || defined(__WATCOMC__) // time is unsigned so avoid warning
13111b2a 1815 int time2 = (int) time;
9c2882d9 1816 if ( time2 >= 0 )
fb10f04c 1817#else
9c2882d9 1818 if ( time >= 0 )
fb10f04c 1819#endif
c5a1681b
VZ
1820 {
1821 tm = gmtime(&time);
b76b015e 1822
c5a1681b
VZ
1823 // should never happen
1824 wxCHECK_MSG( tm, wxEmptyString, _T("gmtime() failed") );
1825 }
1826 else
1827 {
1828 tm = (struct tm *)NULL;
1829 }
1830 }
b76b015e 1831
c5a1681b 1832 if ( tm )
e6ec579c 1833 {
c5a1681b 1834 return CallStrftime(format, tm);
e6ec579c 1835 }
c5a1681b
VZ
1836 //else: use generic code below
1837 }
1838
68ee7c47 1839 // we only parse ANSI C format specifications here, no POSIX 2
f6bcfd97
BP
1840 // complications, no GNU extensions but we do add support for a "%l" format
1841 // specifier allowing to get the number of milliseconds
68ee7c47 1842 Tm tm = GetTm(tz);
e6ec579c 1843
68ee7c47
VZ
1844 // used for calls to strftime() when we only deal with time
1845 struct tm tmTimeOnly;
1846 tmTimeOnly.tm_hour = tm.hour;
1847 tmTimeOnly.tm_min = tm.min;
1848 tmTimeOnly.tm_sec = tm.sec;
1849 tmTimeOnly.tm_wday = 0;
1850 tmTimeOnly.tm_yday = 0;
1851 tmTimeOnly.tm_mday = 1; // any date will do
1852 tmTimeOnly.tm_mon = 0;
1853 tmTimeOnly.tm_year = 76;
1854 tmTimeOnly.tm_isdst = 0; // no DST, we adjust for tz ourselves
e6ec579c 1855
77c3e48a 1856 wxString tmp, res, fmt;
68ee7c47
VZ
1857 for ( const wxChar *p = format; *p; p++ )
1858 {
1859 if ( *p != _T('%') )
1860 {
1861 // copy as is
1862 res += *p;
b76b015e 1863
68ee7c47
VZ
1864 continue;
1865 }
e6ec579c 1866
77c3e48a 1867 // set the default format
68ee7c47 1868 switch ( *++p )
77c3e48a
VZ
1869 {
1870 case _T('Y'): // year has 4 digits
1871 fmt = _T("%04d");
1872 break;
1873
1874 case _T('j'): // day of year has 3 digits
f6bcfd97 1875 case _T('l'): // milliseconds have 3 digits
77c3e48a
VZ
1876 fmt = _T("%03d");
1877 break;
1878
1879 default:
1880 // it's either another valid format specifier in which case
1881 // the format is "%02d" (for all the rest) or we have the
1882 // field width preceding the format in which case it will
1883 // override the default format anyhow
1884 fmt = _T("%02d");
1885 }
1886
fc3398f8
VZ
1887 bool restart = TRUE;
1888 while ( restart )
68ee7c47 1889 {
fc3398f8 1890 restart = FALSE;
68ee7c47 1891
fc3398f8
VZ
1892 // start of the format specification
1893 switch ( *p )
1894 {
1895 case _T('a'): // a weekday name
1896 case _T('A'):
1897 // second parameter should be TRUE for abbreviated names
1898 res += GetWeekDayName(tm.GetWeekDay(),
1899 *p == _T('a') ? Name_Abbr : Name_Full);
1900 break;
68ee7c47 1901
fc3398f8
VZ
1902 case _T('b'): // a month name
1903 case _T('B'):
1904 res += GetMonthName(tm.mon,
1905 *p == _T('b') ? Name_Abbr : Name_Full);
1906 break;
1907
1908 case _T('c'): // locale default date and time representation
1909 case _T('x'): // locale default date representation
1910 //
1911 // the problem: there is no way to know what do these format
1912 // specifications correspond to for the current locale.
1913 //
1914 // the solution: use a hack and still use strftime(): first
1915 // find the YEAR which is a year in the strftime() range (1970
1916 // - 2038) whose Jan 1 falls on the same week day as the Jan 1
1917 // of the real year. Then make a copy of the format and
1918 // replace all occurences of YEAR in it with some unique
1919 // string not appearing anywhere else in it, then use
1920 // strftime() to format the date in year YEAR and then replace
1921 // YEAR back by the real year and the unique replacement
1922 // string back with YEAR. Notice that "all occurences of YEAR"
1923 // means all occurences of 4 digit as well as 2 digit form!
1924 //
1925 // the bugs: we assume that neither of %c nor %x contains any
1926 // fields which may change between the YEAR and real year. For
1927 // example, the week number (%U, %W) and the day number (%j)
1928 // will change if one of these years is leap and the other one
1929 // is not!
68ee7c47 1930 {
fc3398f8
VZ
1931 // find the YEAR: normally, for any year X, Jan 1 or the
1932 // year X + 28 is the same weekday as Jan 1 of X (because
1933 // the weekday advances by 1 for each normal X and by 2
1934 // for each leap X, hence by 5 every 4 years or by 35
1935 // which is 0 mod 7 every 28 years) but this rule breaks
1936 // down if there are years between X and Y which are
1937 // divisible by 4 but not leap (i.e. divisible by 100 but
1938 // not 400), hence the correction.
1939
1940 int yearReal = GetYear(tz);
1941 int mod28 = yearReal % 28;
1942
1943 // be careful to not go too far - we risk to leave the
1944 // supported range
1945 int year;
1946 if ( mod28 < 10 )
1947 {
1948 year = 1988 + mod28; // 1988 == 0 (mod 28)
1949 }
1950 else
1951 {
1952 year = 1970 + mod28 - 10; // 1970 == 10 (mod 28)
1953 }
e6ec579c 1954
fc3398f8
VZ
1955 int nCentury = year / 100,
1956 nCenturyReal = yearReal / 100;
c5a1681b 1957
fc3398f8
VZ
1958 // need to adjust for the years divisble by 400 which are
1959 // not leap but are counted like leap ones if we just take
1960 // the number of centuries in between for nLostWeekDays
1961 int nLostWeekDays = (nCentury - nCenturyReal) -
1962 (nCentury / 4 - nCenturyReal / 4);
c5a1681b 1963
fc3398f8
VZ
1964 // we have to gain back the "lost" weekdays: note that the
1965 // effect of this loop is to not do anything to
1966 // nLostWeekDays (which we won't use any more), but to
1967 // (indirectly) set the year correctly
1968 while ( (nLostWeekDays % 7) != 0 )
1969 {
1970 nLostWeekDays += year++ % 4 ? 1 : 2;
1971 }
c5a1681b 1972
fc3398f8
VZ
1973 // at any rate, we couldn't go further than 1988 + 9 + 28!
1974 wxASSERT_MSG( year < 2030,
1975 _T("logic error in wxDateTime::Format") );
c5a1681b 1976
fc3398f8
VZ
1977 wxString strYear, strYear2;
1978 strYear.Printf(_T("%d"), year);
1979 strYear2.Printf(_T("%d"), year % 100);
c5a1681b 1980
fc3398f8
VZ
1981 // find two strings not occuring in format (this is surely
1982 // not optimal way of doing it... improvements welcome!)
1983 wxString fmt = format;
1984 wxString replacement = (wxChar)-1;
1985 while ( fmt.Find(replacement) != wxNOT_FOUND )
1986 {
1987 replacement << (wxChar)-1;
1988 }
c5a1681b 1989
fc3398f8
VZ
1990 wxString replacement2 = (wxChar)-2;
1991 while ( fmt.Find(replacement) != wxNOT_FOUND )
1992 {
1993 replacement << (wxChar)-2;
1994 }
1995
1996 // replace all occurences of year with it
1997 bool wasReplaced = fmt.Replace(strYear, replacement) > 0;
1998 if ( !wasReplaced )
1999 wasReplaced = fmt.Replace(strYear2, replacement2) > 0;
2000
2001 // use strftime() to format the same date but in supported
2002 // year
2003 //
2004 // NB: we assume that strftime() doesn't check for the
2005 // date validity and will happily format the date
2006 // corresponding to Feb 29 of a non leap year (which
2007 // may happen if yearReal was leap and year is not)
2008 struct tm tmAdjusted;
2009 InitTm(tmAdjusted);
2010 tmAdjusted.tm_hour = tm.hour;
2011 tmAdjusted.tm_min = tm.min;
2012 tmAdjusted.tm_sec = tm.sec;
2013 tmAdjusted.tm_wday = tm.GetWeekDay();
2014 tmAdjusted.tm_yday = GetDayOfYear();
2015 tmAdjusted.tm_mday = tm.mday;
2016 tmAdjusted.tm_mon = tm.mon;
2017 tmAdjusted.tm_year = year - 1900;
2018 tmAdjusted.tm_isdst = 0; // no DST, already adjusted
2019 wxString str = CallStrftime(*p == _T('c') ? _T("%c")
2020 : _T("%x"),
2021 &tmAdjusted);
2022
2023 // now replace the occurence of 1999 with the real year
2024 wxString strYearReal, strYearReal2;
2025 strYearReal.Printf(_T("%04d"), yearReal);
2026 strYearReal2.Printf(_T("%02d"), yearReal % 100);
2027 str.Replace(strYear, strYearReal);
2028 str.Replace(strYear2, strYearReal2);
2029
2030 // and replace back all occurences of replacement string
2031 if ( wasReplaced )
2032 {
2033 str.Replace(replacement2, strYear2);
2034 str.Replace(replacement, strYear);
2035 }
2036
2037 res += str;
68ee7c47 2038 }
fc3398f8 2039 break;
c5a1681b 2040
fc3398f8
VZ
2041 case _T('d'): // day of a month (01-31)
2042 res += wxString::Format(fmt, tm.mday);
2043 break;
68ee7c47 2044
fc3398f8
VZ
2045 case _T('H'): // hour in 24h format (00-23)
2046 res += wxString::Format(fmt, tm.hour);
2047 break;
2048
2049 case _T('I'): // hour in 12h format (01-12)
68ee7c47 2050 {
fc3398f8
VZ
2051 // 24h -> 12h, 0h -> 12h too
2052 int hour12 = tm.hour > 12 ? tm.hour - 12
2053 : tm.hour ? tm.hour : 12;
2054 res += wxString::Format(fmt, hour12);
68ee7c47 2055 }
fc3398f8 2056 break;
c5a1681b 2057
fc3398f8
VZ
2058 case _T('j'): // day of the year
2059 res += wxString::Format(fmt, GetDayOfYear(tz));
2060 break;
68ee7c47 2061
f6bcfd97
BP
2062 case _T('l'): // milliseconds (NOT STANDARD)
2063 res += wxString::Format(fmt, GetMillisecond(tz));
2064 break;
2065
fc3398f8
VZ
2066 case _T('m'): // month as a number (01-12)
2067 res += wxString::Format(fmt, tm.mon + 1);
2068 break;
68ee7c47 2069
fc3398f8
VZ
2070 case _T('M'): // minute as a decimal number (00-59)
2071 res += wxString::Format(fmt, tm.min);
2072 break;
68ee7c47 2073
fc3398f8
VZ
2074 case _T('p'): // AM or PM string
2075 res += CallStrftime(_T("%p"), &tmTimeOnly);
2076 break;
68ee7c47 2077
fc3398f8
VZ
2078 case _T('S'): // second as a decimal number (00-61)
2079 res += wxString::Format(fmt, tm.sec);
2080 break;
68ee7c47 2081
fc3398f8
VZ
2082 case _T('U'): // week number in the year (Sunday 1st week day)
2083 res += wxString::Format(fmt, GetWeekOfYear(Sunday_First, tz));
2084 break;
68ee7c47 2085
fc3398f8
VZ
2086 case _T('W'): // week number in the year (Monday 1st week day)
2087 res += wxString::Format(fmt, GetWeekOfYear(Monday_First, tz));
2088 break;
68ee7c47 2089
fc3398f8
VZ
2090 case _T('w'): // weekday as a number (0-6), Sunday = 0
2091 res += wxString::Format(fmt, tm.GetWeekDay());
2092 break;
68ee7c47 2093
fc3398f8 2094 // case _T('x'): -- handled with "%c"
68ee7c47 2095
fc3398f8
VZ
2096 case _T('X'): // locale default time representation
2097 // just use strftime() to format the time for us
2098 res += CallStrftime(_T("%X"), &tmTimeOnly);
2099 break;
68ee7c47 2100
fc3398f8
VZ
2101 case _T('y'): // year without century (00-99)
2102 res += wxString::Format(fmt, tm.year % 100);
2103 break;
68ee7c47 2104
fc3398f8
VZ
2105 case _T('Y'): // year with century
2106 res += wxString::Format(fmt, tm.year);
2107 break;
68ee7c47 2108
fc3398f8
VZ
2109 case _T('Z'): // timezone name
2110 res += CallStrftime(_T("%Z"), &tmTimeOnly);
2111 break;
68ee7c47 2112
fc3398f8
VZ
2113 default:
2114 // is it the format width?
2115 fmt.Empty();
2116 while ( *p == _T('-') || *p == _T('+') ||
2117 *p == _T(' ') || wxIsdigit(*p) )
2118 {
2119 fmt += *p;
2120 }
68ee7c47 2121
fc3398f8
VZ
2122 if ( !fmt.IsEmpty() )
2123 {
2124 // we've only got the flags and width so far in fmt
2125 fmt.Prepend(_T('%'));
2126 fmt.Append(_T('d'));
68ee7c47 2127
fc3398f8 2128 restart = TRUE;
68ee7c47 2129
fc3398f8
VZ
2130 break;
2131 }
68ee7c47 2132
fc3398f8
VZ
2133 // no, it wasn't the width
2134 wxFAIL_MSG(_T("unknown format specificator"));
68ee7c47 2135
fc3398f8 2136 // fall through and just copy it nevertheless
68ee7c47 2137
fc3398f8
VZ
2138 case _T('%'): // a percent sign
2139 res += *p;
2140 break;
2141
2142 case 0: // the end of string
2143 wxFAIL_MSG(_T("missing format at the end of string"));
2144
2145 // just put the '%' which was the last char in format
2146 res += _T('%');
2147 break;
2148 }
68ee7c47 2149 }
c5a1681b
VZ
2150 }
2151
68ee7c47 2152 return res;
b76b015e 2153}
fcc3d7cb 2154
cd0b1709
VZ
2155// this function parses a string in (strict) RFC 822 format: see the section 5
2156// of the RFC for the detailed description, but briefly it's something of the
2157// form "Sat, 18 Dec 1999 00:48:30 +0100"
2158//
2159// this function is "strict" by design - it must reject anything except true
2160// RFC822 time specs.
2161//
2162// TODO a great candidate for using reg exps
2163const wxChar *wxDateTime::ParseRfc822Date(const wxChar* date)
2164{
2165 wxCHECK_MSG( date, (wxChar *)NULL, _T("NULL pointer in wxDateTime::Parse") );
2166
2167 const wxChar *p = date;
2168 const wxChar *comma = wxStrchr(p, _T(','));
2169 if ( comma )
2170 {
2171 // the part before comma is the weekday
2172
2173 // skip it for now - we don't use but might check that it really
2174 // corresponds to the specfied date
2175 p = comma + 1;
2176
2177 if ( *p != _T(' ') )
2178 {
2179 wxLogDebug(_T("no space after weekday in RFC822 time spec"));
2180
2181 return (wxChar *)NULL;
2182 }
2183
2184 p++; // skip space
2185 }
2186
2187 // the following 1 or 2 digits are the day number
2188 if ( !wxIsdigit(*p) )
2189 {
2190 wxLogDebug(_T("day number expected in RFC822 time spec, none found"));
2191
2192 return (wxChar *)NULL;
2193 }
2194
2195 wxDateTime_t day = *p++ - _T('0');
2196 if ( wxIsdigit(*p) )
2197 {
2198 day *= 10;
2199 day += *p++ - _T('0');
2200 }
2201
2202 if ( *p++ != _T(' ') )
2203 {
2204 return (wxChar *)NULL;
2205 }
2206
2207 // the following 3 letters specify the month
2208 wxString monName(p, 3);
2209 Month mon;
2210 if ( monName == _T("Jan") )
2211 mon = Jan;
2212 else if ( monName == _T("Feb") )
2213 mon = Feb;
2214 else if ( monName == _T("Mar") )
2215 mon = Mar;
2216 else if ( monName == _T("Apr") )
2217 mon = Apr;
2218 else if ( monName == _T("May") )
2219 mon = May;
2220 else if ( monName == _T("Jun") )
2221 mon = Jun;
2222 else if ( monName == _T("Jul") )
2223 mon = Jul;
2224 else if ( monName == _T("Aug") )
2225 mon = Aug;
2226 else if ( monName == _T("Sep") )
2227 mon = Sep;
2228 else if ( monName == _T("Oct") )
2229 mon = Oct;
2230 else if ( monName == _T("Nov") )
2231 mon = Nov;
2232 else if ( monName == _T("Dec") )
2233 mon = Dec;
2234 else
2235 {
2236 wxLogDebug(_T("Invalid RFC 822 month name '%s'"), monName.c_str());
2237
2238 return (wxChar *)NULL;
2239 }
2240
2241 p += 3;
2242
2243 if ( *p++ != _T(' ') )
2244 {
2245 return (wxChar *)NULL;
2246 }
2247
2248 // next is the year
2249 if ( !wxIsdigit(*p) )
2250 {
2251 // no year?
2252 return (wxChar *)NULL;
2253 }
2254
2255 int year = *p++ - _T('0');
2256
2257 if ( !wxIsdigit(*p) )
2258 {
2259 // should have at least 2 digits in the year
2260 return (wxChar *)NULL;
2261 }
2262
2263 year *= 10;
2264 year += *p++ - _T('0');
2265
2266 // is it a 2 digit year (as per original RFC 822) or a 4 digit one?
2267 if ( wxIsdigit(*p) )
2268 {
2269 year *= 10;
2270 year += *p++ - _T('0');
2271
2272 if ( !wxIsdigit(*p) )
2273 {
2274 // no 3 digit years please
2275 return (wxChar *)NULL;
2276 }
2277
2278 year *= 10;
2279 year += *p++ - _T('0');
2280 }
2281
2282 if ( *p++ != _T(' ') )
2283 {
2284 return (wxChar *)NULL;
2285 }
2286
2287 // time is in the format hh:mm:ss and seconds are optional
2288 if ( !wxIsdigit(*p) )
2289 {
2290 return (wxChar *)NULL;
2291 }
2292
2293 wxDateTime_t hour = *p++ - _T('0');
2294
2295 if ( !wxIsdigit(*p) )
2296 {
2297 return (wxChar *)NULL;
2298 }
2299
2300 hour *= 10;
2301 hour += *p++ - _T('0');
2302
2303 if ( *p++ != _T(':') )
2304 {
2305 return (wxChar *)NULL;
2306 }
2307
2308 if ( !wxIsdigit(*p) )
2309 {
2310 return (wxChar *)NULL;
2311 }
2312
2313 wxDateTime_t min = *p++ - _T('0');
2314
2315 if ( !wxIsdigit(*p) )
2316 {
2317 return (wxChar *)NULL;
2318 }
2319
2320 min *= 10;
2321 min += *p++ - _T('0');
2322
2323 wxDateTime_t sec = 0;
2324 if ( *p++ == _T(':') )
2325 {
2326 if ( !wxIsdigit(*p) )
2327 {
2328 return (wxChar *)NULL;
2329 }
2330
2331 sec = *p++ - _T('0');
2332
2333 if ( !wxIsdigit(*p) )
2334 {
2335 return (wxChar *)NULL;
2336 }
2337
2338 sec *= 10;
2339 sec += *p++ - _T('0');
2340 }
2341
2342 if ( *p++ != _T(' ') )
2343 {
2344 return (wxChar *)NULL;
2345 }
2346
2347 // and now the interesting part: the timezone
40973ea5 2348 int offset;
cd0b1709
VZ
2349 if ( *p == _T('-') || *p == _T('+') )
2350 {
2351 // the explicit offset given: it has the form of hhmm
2352 bool plus = *p++ == _T('+');
2353
2354 if ( !wxIsdigit(*p) || !wxIsdigit(*(p + 1)) )
2355 {
2356 return (wxChar *)NULL;
2357 }
2358
2359 // hours
2360 offset = 60*(10*(*p - _T('0')) + (*(p + 1) - _T('0')));
2361
2362 p += 2;
2363
2364 if ( !wxIsdigit(*p) || !wxIsdigit(*(p + 1)) )
2365 {
2366 return (wxChar *)NULL;
2367 }
2368
2369 // minutes
2370 offset += 10*(*p - _T('0')) + (*(p + 1) - _T('0'));
2371
2372 if ( !plus )
2373 {
2374 offset = -offset;
2375 }
2376
2377 p += 2;
2378 }
2379 else
2380 {
2381 // the symbolic timezone given: may be either military timezone or one
2382 // of standard abbreviations
2383 if ( !*(p + 1) )
2384 {
2385 // military: Z = UTC, J unused, A = -1, ..., Y = +12
2386 static const int offsets[26] =
2387 {
2388 //A B C D E F G H I J K L M
2389 -1, -2, -3, -4, -5, -6, -7, -8, -9, 0, -10, -11, -12,
2390 //N O P R Q S T U V W Z Y Z
2391 +1, +2, +3, +4, +5, +6, +7, +8, +9, +10, +11, +12, 0
2392 };
2393
2394 if ( *p < _T('A') || *p > _T('Z') || *p == _T('J') )
2395 {
2396 wxLogDebug(_T("Invalid militaty timezone '%c'"), *p);
2397
2398 return (wxChar *)NULL;
2399 }
2400
2401 offset = offsets[*p++ - _T('A')];
2402 }
2403 else
2404 {
2405 // abbreviation
2406 wxString tz = p;
2407 if ( tz == _T("UT") || tz == _T("UTC") || tz == _T("GMT") )
2408 offset = 0;
2409 else if ( tz == _T("AST") )
2410 offset = AST - GMT0;
2411 else if ( tz == _T("ADT") )
2412 offset = ADT - GMT0;
2413 else if ( tz == _T("EST") )
2414 offset = EST - GMT0;
2415 else if ( tz == _T("EDT") )
2416 offset = EDT - GMT0;
2417 else if ( tz == _T("CST") )
2418 offset = CST - GMT0;
2419 else if ( tz == _T("CDT") )
2420 offset = CDT - GMT0;
2421 else if ( tz == _T("MST") )
2422 offset = MST - GMT0;
2423 else if ( tz == _T("MDT") )
2424 offset = MDT - GMT0;
2425 else if ( tz == _T("PST") )
2426 offset = PST - GMT0;
2427 else if ( tz == _T("PDT") )
2428 offset = PDT - GMT0;
2429 else
2430 {
2431 wxLogDebug(_T("Unknown RFC 822 timezone '%s'"), p);
2432
2433 return (wxChar *)NULL;
2434 }
2435
2436 p += tz.length();
2437 }
2438
2439 // make it minutes
2440 offset *= 60;
2441 }
2442
2443 // the spec was correct
2444 Set(day, mon, year, hour, min, sec);
487c1f7e 2445 MakeTimezone((wxDateTime_t)(60*offset));
cd0b1709
VZ
2446
2447 return p;
2448}
2449
f0f951fa
VZ
2450const wxChar *wxDateTime::ParseFormat(const wxChar *date,
2451 const wxChar *format,
2452 const wxDateTime& dateDef)
cd0b1709
VZ
2453{
2454 wxCHECK_MSG( date && format, (wxChar *)NULL,
f0f951fa 2455 _T("NULL pointer in wxDateTime::ParseFormat()") );
cd0b1709 2456
f0f951fa
VZ
2457 wxString str;
2458 unsigned long num;
cd0b1709 2459
f0f951fa
VZ
2460 // what fields have we found?
2461 bool haveWDay = FALSE,
2462 haveYDay = FALSE,
2463 haveDay = FALSE,
2464 haveMon = FALSE,
2465 haveYear = FALSE,
2466 haveHour = FALSE,
2467 haveMin = FALSE,
2468 haveSec = FALSE;
2469
2470 bool hourIsIn12hFormat = FALSE, // or in 24h one?
2471 isPM = FALSE; // AM by default
2472
2473 // and the value of the items we have (init them to get rid of warnings)
2474 wxDateTime_t sec = 0,
2475 min = 0,
2476 hour = 0;
2477 WeekDay wday = Inv_WeekDay;
2478 wxDateTime_t yday = 0,
2479 mday = 0;
2480 wxDateTime::Month mon = Inv_Month;
2481 int year = 0;
2482
2483 const wxChar *input = date;
2484 for ( const wxChar *fmt = format; *fmt; fmt++ )
2485 {
2486 if ( *fmt != _T('%') )
2487 {
2488 if ( wxIsspace(*fmt) )
2489 {
2490 // a white space in the format string matches 0 or more white
2491 // spaces in the input
2492 while ( wxIsspace(*input) )
2493 {
2494 input++;
2495 }
2496 }
2497 else // !space
2498 {
2499 // any other character (not whitespace, not '%') must be
2500 // matched by itself in the input
2501 if ( *input++ != *fmt )
2502 {
2503 // no match
2504 return (wxChar *)NULL;
2505 }
2506 }
2507
2508 // done with this format char
2509 continue;
2510 }
2511
2512 // start of a format specification
f6bcfd97
BP
2513
2514 // parse the optional width
2515 size_t width = 0;
2516 while ( isdigit(*++fmt) )
2517 {
2518 width *= 10;
2519 width += *fmt - _T('0');
2520 }
2521
2522 // then the format itself
2523 switch ( *fmt )
f0f951fa
VZ
2524 {
2525 case _T('a'): // a weekday name
2526 case _T('A'):
2527 {
2528 int flag = *fmt == _T('a') ? Name_Abbr : Name_Full;
2529 wday = GetWeekDayFromName(GetAlphaToken(input), flag);
2530 if ( wday == Inv_WeekDay )
2531 {
2532 // no match
2533 return (wxChar *)NULL;
2534 }
2535 }
2536 haveWDay = TRUE;
2537 break;
2538
2539 case _T('b'): // a month name
2540 case _T('B'):
2541 {
2542 int flag = *fmt == _T('b') ? Name_Abbr : Name_Full;
2543 mon = GetMonthFromName(GetAlphaToken(input), flag);
2544 if ( mon == Inv_Month )
2545 {
2546 // no match
2547 return (wxChar *)NULL;
2548 }
2549 }
2550 haveMon = TRUE;
2551 break;
2552
2553 case _T('c'): // locale default date and time representation
2554 {
2555 wxDateTime dt;
2556
2557 // this is the format which corresponds to ctime() output
2558 // and strptime("%c") should parse it, so try it first
41acf5c0 2559 static const wxChar *fmtCtime = _T("%a %b %d %H:%M:%S %Y");
f0f951fa
VZ
2560
2561 const wxChar *result = dt.ParseFormat(input, fmtCtime);
2562 if ( !result )
2563 {
2564 result = dt.ParseFormat(input, _T("%x %X"));
2565 }
2566
2567 if ( !result )
2568 {
2569 result = dt.ParseFormat(input, _T("%X %x"));
2570 }
2571
2572 if ( !result )
2573 {
2574 // we've tried everything and still no match
2575 return (wxChar *)NULL;
2576 }
2577
be4017f8
VZ
2578 Tm tm = dt.GetTm();
2579
2580 haveDay = haveMon = haveYear =
2581 haveHour = haveMin = haveSec = TRUE;
2582
2583 hour = tm.hour;
2584 min = tm.min;
2585 sec = tm.sec;
2586
2587 year = tm.year;
2588 mon = tm.mon;
2589 mday = tm.mday;
2590
f0f951fa
VZ
2591 input = result;
2592 }
2593 break;
2594
2595 case _T('d'): // day of a month (01-31)
f6bcfd97
BP
2596 if ( !GetNumericToken(width, input, &num) ||
2597 (num > 31) || (num < 1) )
f0f951fa
VZ
2598 {
2599 // no match
2600 return (wxChar *)NULL;
2601 }
2602
2603 // we can't check whether the day range is correct yet, will
2604 // do it later - assume ok for now
2605 haveDay = TRUE;
2606 mday = (wxDateTime_t)num;
2607 break;
5f287370 2608
f0f951fa 2609 case _T('H'): // hour in 24h format (00-23)
f6bcfd97 2610 if ( !GetNumericToken(width, input, &num) || (num > 23) )
f0f951fa
VZ
2611 {
2612 // no match
2613 return (wxChar *)NULL;
2614 }
2615
2616 haveHour = TRUE;
2617 hour = (wxDateTime_t)num;
2618 break;
2619
2620 case _T('I'): // hour in 12h format (01-12)
f6bcfd97 2621 if ( !GetNumericToken(width, input, &num) || !num || (num > 12) )
f0f951fa
VZ
2622 {
2623 // no match
2624 return (wxChar *)NULL;
2625 }
2626
2627 haveHour = TRUE;
2628 hourIsIn12hFormat = TRUE;
479cd5de 2629 hour = (wxDateTime_t)(num % 12); // 12 should be 0
f0f951fa
VZ
2630 break;
2631
2632 case _T('j'): // day of the year
f6bcfd97 2633 if ( !GetNumericToken(width, input, &num) || !num || (num > 366) )
f0f951fa
VZ
2634 {
2635 // no match
2636 return (wxChar *)NULL;
2637 }
2638
2639 haveYDay = TRUE;
2640 yday = (wxDateTime_t)num;
2641 break;
2642
2643 case _T('m'): // month as a number (01-12)
f6bcfd97 2644 if ( !GetNumericToken(width, input, &num) || !num || (num > 12) )
f0f951fa
VZ
2645 {
2646 // no match
2647 return (wxChar *)NULL;
2648 }
2649
2650 haveMon = TRUE;
be4017f8 2651 mon = (Month)(num - 1);
f0f951fa
VZ
2652 break;
2653
2654 case _T('M'): // minute as a decimal number (00-59)
f6bcfd97 2655 if ( !GetNumericToken(width, input, &num) || (num > 59) )
f0f951fa
VZ
2656 {
2657 // no match
2658 return (wxChar *)NULL;
2659 }
2660
2661 haveMin = TRUE;
2662 min = (wxDateTime_t)num;
2663 break;
2664
2665 case _T('p'): // AM or PM string
2666 {
2667 wxString am, pm, token = GetAlphaToken(input);
2668
2669 GetAmPmStrings(&am, &pm);
2670 if ( token.CmpNoCase(pm) == 0 )
2671 {
2672 isPM = TRUE;
2673 }
2674 else if ( token.CmpNoCase(am) != 0 )
2675 {
2676 // no match
2677 return (wxChar *)NULL;
2678 }
2679 }
2680 break;
2681
2682 case _T('r'): // time as %I:%M:%S %p
2683 {
2684 wxDateTime dt;
2685 input = dt.ParseFormat(input, _T("%I:%M:%S %p"));
2686 if ( !input )
2687 {
2688 // no match
2689 return (wxChar *)NULL;
2690 }
2691
2692 haveHour = haveMin = haveSec = TRUE;
2693
2694 Tm tm = dt.GetTm();
2695 hour = tm.hour;
2696 min = tm.min;
2697 sec = tm.sec;
2698 }
2699 break;
2700
2701 case _T('R'): // time as %H:%M
2702 {
2703 wxDateTime dt;
2704 input = dt.ParseFormat(input, _T("%H:%M"));
2705 if ( !input )
2706 {
2707 // no match
2708 return (wxChar *)NULL;
2709 }
2710
2711 haveHour = haveMin = TRUE;
2712
2713 Tm tm = dt.GetTm();
2714 hour = tm.hour;
2715 min = tm.min;
2716 }
2717
2718 case _T('S'): // second as a decimal number (00-61)
f6bcfd97 2719 if ( !GetNumericToken(width, input, &num) || (num > 61) )
f0f951fa
VZ
2720 {
2721 // no match
2722 return (wxChar *)NULL;
2723 }
2724
2725 haveSec = TRUE;
2726 sec = (wxDateTime_t)num;
2727 break;
2728
2729 case _T('T'): // time as %H:%M:%S
2730 {
2731 wxDateTime dt;
2732 input = dt.ParseFormat(input, _T("%H:%M:%S"));
2733 if ( !input )
2734 {
2735 // no match
2736 return (wxChar *)NULL;
2737 }
2738
2739 haveHour = haveMin = haveSec = TRUE;
2740
2741 Tm tm = dt.GetTm();
2742 hour = tm.hour;
2743 min = tm.min;
2744 sec = tm.sec;
2745 }
be4017f8 2746 break;
f0f951fa
VZ
2747
2748 case _T('w'): // weekday as a number (0-6), Sunday = 0
f6bcfd97 2749 if ( !GetNumericToken(width, input, &num) || (wday > 6) )
f0f951fa
VZ
2750 {
2751 // no match
2752 return (wxChar *)NULL;
2753 }
2754
2755 haveWDay = TRUE;
2756 wday = (WeekDay)num;
2757 break;
2758
2759 case _T('x'): // locale default date representation
2760#ifdef HAVE_STRPTIME
2761 // try using strptime() - it may fail even if the input is
2762 // correct but the date is out of range, so we will fall back
2763 // to our generic code anyhow (FIXME !Unicode friendly)
2764 {
2765 struct tm tm;
2766 const wxChar *result = strptime(input, "%x", &tm);
2767 if ( result )
2768 {
2769 input = result;
2770
2771 haveDay = haveMon = haveYear = TRUE;
2772
2773 year = 1900 + tm.tm_year;
2774 mon = (Month)tm.tm_mon;
2775 mday = tm.tm_mday;
2776
2777 break;
2778 }
2779 }
2780#endif // HAVE_STRPTIME
2781
2782 // TODO query the LOCALE_IDATE setting under Win32
2783 {
2784 wxDateTime dt;
2785
41acf5c0 2786 wxString fmtDate, fmtDateAlt;
f0f951fa
VZ
2787 if ( IsWestEuropeanCountry(GetCountry()) ||
2788 GetCountry() == Russia )
2789 {
2790 fmtDate = _T("%d/%m/%y");
41acf5c0 2791 fmtDateAlt = _T("%m/%d/%y");
f0f951fa
VZ
2792 }
2793 else // assume USA
2794 {
2795 fmtDate = _T("%m/%d/%y");
41acf5c0 2796 fmtDateAlt = _T("%d/%m/%y");
f0f951fa
VZ
2797 }
2798
2799 const wxChar *result = dt.ParseFormat(input, fmtDate);
41acf5c0
VZ
2800
2801 if ( !result )
2802 {
2803 // ok, be nice and try another one
2804 result = dt.ParseFormat(input, fmtDateAlt);
2805 }
2806
f0f951fa
VZ
2807 if ( !result )
2808 {
2809 // bad luck
2810 return (wxChar *)NULL;
2811 }
2812
2813 Tm tm = dt.GetTm();
2814
2815 haveDay = haveMon = haveYear = TRUE;
2816
2817 year = tm.year;
2818 mon = tm.mon;
2819 mday = tm.mday;
2820
2821 input = result;
2822 }
2823
2824 break;
2825
2826 case _T('X'): // locale default time representation
2827#ifdef HAVE_STRPTIME
2828 {
2829 // use strptime() to do it for us (FIXME !Unicode friendly)
2830 struct tm tm;
2831 input = strptime(input, "%X", &tm);
2832 if ( !input )
2833 {
2834 return (wxChar *)NULL;
2835 }
2836
2837 haveHour = haveMin = haveSec = TRUE;
2838
2839 hour = tm.tm_hour;
2840 min = tm.tm_min;
2841 sec = tm.tm_sec;
2842 }
2843#else // !HAVE_STRPTIME
2844 // TODO under Win32 we can query the LOCALE_ITIME system
2845 // setting which says whether the default time format is
2846 // 24 or 12 hour
2847 {
2848 // try to parse what follows as "%H:%M:%S" and, if this
2849 // fails, as "%I:%M:%S %p" - this should catch the most
2850 // common cases
2851 wxDateTime dt;
2852
2853 const wxChar *result = dt.ParseFormat(input, _T("%T"));
2854 if ( !result )
2855 {
2856 result = dt.ParseFormat(input, _T("%r"));
2857 }
2858
2859 if ( !result )
2860 {
2861 // no match
2862 return (wxChar *)NULL;
2863 }
2864
2865 haveHour = haveMin = haveSec = TRUE;
2866
2867 Tm tm = dt.GetTm();
2868 hour = tm.hour;
2869 min = tm.min;
2870 sec = tm.sec;
2871
2872 input = result;
2873 }
2874#endif // HAVE_STRPTIME/!HAVE_STRPTIME
2875 break;
2876
2877 case _T('y'): // year without century (00-99)
f6bcfd97 2878 if ( !GetNumericToken(width, input, &num) || (num > 99) )
f0f951fa
VZ
2879 {
2880 // no match
2881 return (wxChar *)NULL;
2882 }
2883
2884 haveYear = TRUE;
f6bcfd97
BP
2885
2886 // TODO should have an option for roll over date instead of
2887 // hard coding it here
2888 year = (num > 30 ? 1900 : 2000) + (wxDateTime_t)num;
f0f951fa
VZ
2889 break;
2890
2891 case _T('Y'): // year with century
f6bcfd97 2892 if ( !GetNumericToken(width, input, &num) )
f0f951fa
VZ
2893 {
2894 // no match
2895 return (wxChar *)NULL;
2896 }
2897
be4017f8
VZ
2898 haveYear = TRUE;
2899 year = (wxDateTime_t)num;
f0f951fa
VZ
2900 break;
2901
2902 case _T('Z'): // timezone name
2903 wxFAIL_MSG(_T("TODO"));
2904 break;
2905
2906 case _T('%'): // a percent sign
2907 if ( *input++ != _T('%') )
2908 {
2909 // no match
2910 return (wxChar *)NULL;
2911 }
2912 break;
2913
2914 case 0: // the end of string
2915 wxFAIL_MSG(_T("unexpected format end"));
2916
2917 // fall through
2918
2919 default: // not a known format spec
2920 return (wxChar *)NULL;
2921 }
2922 }
2923
2924 // format matched, try to construct a date from what we have now
2925 Tm tmDef;
2926 if ( dateDef.IsValid() )
2927 {
2928 // take this date as default
2929 tmDef = dateDef.GetTm();
2930 }
c3302e7e 2931 else if ( IsValid() )
f0f951fa
VZ
2932 {
2933 // if this date is valid, don't change it
2934 tmDef = GetTm();
2935 }
2936 else
2937 {
2938 // no default and this date is invalid - fall back to Today()
2939 tmDef = Today().GetTm();
2940 }
2941
2942 Tm tm = tmDef;
2943
2944 // set the date
2945 if ( haveYear )
2946 {
2947 tm.year = year;
2948 }
2949
2950 // TODO we don't check here that the values are consistent, if both year
2951 // day and month/day were found, we just ignore the year day and we
2952 // also always ignore the week day
2953 if ( haveMon && haveDay )
2954 {
be4017f8
VZ
2955 if ( mday > GetNumOfDaysInMonth(tm.year, mon) )
2956 {
2957 wxLogDebug(_T("bad month day in wxDateTime::ParseFormat"));
2958
2959 return (wxChar *)NULL;
2960 }
2961
f0f951fa
VZ
2962 tm.mon = mon;
2963 tm.mday = mday;
2964 }
2965 else if ( haveYDay )
2966 {
be4017f8
VZ
2967 if ( yday > GetNumberOfDays(tm.year) )
2968 {
2969 wxLogDebug(_T("bad year day in wxDateTime::ParseFormat"));
2970
2971 return (wxChar *)NULL;
2972 }
2973
f0f951fa
VZ
2974 Tm tm2 = wxDateTime(1, Jan, tm.year).SetToYearDay(yday).GetTm();
2975
2976 tm.mon = tm2.mon;
2977 tm.mday = tm2.mday;
2978 }
2979
2980 // deal with AM/PM
2981 if ( haveHour && hourIsIn12hFormat && isPM )
2982 {
2983 // translate to 24hour format
2984 hour += 12;
2985 }
2986 //else: either already in 24h format or no translation needed
2987
2988 // set the time
2989 if ( haveHour )
2990 {
5f287370 2991 tm.hour = hour;
f0f951fa
VZ
2992 }
2993
2994 if ( haveMin )
2995 {
2996 tm.min = min;
2997 }
2998
2999 if ( haveSec )
3000 {
3001 tm.sec = sec;
3002 }
3003
3004 Set(tm);
3005
3006 return input;
cd0b1709
VZ
3007}
3008
3009const wxChar *wxDateTime::ParseDateTime(const wxChar *date)
3010{
3011 wxCHECK_MSG( date, (wxChar *)NULL, _T("NULL pointer in wxDateTime::Parse") );
3012
f0f951fa
VZ
3013 // there is a public domain version of getdate.y, but it only works for
3014 // English...
cd0b1709
VZ
3015 wxFAIL_MSG(_T("TODO"));
3016
3017 return (wxChar *)NULL;
3018}
3019
3020const wxChar *wxDateTime::ParseDate(const wxChar *date)
3021{
3022 // this is a simplified version of ParseDateTime() which understands only
3023 // "today" (for wxDate compatibility) and digits only otherwise (and not
3024 // all esoteric constructions ParseDateTime() knows about)
3025
3026 wxCHECK_MSG( date, (wxChar *)NULL, _T("NULL pointer in wxDateTime::Parse") );
3027
3028 const wxChar *p = date;
3029 while ( wxIsspace(*p) )
3030 p++;
3031
fd9f9f4c
VZ
3032 // some special cases
3033 static struct
cd0b1709 3034 {
fd9f9f4c
VZ
3035 const wxChar *str;
3036 int dayDiffFromToday;
3037 } literalDates[] =
3038 {
3039 { wxTRANSLATE("today"), 0 },
3040 { wxTRANSLATE("yesterday"), -1 },
3041 { wxTRANSLATE("tomorrow"), 1 },
3042 };
3043
3044 for ( size_t n = 0; n < WXSIZEOF(literalDates); n++ )
3045 {
3046 wxString date = wxGetTranslation(literalDates[n].str);
3047 size_t len = date.length();
3b415ba4 3048 if ( wxStrlen(p) >= len && (wxString(p, len).CmpNoCase(date) == 0) )
fd9f9f4c
VZ
3049 {
3050 // nothing can follow this, so stop here
3051 p += len;
cd0b1709 3052
fd9f9f4c
VZ
3053 int dayDiffFromToday = literalDates[n].dayDiffFromToday;
3054 *this = Today();
3055 if ( dayDiffFromToday )
3056 {
3057 *this += wxDateSpan::Days(dayDiffFromToday);
3058 }
cd0b1709 3059
fd9f9f4c
VZ
3060 return p;
3061 }
cd0b1709
VZ
3062 }
3063
3ca6a5f0
BP
3064 // We try to guess what we have here: for each new (numeric) token, we
3065 // determine if it can be a month, day or a year. Of course, there is an
3066 // ambiguity as some numbers may be days as well as months, so we also
3067 // have the ability to back track.
3068
cd0b1709
VZ
3069 // what do we have?
3070 bool haveDay = FALSE, // the months day?
3071 haveWDay = FALSE, // the day of week?
3072 haveMon = FALSE, // the month?
3073 haveYear = FALSE; // the year?
3074
3075 // and the value of the items we have (init them to get rid of warnings)
3076 WeekDay wday = Inv_WeekDay;
3077 wxDateTime_t day = 0;
3078 wxDateTime::Month mon = Inv_Month;
3079 int year = 0;
3080
3081 // tokenize the string
f6bcfd97
BP
3082 size_t nPosCur = 0;
3083 static const wxChar *dateDelimiters = _T(".,/-\t\n ");
3084 wxStringTokenizer tok(p, dateDelimiters);
cd0b1709
VZ
3085 while ( tok.HasMoreTokens() )
3086 {
3087 wxString token = tok.GetNextToken();
3ca6a5f0
BP
3088 if ( !token )
3089 continue;
cd0b1709
VZ
3090
3091 // is it a number?
3092 unsigned long val;
3093 if ( token.ToULong(&val) )
3094 {
3095 // guess what this number is
3096
3097 bool isDay = FALSE,
3098 isMonth = FALSE,
3ca6a5f0
BP
3099 isYear = FALSE;
3100
3101 if ( !haveMon && val > 0 && val <= 12 )
cd0b1709 3102 {
3ca6a5f0
BP
3103 // assume it is month
3104 isMonth = TRUE;
3105 }
3106 else // not the month
3107 {
3108 wxDateTime_t maxDays = haveMon
3109 ? GetNumOfDaysInMonth(haveYear ? year : Inv_Year, mon)
3110 : 31;
3111
3112 // can it be day?
3897b707 3113 if ( (val == 0) || (val > (unsigned long)maxDays) ) // cast to shut up compiler warning in BCC
cd0b1709 3114 {
3ca6a5f0 3115 isYear = TRUE;
cd0b1709 3116 }
3ca6a5f0 3117 else
cd0b1709
VZ
3118 {
3119 isDay = TRUE;
cd0b1709
VZ
3120 }
3121 }
3122
cd0b1709
VZ
3123 if ( isYear )
3124 {
3125 if ( haveYear )
cd0b1709 3126 break;
cd0b1709
VZ
3127
3128 haveYear = TRUE;
3129
479cd5de 3130 year = (wxDateTime_t)val;
cd0b1709 3131 }
3ca6a5f0 3132 else if ( isDay )
cd0b1709 3133 {
3ca6a5f0 3134 if ( haveDay )
cd0b1709 3135 break;
cd0b1709 3136
3ca6a5f0 3137 haveDay = TRUE;
cd0b1709 3138
3ca6a5f0 3139 day = (wxDateTime_t)val;
cd0b1709 3140 }
3ca6a5f0 3141 else if ( isMonth )
cd0b1709 3142 {
3ca6a5f0 3143 haveMon = TRUE;
cd0b1709 3144
3ca6a5f0 3145 mon = (Month)(val - 1);
cd0b1709
VZ
3146 }
3147 }
3148 else // not a number
3149 {
f6bcfd97
BP
3150 // be careful not to overwrite the current mon value
3151 Month mon2 = GetMonthFromName(token, Name_Full | Name_Abbr);
3152 if ( mon2 != Inv_Month )
cd0b1709
VZ
3153 {
3154 // it's a month
3155 if ( haveMon )
3156 {
6411a32c
VZ
3157 // but we already have a month - maybe we guessed wrong?
3158 if ( !haveDay )
3159 {
f5cd9787 3160 // no need to check in month range as always < 12, but
6411a32c
VZ
3161 // the days are counted from 1 unlike the months
3162 day = (wxDateTime_t)mon + 1;
3163 haveDay = TRUE;
3164 }
3165 else
3166 {
3167 // could possible be the year (doesn't the year come
3168 // before the month in the japanese format?) (FIXME)
3169 break;
f5cd9787 3170 }
cd0b1709
VZ
3171 }
3172
f6bcfd97
BP
3173 mon = mon2;
3174
cd0b1709
VZ
3175 haveMon = TRUE;
3176 }
6411a32c 3177 else // not a valid month name
cd0b1709 3178 {
f0f951fa 3179 wday = GetWeekDayFromName(token, Name_Full | Name_Abbr);
cd0b1709
VZ
3180 if ( wday != Inv_WeekDay )
3181 {
3182 // a week day
3183 if ( haveWDay )
3184 {
3185 break;
3186 }
3187
3188 haveWDay = TRUE;
3189 }
6411a32c 3190 else // not a valid weekday name
cd0b1709
VZ
3191 {
3192 // try the ordinals
3193 static const wxChar *ordinals[] =
3194 {
3195 wxTRANSLATE("first"),
3196 wxTRANSLATE("second"),
3197 wxTRANSLATE("third"),
3198 wxTRANSLATE("fourth"),
3199 wxTRANSLATE("fifth"),
3200 wxTRANSLATE("sixth"),
3201 wxTRANSLATE("seventh"),
3202 wxTRANSLATE("eighth"),
3203 wxTRANSLATE("ninth"),
3204 wxTRANSLATE("tenth"),
3205 wxTRANSLATE("eleventh"),
3206 wxTRANSLATE("twelfth"),
3207 wxTRANSLATE("thirteenth"),
3208 wxTRANSLATE("fourteenth"),
3209 wxTRANSLATE("fifteenth"),
3210 wxTRANSLATE("sixteenth"),
3211 wxTRANSLATE("seventeenth"),
3212 wxTRANSLATE("eighteenth"),
3213 wxTRANSLATE("nineteenth"),
3214 wxTRANSLATE("twentieth"),
3215 // that's enough - otherwise we'd have problems with
6411a32c 3216 // composite (or not) ordinals
cd0b1709
VZ
3217 };
3218
3219 size_t n;
3220 for ( n = 0; n < WXSIZEOF(ordinals); n++ )
3221 {
3222 if ( token.CmpNoCase(ordinals[n]) == 0 )
3223 {
3224 break;
3225 }
3226 }
3227
3228 if ( n == WXSIZEOF(ordinals) )
3229 {
3230 // stop here - something unknown
3231 break;
3232 }
3233
3234 // it's a day
3235 if ( haveDay )
3236 {
3237 // don't try anything here (as in case of numeric day
3238 // above) - the symbolic day spec should always
3239 // precede the month/year
3240 break;
3241 }
3242
3243 haveDay = TRUE;
3244
33ac7e6f 3245 day = (wxDateTime_t)(n + 1);
cd0b1709
VZ
3246 }
3247 }
3248 }
f6bcfd97
BP
3249
3250 nPosCur = tok.GetPosition();
cd0b1709
VZ
3251 }
3252
3253 // either no more tokens or the scan was stopped by something we couldn't
3254 // parse - in any case, see if we can construct a date from what we have
3255 if ( !haveDay && !haveWDay )
3256 {
f6bcfd97 3257 wxLogDebug(_T("ParseDate: no day, no weekday hence no date."));
cd0b1709
VZ
3258
3259 return (wxChar *)NULL;
3260 }
3261
3262 if ( haveWDay && (haveMon || haveYear || haveDay) &&
f6bcfd97 3263 !(haveDay && haveMon && haveYear) )
cd0b1709
VZ
3264 {
3265 // without adjectives (which we don't support here) the week day only
3266 // makes sense completely separately or with the full date
3267 // specification (what would "Wed 1999" mean?)
3268 return (wxChar *)NULL;
3269 }
3270
f6bcfd97
BP
3271 if ( !haveWDay && haveYear && !(haveDay && haveMon) )
3272 {
3273 // may be we have month and day instead of day and year?
3274 if ( haveDay && !haveMon )
3275 {
3276 if ( day <= 12 )
3277 {
3278 // exchange day and month
3279 mon = (wxDateTime::Month)(day - 1);
3280
3281 // we're in the current year then
f5cd9787
VZ
3282 if ( (year > 0) &&
3283 (unsigned)year <= GetNumOfDaysInMonth(Inv_Year, mon) )
f6bcfd97
BP
3284 {
3285 day = year;
3286
3287 haveMon = TRUE;
3288 haveYear = FALSE;
3289 }
3290 //else: no, can't exchange, leave haveMon == FALSE
3291 }
3292 }
3293
3294 if ( !haveMon )
3295 {
3296 // if we give the year, month and day must be given too
3297 wxLogDebug(_T("ParseDate: day and month should be specified if year is."));
3298
3299 return (wxChar *)NULL;
3300 }
3301 }
3302
cd0b1709
VZ
3303 if ( !haveMon )
3304 {
3305 mon = GetCurrentMonth();
3306 }
3307
3308 if ( !haveYear )
3309 {
3310 year = GetCurrentYear();
3311 }
3312
3313 if ( haveDay )
3314 {
3315 Set(day, mon, year);
3316
3317 if ( haveWDay )
3318 {
3319 // check that it is really the same
3320 if ( GetWeekDay() != wday )
3321 {
3322 // inconsistency detected
f6bcfd97
BP
3323 wxLogDebug(_T("ParseDate: inconsistent day/weekday."));
3324
cd0b1709
VZ
3325 return (wxChar *)NULL;
3326 }
3327 }
3328 }
3329 else // haveWDay
3330 {
3331 *this = Today();
3332
3333 SetToWeekDayInSameWeek(wday);
3334 }
3335
f6bcfd97
BP
3336 // return the pointer to the first unparsed char
3337 p += nPosCur;
3338 if ( nPosCur && wxStrchr(dateDelimiters, *(p - 1)) )
3339 {
3340 // if we couldn't parse the token after the delimiter, put back the
3341 // delimiter as well
3342 p--;
3343 }
3344
3345 return p;
cd0b1709
VZ
3346}
3347
3348const wxChar *wxDateTime::ParseTime(const wxChar *time)
3349{
3350 wxCHECK_MSG( time, (wxChar *)NULL, _T("NULL pointer in wxDateTime::Parse") );
3351
f0f951fa
VZ
3352 // first try some extra things
3353 static const struct
3354 {
3355 const wxChar *name;
3356 wxDateTime_t hour;
3357 } stdTimes[] =
3358 {
3359 { wxTRANSLATE("noon"), 12 },
3360 { wxTRANSLATE("midnight"), 00 },
3361 // anything else?
3362 };
cd0b1709 3363
f0f951fa
VZ
3364 for ( size_t n = 0; n < WXSIZEOF(stdTimes); n++ )
3365 {
3366 wxString timeString = wxGetTranslation(stdTimes[n].name);
3367 size_t len = timeString.length();
3368 if ( timeString.CmpNoCase(wxString(time, len)) == 0 )
3369 {
3370 Set(stdTimes[n].hour, 0, 0);
3371
3372 return time + len;
3373 }
3374 }
3375
c7f9a482
VZ
3376 // try all time formats we may think about in the order from longest to
3377 // shortest
3378
3379 // 12hour with AM/PM?
3380 const wxChar *result = ParseFormat(time, _T("%I:%M:%S %p"));
3381
f0f951fa
VZ
3382 if ( !result )
3383 {
3384 // normally, it's the same, but why not try it?
3385 result = ParseFormat(time, _T("%H:%M:%S"));
3386 }
3387
3388 if ( !result )
3389 {
c7f9a482
VZ
3390 // 12hour with AM/PM but without seconds?
3391 result = ParseFormat(time, _T("%I:%M %p"));
f0f951fa
VZ
3392 }
3393
3394 if ( !result )
3395 {
3396 // without seconds?
3397 result = ParseFormat(time, _T("%H:%M"));
3398 }
3399
3400 if ( !result )
3401 {
c7f9a482
VZ
3402 // just the hour and AM/PM?
3403 result = ParseFormat(time, _T("%I %p"));
f0f951fa
VZ
3404 }
3405
3406 if ( !result )
3407 {
3408 // just the hour?
3409 result = ParseFormat(time, _T("%H"));
3410 }
3411
3412 if ( !result )
3413 {
c7f9a482
VZ
3414 // parse the standard format: normally it is one of the formats above
3415 // but it may be set to something completely different by the user
3416 result = ParseFormat(time, _T("%X"));
f0f951fa
VZ
3417 }
3418
3419 // TODO: parse timezones
3420
3421 return result;
cd0b1709
VZ
3422}
3423
4f6aed9c
VZ
3424// ----------------------------------------------------------------------------
3425// Workdays and holidays support
3426// ----------------------------------------------------------------------------
3427
3428bool wxDateTime::IsWorkDay(Country WXUNUSED(country)) const
3429{
3430 return !wxDateTimeHolidayAuthority::IsHoliday(*this);
3431}
3432
fcc3d7cb
VZ
3433// ============================================================================
3434// wxTimeSpan
3435// ============================================================================
3436
033400eb
VZ
3437// this enum is only used in wxTimeSpan::Format() below but we can't declare
3438// it locally to the method as it provokes an internal compiler error in egcs
3439// 2.91.60 when building with -O2
3440enum TimeSpanPart
3441{
3442 Part_Week,
3443 Part_Day,
3444 Part_Hour,
3445 Part_Min,
3446 Part_Sec,
3447 Part_MSec
3448};
3449
e6ec579c
VZ
3450// not all strftime(3) format specifiers make sense here because, for example,
3451// a time span doesn't have a year nor a timezone
3452//
3453// Here are the ones which are supported (all of them are supported by strftime
3454// as well):
3455// %H hour in 24 hour format
3456// %M minute (00 - 59)
3457// %S second (00 - 59)
3458// %% percent sign
3459//
3460// Also, for MFC CTimeSpan compatibility, we support
3461// %D number of days
3462//
3463// And, to be better than MFC :-), we also have
3464// %E number of wEeks
3465// %l milliseconds (000 - 999)
fcc3d7cb
VZ
3466wxString wxTimeSpan::Format(const wxChar *format) const
3467{
e6ec579c 3468 wxCHECK_MSG( format, _T(""), _T("NULL format in wxTimeSpan::Format") );
fcc3d7cb
VZ
3469
3470 wxString str;
5b735202 3471 str.Alloc(wxStrlen(format));
e6ec579c 3472
df05cdc5
VZ
3473 // Suppose we have wxTimeSpan ts(1 /* hour */, 2 /* min */, 3 /* sec */)
3474 //
3475 // Then, of course, ts.Format("%H:%M:%S") must return "01:02:03", but the
3476 // question is what should ts.Format("%S") do? The code here returns "3273"
3477 // in this case (i.e. the total number of seconds, not just seconds % 60)
3478 // because, for me, this call means "give me entire time interval in
3479 // seconds" and not "give me the seconds part of the time interval"
3480 //
3481 // If we agree that it should behave like this, it is clear that the
3482 // interpretation of each format specifier depends on the presence of the
3483 // other format specs in the string: if there was "%H" before "%M", we
3484 // should use GetMinutes() % 60, otherwise just GetMinutes() &c
3485
3486 // we remember the most important unit found so far
033400eb 3487 TimeSpanPart partBiggest = Part_MSec;
df05cdc5 3488
f6bcfd97 3489 for ( const wxChar *pch = format; *pch; pch++ )
e6ec579c
VZ
3490 {
3491 wxChar ch = *pch;
3492
f6bcfd97 3493 if ( ch == _T('%') )
e6ec579c 3494 {
df05cdc5
VZ
3495 // the start of the format specification of the printf() below
3496 wxString fmtPrefix = _T('%');
3497
3498 // the number
3499 long n;
e6ec579c 3500
f6bcfd97 3501 ch = *++pch; // get the format spec char
e6ec579c
VZ
3502 switch ( ch )
3503 {
3504 default:
3505 wxFAIL_MSG( _T("invalid format character") );
3506 // fall through
3507
f6bcfd97 3508 case _T('%'):
df05cdc5
VZ
3509 str += ch;
3510
3511 // skip the part below switch
3512 continue;
e6ec579c 3513
f6bcfd97 3514 case _T('D'):
df05cdc5
VZ
3515 n = GetDays();
3516 if ( partBiggest < Part_Day )
3517 {
3518 n %= DAYS_PER_WEEK;
3519 }
3520 else
3521 {
3522 partBiggest = Part_Day;
3523 }
e6ec579c
VZ
3524 break;
3525
f6bcfd97 3526 case _T('E'):
df05cdc5
VZ
3527 partBiggest = Part_Week;
3528 n = GetWeeks();
e6ec579c
VZ
3529 break;
3530
f6bcfd97 3531 case _T('H'):
df05cdc5
VZ
3532 n = GetHours();
3533 if ( partBiggest < Part_Hour )
3534 {
3535 n %= HOURS_PER_DAY;
3536 }
3537 else
3538 {
3539 partBiggest = Part_Hour;
3540 }
3541
3542 fmtPrefix += _T("02");
e6ec579c
VZ
3543 break;
3544
f6bcfd97 3545 case _T('l'):
df05cdc5
VZ
3546 n = GetMilliseconds().ToLong();
3547 if ( partBiggest < Part_MSec )
3548 {
3549 n %= 1000;
3550 }
3551 //else: no need to reset partBiggest to Part_MSec, it is
3552 // the least significant one anyhow
3553
3554 fmtPrefix += _T("03");
e6ec579c
VZ
3555 break;
3556
f6bcfd97 3557 case _T('M'):
df05cdc5
VZ
3558 n = GetMinutes();
3559 if ( partBiggest < Part_Min )
3560 {
3561 n %= MIN_PER_HOUR;
3562 }
3563 else
3564 {
3565 partBiggest = Part_Min;
3566 }
3567
3568 fmtPrefix += _T("02");
e6ec579c
VZ
3569 break;
3570
f6bcfd97 3571 case _T('S'):
df05cdc5
VZ
3572 n = GetSeconds().ToLong();
3573 if ( partBiggest < Part_Sec )
3574 {
3575 n %= SEC_PER_MIN;
3576 }
3577 else
3578 {
3579 partBiggest = Part_Sec;
3580 }
3581
3582 fmtPrefix += _T("02");
e6ec579c
VZ
3583 break;
3584 }
3585
df05cdc5
VZ
3586 str += wxString::Format(fmtPrefix + _T("ld"), n);
3587 }
3588 else
3589 {
3590 // normal character, just copy
3591 str += ch;
e6ec579c 3592 }
e6ec579c 3593 }
fcc3d7cb
VZ
3594
3595 return str;
3596}
4f6aed9c
VZ
3597
3598// ============================================================================
3599// wxDateTimeHolidayAuthority and related classes
3600// ============================================================================
3601
3602#include "wx/arrimpl.cpp"
3603
f6bcfd97 3604WX_DEFINE_OBJARRAY(wxDateTimeArray);
4f6aed9c
VZ
3605
3606static int wxCMPFUNC_CONV
3607wxDateTimeCompareFunc(wxDateTime **first, wxDateTime **second)
3608{
3609 wxDateTime dt1 = **first,
3610 dt2 = **second;
3611
3612 return dt1 == dt2 ? 0 : dt1 < dt2 ? -1 : +1;
3613}
3614
3615// ----------------------------------------------------------------------------
3616// wxDateTimeHolidayAuthority
3617// ----------------------------------------------------------------------------
3618
3619wxHolidayAuthoritiesArray wxDateTimeHolidayAuthority::ms_authorities;
3620
3621/* static */
3622bool wxDateTimeHolidayAuthority::IsHoliday(const wxDateTime& dt)
3623{
3624 size_t count = ms_authorities.GetCount();
3625 for ( size_t n = 0; n < count; n++ )
3626 {
3627 if ( ms_authorities[n]->DoIsHoliday(dt) )
3628 {
3629 return TRUE;
3630 }
3631 }
3632
3633 return FALSE;
3634}
3635
3636/* static */
3637size_t
3638wxDateTimeHolidayAuthority::GetHolidaysInRange(const wxDateTime& dtStart,
3639 const wxDateTime& dtEnd,
3640 wxDateTimeArray& holidays)
3641{
3642 wxDateTimeArray hol;
3643
3644 holidays.Empty();
3645
3646 size_t count = ms_authorities.GetCount();
6dc6fda6 3647 for ( size_t nAuth = 0; nAuth < count; nAuth++ )
4f6aed9c 3648 {
6dc6fda6 3649 ms_authorities[nAuth]->DoGetHolidaysInRange(dtStart, dtEnd, hol);
4f6aed9c
VZ
3650
3651 WX_APPEND_ARRAY(holidays, hol);
3652 }
3653
3654 holidays.Sort(wxDateTimeCompareFunc);
3655
3656 return holidays.GetCount();
3657}
3658
3659/* static */
3660void wxDateTimeHolidayAuthority::ClearAllAuthorities()
3661{
3662 WX_CLEAR_ARRAY(ms_authorities);
3663}
3664
3665/* static */
3666void wxDateTimeHolidayAuthority::AddAuthority(wxDateTimeHolidayAuthority *auth)
3667{
3668 ms_authorities.Add(auth);
3669}
3670
3671// ----------------------------------------------------------------------------
3672// wxDateTimeWorkDays
3673// ----------------------------------------------------------------------------
3674
3675bool wxDateTimeWorkDays::DoIsHoliday(const wxDateTime& dt) const
3676{
3677 wxDateTime::WeekDay wd = dt.GetWeekDay();
3678
3679 return (wd == wxDateTime::Sun) || (wd == wxDateTime::Sat);
3680}
3681
3682size_t wxDateTimeWorkDays::DoGetHolidaysInRange(const wxDateTime& dtStart,
3683 const wxDateTime& dtEnd,
3684 wxDateTimeArray& holidays) const
3685{
3686 if ( dtStart > dtEnd )
3687 {
3688 wxFAIL_MSG( _T("invalid date range in GetHolidaysInRange") );
3689
3690 return 0u;
3691 }
3692
3693 holidays.Empty();
3694
3695 // instead of checking all days, start with the first Sat after dtStart and
3696 // end with the last Sun before dtEnd
3697 wxDateTime dtSatFirst = dtStart.GetNextWeekDay(wxDateTime::Sat),
3698 dtSatLast = dtEnd.GetPrevWeekDay(wxDateTime::Sat),
3699 dtSunFirst = dtStart.GetNextWeekDay(wxDateTime::Sun),
3700 dtSunLast = dtEnd.GetPrevWeekDay(wxDateTime::Sun),
3701 dt;
3702
3703 for ( dt = dtSatFirst; dt <= dtSatLast; dt += wxDateSpan::Week() )
3704 {
3705 holidays.Add(dt);
3706 }
3707
3708 for ( dt = dtSunFirst; dt <= dtSunLast; dt += wxDateSpan::Week() )
3709 {
3710 holidays.Add(dt);
3711 }
3712
3713 return holidays.GetCount();
3714}
3e0b743f 3715
1e6feb95 3716#endif // wxUSE_DATETIME