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.