home *** CD-ROM | disk | FTP | other *** search
/ Merciful 5 / Merciful - Disc 5.iso / software / p / pcqpascalv1.2d.lha / Examples / Today.p < prev    next >
Encoding:
Text File  |  1992-02-05  |  213 b   |  15 lines
  1. Program Today;
  2.  
  3. {$I "Include:Utils/DateTools.i"}
  4.  
  5.  
  6. Var
  7.     TodayTime : DateDescription;
  8.  
  9. begin
  10.     TimeDesc(TodayTime);
  11.  
  12.     with TodayTime do
  13.     Writeln('The time is: ', Hour:2, ':', Minute:2, ':', Second:2);
  14. end.
  15.