paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 18:09:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

TwoDigitYearCenturyWindow is 50

Browse Source
This commit is contained in:
michael 2003-11-26 20:15:46 +00:00
parent 42a38ae677
commit 07583c11a7
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/objpas/sysutils/datih.inc
View File

@ -43,7 +43,7 @@ const
((31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31),
(31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31));
TwoDigitYearCenturyWindow : word=0;
TwoDigitYearCenturyWindow : word= 50;
{ Threshold to be subtracted from year before
age-detection.}
@ -128,7 +128,10 @@ Procedure GetLocalTime(var SystemTime: TSystemTime);
{
$Log$
Revision 1.1 2003-10-06 21:01:06 peter
Revision 1.2 2003-11-26 20:15:46 michael
TwoDigitYearCenturyWindow is 50
Revision 1.1 2003/10/06 21:01:06 peter
* moved classes unit to rtl
Revision 1.8 2003/01/18 23:45:37 michael