home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / GREGDATE.ZIP / TESTDATE.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1988-01-15  |  623 b   |  26 lines
  1. Program TestDate;
  2.  { A small demo to show some capabilities }
  3. Uses Dos,Crt,DateRout;
  4. Var
  5.   I             : Word;
  6.   Date1         : String[10];
  7.   Day1          : Str3;
  8. Begin
  9.   ClrScr;
  10.   Date1:= '01/01/1973';
  11.   For I:= 1 to 10 do
  12.   Begin
  13.     GotoXY(2,I); Write('The date is: ',Date1);
  14.     Write('; that''s a ',DayName(Date1));
  15.     Write(' in the week of ',WeekOf(Date1,5));
  16.     Write(', which is ',DayName(WeekOf(Date1,5)),'.');
  17.     Date1:= DateAdd(Date1,1);
  18.   End;
  19.   WriteLn;
  20.   WriteLn;
  21.   Date1:= '02/03/1988';
  22.   Date1:= DateAdd(Date1,9);
  23.   Write(Date1,' ');
  24.   Write(DayName(WeekOf(Date1,1)));
  25. End.
  26.