Browse Source

* Merging revisions r48716 from trunk:
------------------------------------------------------------------------
r48716 | michael | 2021-02-19 09:12:46 +0100 (Fri, 19 Feb 2021) | 1 line

* Month constants appeared in Delphi
------------------------------------------------------------------------

git-svn-id: branches/fixes_3_2@48935 -

michael 4 years ago
parent
commit
e2980ac39b
1 changed files with 13 additions and 0 deletions
  1. 13 0
      packages/rtl-objpas/src/inc/dateutil.inc

+ 13 - 0
packages/rtl-objpas/src/inc/dateutil.inc

@@ -44,6 +44,19 @@ const
   DaySaturday  = 6;
   DaySunday    = 7;
 
+  MonthJanuary   = 1;
+  MonthFebruary  = 2;
+  MonthMarch     = 3;
+  MonthApril     = 4;
+  MonthMay       = 5;
+  MonthJune      = 6;
+  MonthJuly      = 7;
+  MonthAugust    = 8;
+  MonthSeptember = 9;
+  MonthOctober   = 10;
+  MonthNovember  = 11;
+  MonthDecember  = 12;
+
   // Fraction of a day
   OneHour        = TDateTime(1)/HoursPerDay;
   OneMinute      = TDateTime(1)/MinsPerDay;