home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TOT_2.ZIP / DEMO.EXE / arc / DEMDT1.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-02-11  |  515 b   |  21 lines
  1. program DemoDateOne;
  2. {DEMDT1 - simple date statements}
  3.  
  4. uses DOS,CRT, totDATE;
  5.  
  6. var
  7.  M,D,Y:longint;
  8.  
  9. begin
  10.    writeln(GregToJul(2,11,1991));
  11.    writeln(FancyDateStr(GregToJul(2,20,1956)+100,true,true));
  12.    writeln;
  13.    writeln(GregtoJul(3,21,57));
  14.    JulToGreg(2447654,M,D,Y);
  15.    writeln(M,' ',D,' ',Y);
  16.    writeln(DOWJul(2448299));
  17.    writeln(StartofYear(2448299));
  18.    writeln(EndOfYear(2448299));
  19.    writeln(RelativeDate('04/05/91',MMDDYY,-7));
  20.    writeln(FancyDateStr(2448299,true,true));
  21. end.