home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / FASTDA.ZIP / TESTDATE.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1988-04-16  |  552 b   |  20 lines
  1. {   File: TestDate.PAS
  2.   Author: David N. Dubois
  3.     Date: 1988.04.16
  4.  
  5.   Program to demonstate unit FastDate.
  6.   Computes the number of days since the IBM PC was announced. }
  7.  
  8. program TestDate;
  9. uses
  10.   FastDate;
  11. var
  12.   IBMPC : DateType;
  13.   Now   : DateType;
  14. begin
  15.   DateIs  ( IBMPC, 1981, August, 12 );
  16.   Today   ( Now );
  17.   writeln ( '   IBM PC was announced: ', DateToString ( IBMPC ) );
  18.   writeln ( '               Today is: ', DateToString ( Now   ) );
  19.   writeln ( 'Days since announcement: ', DaysBetweenDates ( IBMPC, Now ) );
  20. end.