Delphi: Wie ermitteln und leer TDatetime-Wert

Scheint es keine Möglichkeit gibt, weisen Sie NULL (entweder ein "nicht zugewiesene Wert" zu TDateTime Variablen.

Nur so, ich habe gedacht ist mit so etwas wie dieses:

function isNull(aDate : TDateTime) : boolean;
const NullDate = 0.0;
var aNullDate : TDatetime;
    ms : Int64;
begin
  aNullDate := NullDate;
  ms := MilliSecondsBetween(aDate,aNullDate);
  result := (ms = Int64(0));
end;

Gibt es jemand heraus, wer kennt eine bessere Lösung, was nicht überlappt 0 Datum Wert?

Sind negative TDateTime Werte gefährlich? (Als eine Ressource für die bisherigen zwecks)

  • Wenn Sie Vorhaben, diese Funktion zu verwenden, die war glaube ich, sicherlich NullDate sollte eine Globale Konstante?
  • Ich habe Probleme beim Vergleich einen null-Wert zugewiesen TDateTime-variable const-Wert 0. Ein einfaches wenn als dieser sich nicht überprüfen Sie den Zustand ` var v_datetime: TDatetime;` ` v_datetime := 0;` ` if (v_datetime = 0), dann actionToTake`
  • Das ist, weil der floating-point-fuzz. Verwenden Math.IsZero.
  • 0 ist ein perfekt gültiges Datum ist, und negativ, Termine sind völlig in Ordnung, als gut. 0 ist Mitternacht, am 30. Dez 1899. Negative zahlen sind Termine vor.
InformationsquelleAutor xsubira | 2013-02-20
  1. 14

    Wie Andreas schon schrieb, die TDateTime Typ ist tatsächlich double und somit auch nicht "nullable". Ich benutze 

    const
  c_UnassignedDate = -693594;

    für ein leeres Datum Wert da dies ein Unmögliches Datum der 00/00/0000. Aber z.B. DevExpress verwendet

    NullDate = -700000;
InvalidDate = NullDate + 1;

    Also scheint es keinen vereinbarten standard vale, sollten Sie wählen Sie eine, die passt zu Ihrem Bedarf.

    • Es ist kein Datum in dem Tag und Monat sind 0 (null). In der Datenbank, wenn das Datum nicht zugewiesene dann NULL verwendet werden sollten, nicht einige Magische Datum.
    • Ja, tut mir Leid. Rücknahme, suchte ich nur am Jahr Teil zu diesem Datum... Naja, wenn der Wert eines bestimmten Datum-Zeit-Spalte wird NULL und ich hätte Sie zum speichern dieser Wert strikt an eine TDateTime Bereich, würde ich wahrscheinlich verwenden Sie Ihre c_UnassignedDate Konstanten Wert. [+1]
    • Wie kommst du darauf, dass -693594 stellt das Datum dar, 0/0/0000?
    • Ich denke, da -693591 stellt 0000-01-03, -693592 stellt 0000-01-02, und -693593 stellt 0000-01-01 zumindest laut DateTimeToStr.
    • nur tun ShowMessage(FormatDateTime('dd.mm.yyyy',-693594)); und es öffnet sich die dlg mit 00.00.0000.
    • Wie jeder kleinere Wert. Meine Analyse zeigt, dass -693594 ist die größte negative ganze Zahl mit dieser Eigenschaft.

    InformationsquelleAutor ain
  2. 9

    Zuerst müssen Sie definieren, was Sie bedeutet "eine leere TDateTime Wert'.

    Einen TDateTime Wert ist ein double mit dem Datum kodiert, in den integer-Teil und die Zeit, die codiert in den gebrochenen Teil. So, die nächste Sache zu einer "null-Datum" können Sie erhalten, ist wahrscheinlich 0.

    Daher, einfach testen ADate <> 0 um zu testen, ob das Datum ist 'null'.

    Aber Vorsicht: wenn Sie erklären, eine TDateTime lokale variable, dann wird es nicht unbedingt =0 bevor Sie ihm einen Wert. Es kann alles sein. Natürlich, das gleiche gilt für Variablen vom Typ integer, double, boolean, ...

    Ich glaube auch, dass ein TDateTime mit Wert 0 kodiert das Datum 1899-12-30.

    Schließlich negative TDateTime Werte sind vollkommen normal. Zum Beispiel -5000 entspricht 1886-04-22.

    Ich nicht ganz den Punkt Ihres Codes. Wenn Sie verwenden möchten 0 als "nicht zugewiesen" - Wert (das ist schlecht, wenn Sie daran interessiert sind Termine in der Nähe 1899-12-30), warum nicht einfach

    function IsUnassigned(ADate: TDateTime): boolean;
begin
  result := ADate = 0;
end;

    oder möglicherweise (aber nicht gleich!),

    function IsUnassigned(ADate: TDateTime): boolean;
begin
  result := IsZero(Date);
end;

    In seiner Antwort, ain gab ein paar mehr vernünftige Entscheidungen für die "nicht zugewiesene Datum' Wert.

    • Negative Zeit datiert werden gegenstandslos, wenn sich schließlich der Kalender bricht.
    • Guter Punkt. So gibt es tatsächlich viele plausible Möglichkeiten für die 'unsassigned' Wert.
    • Wäre es nicht sinnvoll, NaN als ein expliziter Wert hier? Sie können dann verwenden Sie IsNaN test für die Bedingung.
    • Ja, das ist eine gute Idee.
    InformationsquelleAutor Andreas Rejbrand
  3. 1

    tDateTime ist nicht definiert für Werte zwischen 0 und -1, was bedeutet, dass ein tDateTime von -0.5 ist eine Undefinierte Wert und nützlich für eine null-Datum als alternative zu NaN. DateTimeToString zeigt -0.5 das gleiche wie +0.5;

    InformationsquelleAutor John Hillier
  4. 1

    Verwenden PDateTime statt TDateTime, und senden als null-Wert. Wenn kein Zeiger auf Wert, das Ergebnis nicht Wert.

    Überprüfen Wert Zugewiesen ptr :

    MyDatePointer := nil;
if ( Assigned(MyDatePointer)) then ...
    InformationsquelleAutor Eugene.LatDev
Schreibe einen Kommentar