Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by Wolfgang Mix,
23. Sep 2009
Hast wieder 'mal Recht :-)
Opa Detlef muß immer das letzte Wort haben ;-)
Gruß
Wolfgang
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by Wolfgang Mix,
23. Sep 2009
Danke für die Antworten ;-)
Das ist mit der Variante von alzaimar jetzt übrig geblieben:
function IsDateOk(d,m,y:word):boolean;
var mydate:TDateTime;
begin
result:=false;
mydate:=EncodeDate(y,m,d);
If TryEncodeDate(y,m,d,myDate) Then result:=true
end;
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by Wolfgang Mix,
22. Sep 2009
@Nersgatt
Prima, nochmal danke :-)
Gruß
Wolfgang
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by Wolfgang Mix,
22. Sep 2009
Mein vorlaüfiges Zwischenergebnis sieht jatzt so aus:
Wie ich Euch kenne, ist der Code noch optimierbar ;-)
Zumindest funktioniert es so erst einmal.
//Wolfgang Mix - Delphi-PRAXiS
//Gültigkeitsbereich 1.1.0001 ... 31.12.9999
function IsDateOk(d,m,y:integer):boolean;
var ds,ms,ys,dates:string;
d1:TDateTime;
begin
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by Wolfgang Mix,
22. Sep 2009
@Nersgatt
Danke, da bringt mich schon weiter nach vorn.
Der Code scheint sogar absturzfest zu sein ;-)
Hast Du noch die Variante mit dem internationalen Format?
Jetzt muß ich mir nur noch den Datumsstring basteln. :-)
Gruß
Wolfgang
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by Wolfgang Mix,
22. Sep 2009
@BackOrifice
BackOrifice hat geschrieben:
Garnix, andere Datumroutinen sollen erst gestartet werden, wenn das Datum okay ist.
Trotzdem danke
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by Wolfgang Mix,
22. Sep 2009
Hallo Profis
Überlege gerade, wie ich mit 'ner kurzen Funktion ein Datum auf Plausibilität prüfen kann.
Vorab mein Brainstorming:
Soll bei deutschem Datum funktionieren.
function IsDateOk(d,m,y:integer):boolean;
begin
result:=true;
//try