Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by Nersgatt,
23. Sep 2009
Warum nicht einfach so:
function IsDateOk(d,m,y:word):boolean;
var mydate:TDateTime;
begin
result := TryEncodeDate(y,m,d,myDate);
end; :roll:
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by Nersgatt,
23. Sep 2009
Wenn Du das Datum als String vorliegen hast, bietet sich TryStrToDate an. Dann würde ich nicht daraus einen Datumsstring zusammenbasteln und dann prüfen, sondern die Elemente einzeln prüfen. Das ist wie links blinken und rechts abbiegen :mrgreen: Mit Deiner Funktion bekommst Du bei einem Englischen Windows Probleme.
Ich würde die Elemente einzeln prüfen:
//Gültigkeitsbereich 1.1.0001 ......
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by Nersgatt,
22. Sep 2009
Der Code arbeitet sowohl auf einem Deutschen Windows, als auch auf einem Englischen Windows korrekt. Halt je nach Einstellung des Systems.
Geh mal in die Systemsteuerung -> "Regions- und Sprachoptionen" und stell Deinen PC z.B. auf Englisch um. Und dann probiere den Codeschipsel noch mal aus.
Jens
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by Nersgatt,
22. Sep 2009
Ja, es gibt tryStrToDate.
Kleines Beispiel für Wolfgang:
var str : string;
d : TDateTime;
begin
str := InputBox('Datum', 'Bitte geben sie ein Datum ein', '');
if tryStrToDate(str, d) then
begin