home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 09 / tricks / datedemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-06-12  |  2.2 KB  |  65 lines
  1. (* ------------------------------------------------------ *)
  2. (*                    DATEDEMO.PAS                        *)
  3. (* ------------------------------------------------------ *)
  4. PROGRAM datedemo;
  5.  
  6. USES Dos, Crt;
  7.  
  8. VAR   (* benötigt TP4DATUM.BIB im Hauptprogramm *)
  9.       datum    : STRING [10];
  10.       tagname  : STRING [3];
  11.       datumnr  : LONGINT;
  12.  
  13. VAR   (* nur zu Demozwecken *)
  14.       demodatum    : ARRAY [1..2] OF STRING [10];
  15.       demotagname  : ARRAY [1..2] OF STRING [3];
  16.       demodatumnr  : ARRAY [1..2] OF LONGINT;
  17.  
  18. {$I TP4DATUM.BIB}
  19.  
  20. BEGIN (* datedemo *)
  21.   ClrScr;
  22.   WriteLn ('Demo der Biobliotheks-Routine TP4DATUM.BIB ');
  23.   WriteLn ('-------------------------------------------');
  24.   WriteLn;
  25.   WriteLn ('Falsche Daten (z.B. 31.4.88) werden nicht  ',
  26.            'akzeptiert.');
  27.   WriteLn ('Der 29. Februar in Schaltjahren wird ',
  28.            'berücksichtigt.');
  29.   WriteLn ('Es sind verschiedene Trennzeichen ',
  30.            'erlaubt: - . /');
  31.   WriteLn ('Tages- und Monatszahlen < 10 brauchen keine ',
  32.            'führende "0".');
  33.   WriteLn ('Zweistellige Jahreszahlen werden auf 19xx ',
  34.            'aufgefüllt.');
  35.   WriteLn ('RETURN übernimmt das System-Datum.');
  36.   WriteLn;
  37.   Write ('Bitte ein Datum eingeben : ');  datumlesen;
  38.   WriteLn;
  39.   demodatum[1] := datum;
  40.   demotagname[1] := tagname;
  41.   demodatumnr[1] := datumnr;
  42.   Write ('Und noch ein Datum       : '); datumlesen;
  43.   WriteLn;
  44.   demodatum[2] := datum;
  45.   demotagname[2] := tagname;
  46.   demodatumnr[2] := datumnr;
  47.   WriteLn;
  48.   WriteLn ('Die Bibliotheks-Routine TP4DATUM.BIB kann :');
  49.   WriteLn;
  50.   Write   ('  1. den Wochentag berechnen   :  ');
  51.   Write   (demotagname[1],' ',demodatum[1],'  und  ');
  52.   WriteLn (demotagname[2],' ',demodatum[2]);
  53.   Write   ('  2. Daten vergleichen         :  ',
  54.            demodatum[1],' ist ');
  55.   IF (demodatumnr[1]-demodatumnr[2]) = 0 THEN
  56.     Write ('identisch mit ')
  57.   ELSE IF (demodatumnr[1]-demodatumnr[2]) < 0 THEN
  58.     Write ('früher als ')
  59.   ELSE Write ('später als ');
  60.   WriteLn (demodatum[2]);
  61.   WriteLn;
  62. END.
  63. (* ------------------------------------------------------ *)
  64. (*                 Ende von DATEDEMO.PAS                  *)
  65.