home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / JSDATE.ZIP / JSTST.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-04-04  |  852 b   |  25 lines
  1. PROGRAM JDateTest;
  2.   USES
  3.     DOS,JSDate;
  4.   VAR
  5.     JulianDate, SerialDate: INTEGER;
  6.     Year, Month, Day, DayOfWeek, Year2, Month2, Day2 : WORD;
  7.  
  8.   BEGIN
  9.     WRITELN('Submitted to: PUBLIC DOMAIN by WardWares');
  10.     WRITELN('Julian/Serial Date Generator   APR 4, 1988');
  11.     WRITELN;
  12.     WRITELN('[Please Keep this notice within this package]');
  13.     WRITELN;
  14.     WRITELN('Code may be used within any package that you');
  15.     WRITELN('create.');
  16.     WRITELN;
  17.     GETDATE(Year,Month,Day,DayofWeek);
  18.     WRITELN('Todays Date: ',Month,'/',Day,'/',Year);
  19.     WRITELN('Todays Julian Date: ',Julian(Month,Day,Year));
  20.     DtoJ(Day,Month,Year,SerialDate);
  21.     WRITELN('Todays Serial Date: ',SerialDate);
  22.     JtoD(SerialDate,Day2,Month2,Year2);
  23.     WRITELN('Serial Date to Todays Date: ',Month2,'/',Day2,'/',Year2);
  24.   END.{of JDate Test}
  25.