gültigkeit eines datums prüfen

[sancho1980]

hallo
sagt mal gibt es in der standardbibliothek von delphi 7 irgendeine funktion, der ich tag, monat und jahr übergeben kann und welche mir dann zurückgibt, ob es sich dabei um ein gültiges datum handelt (also schaltjahr und alles miteinbezogen)?
danke,
martin

[Matze]

Moin :hi:

Teste einfach, ob StrToDate möglich ist. '29.02.2006' ist ungültig, '29.02.2008' hingegen wird gültig sein.

Edit [22:10]: Wieso möchte ich immer alle Funktionen selbst schreiben, obwohl's die alle schon gibt. :wall:

[Hawkeye219]

Wie wäre es mit IsValidDate aus der Unit DateUtils?

Gruß Hawkeye

[negaH]

oder EncodeDate(Jahr, Monat, Tag) innerhalb eines try except Blocks. Denn EncodeDate() kann ein ungültiges Datum nicht codieren, das ist mathematisch unmöglich.

Gruß Hagen

[TStringlist]

...event. dann auch gleich die TryEncodeDate-Funktion.

[Hawkeye219]

Warum eine unnötige Dummy-Variable mitschleppen oder gar eine Exception riskieren, die beim Arbeiten innerhalb der IDE nur stört. Die Funktion IsValidDate macht genau das, was Martin möchte: sie prüft die Gültigkeit eines übergebenen Datums ohne großen Overhead.

Gruß Hawkeye

[MPirnstill]

Zitat:

Zitat von Hawkeye219

Warum eine unnötige Dummy-Variable mitschleppen oder gar eine Exception riskieren, die beim Arbeiten innerhalb der IDE nur stört. Die Funktion IsValidDate macht genau das, was Martin möchte: sie prüft die Gültigkeit eines übergebenen Datums ohne großen Overhead.

Gruß Hawkeye

Ab welcher Delphi-Version gibt es den DateUtils?

[Klaus01]

in Delphi 6 ist sie schon drin.

Grüße
Klaus

[TStringlist]

Zitat:

Zitat von Hawkeye219

Warum eine unnötige Dummy-Variable mitschleppen... Die Funktion IsValidDate macht genau das, was Martin möchte...

Wahrscheinlich *g*. Aber meistens sind die Ausgangssituationen doch gar nicht so explizit eng, wie sie vorher in einer Thread-Frage auch nur formuliert wurden. Durchaus wahrscheinlich auch, dass in der vorliegenden Situation eine (erfolgreiche) Eingabe dann auch gleich weiterverarbeitet werden soll...

Minimal größer gefasste Antworten können also u.U. durchaus auch mal ganz nützlich sein oder zumindest dem Frager noch zusätzlichen Überblick bringen.

[sancho1980]

so viele wege die nach rom führen ;)
aber isvaliddate is wohl das beste für meinen fall
dank euch
martin

[negaH]

Nochmal konkret auf die Frage des Engangspostings bezogen:

"wie kann ich die Gültigkeit eines Datums überprüfen wenn ich den Tag, Monat und Jahr als separate Werte besitze ?"

Er hat also schon Tag,Monat,Jahr vorliegen und IsValidDate() benötigt meiner Kenntniss nach einen TDateTime. Einen TDateTime bekommt man aus einem Tag,Monat,Jahr nur mit EncodeDate() oder besser noch TryEncodeDate().

TryEncodeDate() ist also die richtige Lösung meiner Meinung nach, wenn man eben Delphi 6 oder höher hat. Ich meine das bis Delphi 5 diese Funktion nicht existiert. Dann sollte man EncodeDate() mit einem try except schutzblock benutzen.

Gruß Hagen

[pszopp]

Stimmt ja Hagen, aber

Zitat:

Zitat von sancho1980

isvaliddate is wohl das beste für meinen fall

das sagt doch eigentlich alles...

Gruß,
pszopp

[negaH]

Ok habs gerade für D7 überprüft

Delphi-Quellcode:

function IsValidDate(const AYear, AMonth, ADay: Word): Boolean;

benutzt also Tag,Monat und Jahr, das wusste ich nicht.

Gruß Hagen