diff options
author | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-03-10 12:52:30 +0000 |
---|---|---|
committer | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-03-10 12:52:30 +0000 |
commit | a085a251f69c4dc93ddff387152c33232c43918f (patch) | |
tree | 4bc5a228df8eec550a4594d85acea402c872a8b8 /packages | |
parent | b3aafcb2d091df92276dc625eb65d5fcb3ee97c2 (diff) | |
download | fpc-a085a251f69c4dc93ddff387152c33232c43918f.tar.gz |
* 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: https://svn.freepascal.org/svn/fpc/branches/fixes_3_2@48935 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages')
-rw-r--r-- | packages/rtl-objpas/src/inc/dateutil.inc | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/packages/rtl-objpas/src/inc/dateutil.inc b/packages/rtl-objpas/src/inc/dateutil.inc index 23ed2c968d..05c5047a52 100644 --- a/packages/rtl-objpas/src/inc/dateutil.inc +++ b/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; |