[<<Previous Entry] [^^Up^^] [Next Entry>>] [Menu] [About The Guide]
UNITS03.PAS

 { ---------------------------------------------------------------- }
 {                      TEST DATUMS-ROUTINEN                        }
 { ---------------------------------------------------------------- }
 { Fragt ein Datum in beliebiger Form ab, wertet es aus und zeigt   }
 { das Ergebnis zusammen mit dem Systemdatum an; au.erdem werden    }
 { noch die verschiedenen anderen Routinen untergeordneter Bedeu-   }
 { tung getestet.                                                   }
 { ---------------------------------------------------------------- }
 {       (c)  1992  by  Aurora  featuring  M.J. Schwaiger           }
 { ---------------------------------------------------------------- }

 PROGRAM UNITS03;

   USES
     CRT,
     ADatum;

   VAR
     DatumErgebnis,
     Datum2         : TDate;
     DatStr         : STRING;
     DES            : LONGINT;
     Von,  Bis       : TDate;

   BEGIN
     CLRSCR;
     GOTOXY (1,  6);

     WRITELN ('Aktuelles Datum: ',  HoleAktDatum (Datum2));
     WRITELN;

     WRITE ('Geben Sie bitte ein Datum beliebiger Form ein: ');
     READLN (DatStr);
     WRITELN;

     DES := ExtrDatum (DatStr,  DatumErgebnis);

     WRITELN ('Sie meinten doch ',  DES : 8,  ' ?');
     WRITELN ('Oder in dBase:  >',  ExtrDbDatum (DatStr),  '<');
     WRITELN;

     WRITELN ('Das war ein ',  WochenTagSt (DatumErgebnis),  '.');
     WRITELN;

     WRITELN ('Sie sind ',  Tage (Datum2,  DatumErgebnis),  ' Tage alt.');
     WRITELN;

     WRITELN ('<',  Num2Str (0,  2),  '>');
     WRITELN ('<',  Num2Str (234,  2),  '>');
     WRITELN ('<',  Num2Str (23,  5),  '>');
     WRITELN ('<',  Num2Str (1234567,  4),  '>');

     WRITELN ('<',  ExtrDbDatum ('Montag, 24. 11. 1991'),  '>');
     WRITELN ('<',  ExtrDbDatum ('3.2.1993'),  '>');
     WRITELN ('<',  ExtrDbDatum ('1990-06-1'),  '>');

     Von.Tag := 11;
     Von.Monat := 1;
     Von.Jahr := 1991;

     Bis.Tag := 17;
     Bis.Monat := 2;
     Bis.Jahr := 1991;

     WRITELN ('<',  PruefeDatum ('Montag, 24. 1. 1991',  Von,  Bis),  '>');
     WRITELN ('<',  PruefeDatum ('17.2.1991',  Von,  Bis),  '>');
     WRITELN ('<',  PruefeDatum ('11.2.1992',  Von,  Bis),  '>');
     WRITELN ('<',  PruefeDatum ('1990-1-20',  Von,  Bis),  '>');
     WRITELN ('<',  PruefeDatum ('1991-1-11',  Von,  Bis),  '>');
     WRITELN ('<',  PruefeDatum ('1991-1-10',  Von,  Bis),  '>');

     REPEAT UNTIL KEYPRESSED;
   END. { PROGRAM UNITS03 }

This page created by ng2html v1.05, the Norton guide to HTML conversion utility. Written by Dave Pearson