TDateTime auf null bzw. invalid setzen

[kagi3624]

Hallo, ich möchte meine TDateTime Variable bei einer ungültigen Eingabe auf Null, ungültig, was auch immer setzen, so dass wenn man diese variable ausgibt, der Bediener dann auch sieht, dass da was nicht stimmt. Wenn ich sie einfach auf 0 setze, habe ich 30.12.1899 mit der Uhrzeit 00:00:00,

[KodeZwerg]

Nutz doch einfach einen anderen Datentyp, sagen wir mal String. Bei korrekter Eingabe wird das TDateTime erzeugt und bei falschen halt einen String.
Oder nutz einen DatePicker, damit lässt Du eh nur korrekten krams zu, den kann man ja so einstellen das halt das aktuelle Datum voreingestellt ist.
Nur so eine Idee.

[hoika]

Hallo,

Zitat:

auf Null, ungültig, was auch immer setzen

Dann nimm doch einfach an, das 0 ungültig st,
schreib eine eigene DateToStr-Funktion, wo du das abprüfst.

[kagi3624]

Ja, da ich eine Funktion habe, setze ich das auf Null und mache es über eine IF abfrage. Kann man so machen, habe ich grad gesehen. Danke!

[Uwe Raabe]

Als NULL-Wert für ein TDateTime, der mit sehr hoher Wahrscheinlichkeit nicht mit einem realen Datumswert kollidiert, bietet sich -DateDelta an.

Delphi-Quellcode:

{ Days between 1/1/0001 and 12/31/1899 }

  DateDelta = 693594;

Das wäre dann auch der kleinste Wert, den ein TDateTime annehmen kann und noch als gültig durchgeht.

[mkinzler]

Zitat:

Nutz doch einfach einen anderen Datentyp, sagen wir mal String.

Ganz schlechte Alternative.

[Rollo62]

Ich (mis)brauche TDateTime für allerlei Dinge.
Auch z.B. für Stopuhr, Debounce, speziell formatierte Timestamps, etc.

Dafür habe ich mir einfach einen Helper geschrieben der das so umsetzt wie ich es brauche.
Der Vorteil ist das es intern und beim Speichern immer nur ein TDateTime ist und bleibt.