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