Sfoglia il codice sorgente

* 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

florian 1 anno fa
parent
commit
272417e602
1 ha cambiato i file con 1 aggiunte e 1 eliminazioni
  1. 1 1
      tests/test/units/sysutils/tfile1.pp

+ 1 - 1
tests/test/units/sysutils/tfile1.pp

@@ -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