home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / PASCSRC.ZIP / TIMEDAT4.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-01-15  |  390 b   |  13 lines
  1. program Get_Time_And_Date;           (* For TURBO Pascal 4.0 only *)
  2.  
  3. uses Dos;
  4.  
  5. var Year,Month,Day,Weekday        : word;
  6.     Hour,Minute,Second,Hundredths : word;
  7.  
  8. begin
  9.    GetTime(Hour, Minute, Second, Hundredths);
  10.    GetDate(Year, Month, Day, Weekday);
  11.    Writeln('The date is ',Month:2,'/',Day:2,'/',Year);
  12.    Writeln('The time is ',Hour:2,':',Minute:2,':',Second:2);
  13. end.