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

* while on windows the max. possible year should be 1980+127=2127, 2104 causes an error (seems to be limited to 2099), so stay with 2096

Browse Source
This commit is contained in:
florian 2024-01-27 20:31:40 +01:00
parent b514e979bd
commit 272417e602
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/test/units/sysutils/tfile1.pp
View File

@ -45,7 +45,7 @@ BEGIN
do_error(1004); do_error(1004);
Close(f); Close(f);
dateTime := EncodeDate(2104,2,29); dateTime := EncodeDate(2096,2,29);
Assign(f,'datetest.dat'); Assign(f,'datetest.dat');
Rewrite(f); Rewrite(f);
if FileSetDate(filerec(f).handle, DateTimeToFileDate(dateTime))<>0 then if FileSetDate(filerec(f).handle, DateTimeToFileDate(dateTime))<>0 then