[<<Previous Entry]
[^^Up^^]
[Next Entry>>]
[Menu]
[About The Guide]
{ Vereinfachte Fassung der Turbo-Prozedur 'STR' als Funktion. }
{ Wandelt eine Zahl in einen String um, es wird auf eine L.nge }
{ von "l" Zeichen rechtsb.ndig formatiert, wobei .berfl.ssige }
{ Zeichen kommentarlos abgeschnitten und fehlende durch f.hrende }
{ Leerzeichen erg.nzt werden. }
{ ---------------------------------------------------------------- }
FUNCTION Num2Str (Zahl : LONGINT; L : BYTE) : STRING;
{ ---------------------------------------------------------------- }
{ Vereinfachte Fassung der Turbo-Prozedur 'VAL' als Funktion. }
{ Wandelt String (wenn m.glich) in Zahl um. }
{ Eventuell auftretende Fehler (ung.ltige Zeichen) bleiben unbe- }
{ r.cksichtigt und werden einfach .berlesen. }
{ ---------------------------------------------------------------- }
FUNCTION Wert (TEXT : STRING) : LONGINT;
{ ---------------------------------------------------------------- }
{ .berpr.ft, ob das .bergebene Datum korrekt ist und innerhalb der }
{ angegebenen Grenzen liegt. }
{ ---------------------------------------------------------------- }
{ Wenn ja, so wird True zur.ckgegeben, sonst False. }
{ ---------------------------------------------------------------- }
FUNCTION PruefeDatum (Eingabe : STRING; Von, Bis : TDate) :
BOOLEAN;
{ ---------------------------------------------------------------- }
{ Gibt True zur.ck, wenn Datum1 gr..er ist als Datum2, sonst False.}
{ ---------------------------------------------------------------- }
FUNCTION DGroesser (Datum1, Datum2 : TDate) : BOOLEAN;
{ ---------------------------------------------------------------- }
{ Gibt True zur.ck, wenn Datum1 kleiner ist als Datum2, sonst }
{ False. }
{ ---------------------------------------------------------------- }
FUNCTION DKleiner (Datum1, Datum2 : TDate) : BOOLEAN;
{ ---------------------------------------------------------------- }
{ Gibt True zur.ck, wenn Datum1 Datum2 entspricht, sonst False. }
{ ---------------------------------------------------------------- }
FUNCTION DGleich (Datum1, Datum2 : TDate) : BOOLEAN;
{ ---------------------------------------------------------------- }
{ Gibt True zur.ck, wenn Datum1 gr..er oder gleich Datum2 ist, }
{ sonst False. }
{ ---------------------------------------------------------------- }
FUNCTION DGroesserGleich (Datum1, Datum2 : TDate) : BOOLEAN;
{ ---------------------------------------------------------------- }
{ Gibt True zur.ck, wenn Datum1 kleiner oder gleich Datum2 ist, }
{ sonst False. }
{ ---------------------------------------------------------------- }
FUNCTION DKleinerGleich (Datum1, Datum2 : TDate) : BOOLEAN;
{ ---------------------------------------------------------------- }
{ Gibt einen String bestehend aus aktuellem Datum und aktueller }
{ Uhrzeit - in der Form "JJMMTT HH:MM:SS" - zur.ck. F.r die Be- }
{ nutzerinformation und in "Error". }
{ ---------------------------------------------------------------- }
FUNCTION DateTimeStr : STRING;
This page created by ng2html v1.05, the Norton guide to HTML conversion utility.
Written by Dave Pearson