[<<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