home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / database / tdb / demo / units03.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-06-01  |  2.3 KB  |  73 lines
  1. { ──────────────────────────────────────────────────────────────── }
  2. {                      TEST DATUMS-ROUTINEN                        }
  3. { ──────────────────────────────────────────────────────────────── }
  4. { Fragt ein Datum in beliebiger Form ab, wertet es aus und zeigt   }
  5. { das Ergebnis zusammen mit dem Systemdatum an; außerdem werden    }
  6. { noch die verschiedenen anderen Routinen untergeordneter Bedeu-   }
  7. { tung getestet.                                                   }
  8. { ──────────────────────────────────────────────────────────────── }
  9. {       (c)  1992  by  Aurora  featuring  M.J. Schwaiger           }
  10. { ──────────────────────────────────────────────────────────────── }
  11.  
  12. PROGRAM UNITS03;
  13.  
  14.   USES
  15.     CRT,
  16.     ADatum;
  17.  
  18.   VAR
  19.     DatumErgebnis,
  20.     Datum2         : TDate;
  21.     DatStr         : STRING;
  22.     DES            : LONGINT;
  23.     Von, Bis       : TDate;
  24.  
  25.   BEGIN
  26.     CLRSCR;
  27.     GOTOXY (1, 6);
  28.  
  29.     WRITELN ('Aktuelles Datum: ', HoleAktDatum (Datum2));
  30.     WRITELN;
  31.  
  32.     WRITE ('Geben Sie bitte ein Datum beliebiger Form ein: ');
  33.     READLN (DatStr);
  34.     WRITELN;
  35.  
  36.     DES := ExtrDatum (DatStr, DatumErgebnis);
  37.  
  38.     WRITELN ('Sie meinten doch ', DES : 8, ' ?');
  39.     WRITELN ('Oder in dBase:  >', ExtrDbDatum (DatStr), '<');
  40.     WRITELN;
  41.  
  42.     WRITELN ('Das war ein ', WochenTagSt (DatumErgebnis), '.');
  43.     WRITELN;
  44.  
  45.     WRITELN ('Sie sind ', Tage (Datum2, DatumErgebnis), ' Tage alt.');
  46.     WRITELN;
  47.  
  48.     WRITELN ('<', Num2Str (0, 2), '>');
  49.     WRITELN ('<', Num2Str (234, 2), '>');
  50.     WRITELN ('<', Num2Str (23, 5), '>');
  51.     WRITELN ('<', Num2Str (1234567, 4), '>');
  52.  
  53.     WRITELN ('<', ExtrDbDatum ('Montag, 24. 11. 1991'), '>');
  54.     WRITELN ('<', ExtrDbDatum ('3.2.1993'), '>');
  55.     WRITELN ('<', ExtrDbDatum ('1990-06-1'), '>');
  56.  
  57.     Von.Tag := 11;
  58.     Von.Monat := 1;
  59.     Von.Jahr := 1991;
  60.  
  61.     Bis.Tag := 17;
  62.     Bis.Monat := 2;
  63.     Bis.Jahr := 1991;
  64.  
  65.     WRITELN ('<', PruefeDatum ('Montag, 24. 1. 1991', Von, Bis), '>');
  66.     WRITELN ('<', PruefeDatum ('17.2.1991', Von, Bis), '>');
  67.     WRITELN ('<', PruefeDatum ('11.2.1992', Von, Bis), '>');
  68.     WRITELN ('<', PruefeDatum ('1990-1-20', Von, Bis), '>');
  69.     WRITELN ('<', PruefeDatum ('1991-1-11', Von, Bis), '>');
  70.     WRITELN ('<', PruefeDatum ('1991-1-10', Von, Bis), '>');
  71.  
  72.     REPEAT UNTIL KeyPressed;
  73.   END. { PROGRAM UNITS03 }