Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Delphi Negative TDateTime-Werte (https://www.delphipraxis.net/201624-negative-tdatetime-werte.html)

Codehunter 8. Aug 2019 10:25

Negative TDateTime-Werte
 
Hallo zusammen!

In meiner Anwendung wird viel mit TDateTime gearbeitet. Für interne Zwecke habe ich eine INVALID_DATE = 100 Konstante eingeführt, damit ich NULL-Werte innerhalb der DB in TDateTime abbilden kann. Ein INVALID_DATE = 0 hat sich als fehleranfällig herausgestellt, weil ein nicht initialisierter TDateTime auch = 0 ist.

Weil TDateTime bei ~ 1900 beginnt, bei uns aber keine Werte vor 1980 realistisch sind, habe ich 100 als INVALID_DATE gewählt, was dem 9.4.1900 entspricht. Allerdings frage ich mich ob ex vllt. klüger wäre, stattdessen -100 zu nehmen.

Eure Meinung?

Grüße
Cody

DieDolly 8. Aug 2019 10:31

AW: Negative TDateTime-Werte
 
Rein rechnerisch sind beide Werte gleich anfällig.
Wenn irgendwas falsch gerechnet wird und ein Datum für 100 oder -100 rauskommt, stehst du vor dem selben Problem.

Das ist aber höchst unwahrscheinlich. Ich würde -100 nehmen.

freimatz 8. Aug 2019 11:28

AW: Negative TDateTime-Werte
 
Wie wäre es mit NaN?

Was bedeuetet bei dir invalid? Ist ein nicht initialisierter TDateTime nicht auch invalid? Wo ist der Unterschied?

Schokohase 8. Aug 2019 11:40

AW: Negative TDateTime-Werte
 
Warum nicht einen
Delphi-Quellcode:
Nullable<TDateTime>
nehmen?

Sowas gibt es bei Spring4D.

Und bevor das Geschrei wieder laut wird (zu groß, zu was weiß ich), das kann man auch per copy-paste in eine eigene Unit schieben und schon ist es nicht mehr (gefühlt) zu groß.

Der schöne Günther 8. Aug 2019 11:56

AW: Negative TDateTime-Werte
 
Wollte ich auch grade sagen. Mit solchen magische Konstanten wird man nie glücklich. Jeder muss sie kennen und richtig einsetzen. Und so ein Nullable<T> ist ja trivial genug (solange es nur ein TDateTime und z.B. kein TObject ist) um es sich grade selbst zusammenzukloppen.

Wenn eine dumme Datenbank nullbare Werte haben kann, dann sollte deine Hightech-Anwendung 😎 das auch können.

TigerLilly 8. Aug 2019 11:58

AW: Negative TDateTime-Werte
 
Zitat:

Zitat von Schokohase (Beitrag 1440182)
das kann man auch per copy-paste in eine eigene Unit schieben und schon ist es nicht mehr (gefühlt) zu groß.

Das ist aber nicht die feine Art. Use it or leave it. But don´t steal it.

DieDolly 8. Aug 2019 11:59

AW: Negative TDateTime-Werte
 
An der Stelle würde ich lieber auf die null-Typen von Delphi warten die in 20 Jahren kommen sollen statt irgendwas von Spring4D zu nehmen.

Schokohase 8. Aug 2019 12:18

AW: Negative TDateTime-Werte
 
Zitat:

Zitat von TigerLilly (Beitrag 1440193)
Zitat:

Zitat von Schokohase (Beitrag 1440182)
das kann man auch per copy-paste in eine eigene Unit schieben und schon ist es nicht mehr (gefühlt) zu groß.

Das ist aber nicht die feine Art. Use it or leave it. But don´t steal it.

Aber ohne eine Funken Ahnung Leute anhupen ist die feine Art?

Apache-Lizenz
Zitat:

  • Man darf Software unter dieser Lizenz frei in jedem Umfeld verwenden, modifizieren und verteilen.
  • Änderungen am Quellcode der unter der Apache-Lizenz stehenden Software müssen nicht zum Lizenzgeber zurückgeschickt werden.
  • Eigene Software, die unter Apache-Lizenz stehende Software verwendet, muss nicht unter der Apache-Lizenz stehen.


Codehunter 8. Aug 2019 12:23

AW: Negative TDateTime-Werte
 
Oh man, sag mir einer Bescheid wenn sich der Rauch hier verzogen hat.

TigerLilly 8. Aug 2019 13:22

AW: Negative TDateTime-Werte
 
@Schokohase: Dann lies die Apache Lizenz zur Gänze - die Erlaubnis für schlichtes Copy/Paste wird du dort nicht finden.

hoika 8. Aug 2019 14:06

AW: Negative TDateTime-Werte
 
Hallo,
Zitat:

Ein INVALID_DATE = 0 hat sich als fehleranfällig herausgestellt, weil ein nicht initialisierter TDateTime auch = 0 ist.
In der Datenbank muss man unterscheiden zwischen 0.0 (AsDateTime) oder einem wirklichen NULL (IsNull).

In deinem Delphi-Code hast du doch freie Hand.
Ob das 0.0 oder -100.0 ist, spielt doch keine Rolle, das ist deine eigene Definition.

"Nicht initialisiert" (e) Variable ist aber was ganz anderes.
Das ist (d)ein Programmfehler.

Wir haben in einem unserer ooooold legacy Programm übrigends 2.0 als Grenze benutzt.
<=2.0 = 0.
Das ganze als Funktion und gut (oder schlecht) ist .

Uwe Raabe 8. Aug 2019 14:39

AW: Negative TDateTime-Werte
 
Ein
Delphi-Quellcode:
TDateTime
ist als gültig definiert zwischen dem 01.01.0001 und dem 31.12.9999. Alles andere kann als NULL-DateTime verwendet werden.

Den Tag vor dem 01.01.0001 bekommt man übrigens mit
Delphi-Quellcode:
-DateDelta
erreichen. Ein solches Datum wird dann von
Delphi-Quellcode:
DateTimeToStr
als 00.00.0000 dargestellt.

Rollo62 8. Aug 2019 15:57

AW: Negative TDateTime-Werte
 
Zitat:

Zitat von freimatz (Beitrag 1440180)
Wie wäre es mit NaN?

Was bedeuetet bei dir invalid? Ist ein nicht initialisierter TDateTime nicht auch invalid? Wo ist der Unterschied?

Generell, nicht nur für DateTime:
Ich bin mittlerweile auch ein Freund von NaN geworden, und baue meine Rountinen nach und nach
auf "NaN" und "Infinity" Sicherheit aus.
Diese Konstanten sind ja per System vorgegeben, und sollten eindeutig sein.

Ansonsten ist aber auch Spring4D eine überzeugenden Lösung.

Codehunter 8. Aug 2019 16:42

AW: Negative TDateTime-Werte
 
NaN scheidet aus, denn der ist auch nur wieder 0.0 und damit bei TDateTime = 30. Dezember 1899 12:00 Uhr. Und JA, nicht initialisiert und INVALID sind in meinem Fall zweierlei. Das ist aber sehr fallspezifisch.

Zitat:

Zitat von Uwe Raabe (Beitrag 1440246)
Ein
Delphi-Quellcode:
TDateTime
ist als gültig definiert zwischen dem 01.01.0001 und dem 31.12.9999. Alles andere kann als NULL-DateTime verwendet werden.

Den Tag vor dem 01.01.0001 bekommt man übrigens mit
Delphi-Quellcode:
-DateDelta
erreichen. Ein solches Datum wird dann von
Delphi-Quellcode:
DateTimeToStr
als 00.00.0000 dargestellt.

Das ist interessant. Wusste ich auch noch nicht. Ebenso wie die Hilfe, die kennt "DateDelta" auch nicht. Dann wäre ein wirklich INVALIDer Wert
Delphi-Quellcode:
INVALID_DATE = -DateDelta - 1
?

Rollo62 8. Aug 2019 17:11

AW: Negative TDateTime-Werte
 
NaN ist SOWAS WIE 0.0, aber nicht gleich 0.0.
Delphi-Quellcode:
Nan is equivalent to 0.0/0.0

Uwe Raabe 8. Aug 2019 17:54

AW: Negative TDateTime-Werte
 
Zitat:

Zitat von Codehunter (Beitrag 1440265)
Dann wäre ein wirklich INVALIDer Wert
Delphi-Quellcode:
INVALID_DATE = -DateDelta - 1
?

Stimmt zwar, aber
Delphi-Quellcode:
-DateDelta
ist ebenso invalide und etwas einfacher zu schreiben. Dazu kommt noch, daß dieser Wert in Single, Double und Extended exakt darstellbar ist.

samso 9. Aug 2019 08:56

AW: Negative TDateTime-Werte
 
Zitat:

Zitat von Uwe Raabe (Beitrag 1440283)
Zitat:

Zitat von Codehunter (Beitrag 1440265)
Dann wäre ein wirklich INVALIDer Wert
Delphi-Quellcode:
INVALID_DATE = -DateDelta - 1
?

Stimmt zwar, aber
Delphi-Quellcode:
-DateDelta
ist ebenso invalide und etwas einfacher zu schreiben. Dazu kommt noch, daß dieser Wert in Single, Double und Extended exakt darstellbar ist.

...und das -DateDelta auch sehr schön mit TTimestamp harmoniert (TTimestamp.Date=0)


Alle Zeitangaben in WEZ +1. Es ist jetzt 22:01 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz