Vergleich von 2 TDateTime's

[BackOrifice]

Nabend.

Ich habe hier ein Datum, welches größergleich einem StartDatum und kleinergleich einem Enddatum sein muss. Dazu benutze ich eine Funktion IsValidDate.

Delphi-Quellcode:

function TSemesters.IsValidDateToSemester(SemesterId: TSemesterID;
  Date: TDateTime): Boolean;
var SemesterInfo : TSemesterValue;
begin
  ... // SemesterInfo ist ein Record. SemesterBegin und SemesterEnd vom Typ TDate
  Result := (Date - SemesterInfo.SemesterBegin >= 0.0) and
    (SemesterInfo.SemesterEnd - Date >= 0.0)
end;

Nun weiß ich ja, dass ein direkter >=, <=, == Vergleich mit Gleitkommazahlen kritisch ist. Aber TDates belegen doch eh nur die Vorkommastelle und daher müsste ein Vergleich >= funktionieren - oder?
Vllt denke ich auch falsch. Ich bräuchte nur ein kurzes Feedback.

Thanks.

[omata]

Schau dir doch mal CompareDateTime in der Unit DateUtils an.

[HaJo]

Du kannst einen beliebigen Datums/Zeit Wert in eine signifikante Zahl umwandeln. Somit ist ein Vergleich zweier Datumswerte unzweifelhat möglich

[BoolString]

Die Überlegung ist zwar grundlegend richtig, aber aus den von dir bereits genannten Gründen sollte der Vergleich auf Datumswerte kein Problem darstellen.

Erstmal handelt es sich beim TDATE Wert um den Vorkommaanteil; und der wird präzise genug abgebildet. Außerdem hast du ja keine Prüfung auf Gleichheit, sondern auf auf 'Größer Gleich'. Nichts anderes tut man ja auch beim Vergleich zweier Floats; schauen, ob die Differenz zweier Werte Größer/Kleiner als eine gewisse Toleranz ist. Spannender wäre es, wenn du versuchen würdest Daten unterhalb von Millisekunden zu vergleichen.

Also meiner Meinung nach ist dies durchaus legitim und dürfte auch keine Probleme geben (mache es selbst so ;-)

Jan

[hoika]

Hallo,

das Problem tritt dann auf,
wenn du einen Tag z.B. über eine Addition von Stunden erzeugst.
In Abhängigkeit der jeweiligen Stunden gibt es Rundungsprobleme.

StrToTime('08:00')+StrToTime('08:00')+StrToTime('0 8:00')

ergibt z.B. nicht genau 1.0 (24h = 1 Tag)

Da hilft dann DateOf von Jedi.


Heiko

[mkinzler]

Oder einfach Trunc( <DateTime>)

[Chemiker]

Hallo BackOrifice,

TDate = TDateTime= Double

TDate belegt nicht nur die Vorkommastellen, sondern ist ein Type der Double entspricht und nur der bessern Lesbarkeit des Quellcodes dient.

Zitat:

Zitat von omata

Schau dir doch mal CompareDateTime in der Unit DateUtils an.

omata hat die Lösung schon angegeben.

Bis bald Chemiker

[alzaimar]

Zitat:

Zitat von HaJo

Du kannst einen beliebigen Datums/Zeit Wert in eine signifikante Zahl umwandeln. Somit ist ein Vergleich zweier Datumswerte unzweifelhat möglich

Ein TDateTime ist bereits eine Zahl, nämlich Double, also muss man nichts umwandeln. :zwinker:.

[Chemiker]

Hallo hoika,

vielleicht habe ich das ja nicht richtig verstanden, aber bei mir kommt 1 raus.

Delphi-Quellcode:

cStd:= StrToTime('08:00')+StrToTime('08:00')+StrToTime('08:00');
edDatumAus.Text:= FloatToStr(cStd);

Bis bald Chemiker

[mkinzler]

Zitat:

Zitat von Chemiker

Hallo hoika,

vielleicht habe ich das ja nicht richtig verstanden, aber bei mir kommt 1 raus.

Delphi-Quellcode:

cStd:= StrToTime('08:00')+StrToTime('08:00')+StrToTime('08:00');
edDatumAus.Text:= FloatToStr(cStd);

Bis bald Chemiker

Durch das StrToTime() erzeugst du auch einen geanuen Wert. Bei TDateTime-Werten in der Praxis ist das oft nicht so.