home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / database / edit_22 / datedemo.pas next >
Encoding:
Pascal/Delphi Source File  |  1988-05-28  |  1.3 KB  |  44 lines
  1. Program TestDate;
  2.  
  3. Uses
  4.   DOS,CRT,Dates;
  5.  
  6. Var
  7.   CurrDate,
  8.   Date1,Date2 : string[10];
  9.   Day1,Day2,
  10.   Day3,
  11.   M1,D1,Y1,
  12.   M2,D2,Y2    : Integer;
  13.   J1,J2       : Real;
  14.  
  15. Begin
  16.   Clrscr;
  17.   Writeln('Date Demonstration':47);
  18.   Writeln;
  19.   M1 := 0; M2 := 0; D1 := 0; D2 := 0; Y1 := 0; Y2 := 0;
  20.   Write('Enter first date:  '); readln(Date1);
  21.   Write('Enter second date: '); readln(Date2);
  22.   Writeln;
  23.   DateToInt(Date1,M1,D1,Y1);
  24.   Day1 := DayOfTheWeek(M1,D1,Y1);
  25.   DateToInt(Date2,M2,D2,Y2);
  26.   Day2 := DayOfTheWeek(M2,D2,Y2);
  27.   WriteLn('First Date  - Month: ',M1:2,' Day: ',D1:2,' Year: ',Y1,
  28.           '  (',WeekArray[Day1],', ',MonthArray[M1],' ',D1,', ',Y1,')');
  29.   WriteLn('Second Date - Month: ',M2:2,' Day: ',D2:2,' Year: ',Y2,
  30.           '  (',WeekArray[Day2],', ',MonthArray[M2],' ',D2,', ',Y2,')');
  31.   Writeln;
  32.   J1 := ToJulian(M1,D1,Y1);
  33.   WriteLn('Modified Julian First date:  ',J1:6:0);
  34.   J2 := ToJulian(M2,D2,Y2);
  35.   WriteLn('Modified Julian Second date: ',J2:6:0);
  36.   Writeln;
  37.   Writeln('Standard Julian First date:  ',(J1 + 1721064.0):6:0);
  38.   Writeln('Standard Julian Second date: ',(J2 + 1721064.0):6:0);
  39.   Writeln;
  40.   Writeln('Days between dates: ',(J2 - J1):7:0);
  41.   Writeln;
  42.   CurrDate := CurrentDate;
  43.   Writeln('Today''s date is: ',CurrDate);
  44. End.