1 {-Test prog for dates unit, we Dec. 2003} 2 3 program T_Dates; 4 5 {$i std.inc} 6 7 {$ifdef APPCONS} 8 {$apptype console} 9 {$endif} 10 11 12 uses 13 {$ifdef WINCRT} 14 wincrt, 15 {$endif} 16 dates; 17 var 18 dow, dum: word; 19 y, m, d: word; 20 hour,min,sec: word; 21 JDM: Longint; 22 begin 23 writeln('CJD: ', CurrentJulianDay); 24 writeln(' ms: ', msCount); 25 GetCurrentDate(dum,dum,dum,dow); 26 writeln('dow: ', dow); 27 writeln('30.12.1899=', JulianDay(1899, 12, 30)); 28 JDM := JulianDay(65535, 12, 31); 29 writeln('31.12.65535=', JDM); 30 JulianToDMY(JDM, y, m, d); 31 writeln('JD ', JDM, ' = ',d,'.',m,'.',y); 32 UnixToDMYhms(0, y,m,d,hour,min,sec); 33 writeln('Unix ',0:10, ' = ',d:2,'.',m:2,'.',y, ' ',hour:2,':',min:2,':',sec:2); 34 UnixToDMYhms(maxLongint, y,m,d,hour,min,sec); 35 writeln('Unix ',maxLongint:10 , ' = ',d:2,'.',m:2,'.',y, ' ',hour:2,':',min:2,':',sec:2); 36 end. 37