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