TDateTime vergleichen?

[finalr]

Hi,

ich möchte gerne 2 TDateTime Werte(Format: 2008-1-30 12:01:47) vergleichen.
z.B. in der Art:

Delphi-Quellcode:

var Datum1, Datum2: TDateTime;
begin
 if Datum1 > Datum2 THEN
 BEGIN
   // blub blub
 END;
end;

Aber das funktioniert nicht wirklich. Jemand einen Vorschlag?

Gruss Daniel

[mkinzler]

Zitat:

TDateTime Werte(Format: 2008-1-30 12:01:47)

Nein TDateTime sind Double

Was geht nicht?

[finalr]

Naja, es funktioniert allgemein nicht, wenn ich mir z.B. mit if Datum1 <> Datum2 then ShowMessage('lol'); nur alle unterschiedlichen Datumswerte anzeigen lassen möchte.

Da gibt er mir jedes Datum aus auch wenn sie gleich sind!

[Bernhard Geyer]

Zitat von finalr:

Da gibt er mir jedes Datum aus auch wenn sie gleich sind!

Gleichheitsvergleich bei Doublewerten ist schwer. Entweder du wandelst sie in Strings um Format('yyyy-mm-dd hh:nn', Datum1) um maximal auf Minuten zu vergleichen oder du definierst eine Schwelle (Abs(Datum1-Datum2) > (1/24*60*60) ... wenn unterschied maximal 1 Sekunde betragen darf).

[DelphiKlaus]

Hallo,

und was funktioniert an dem Vergleich nicht? Probleme gibt's nur beim Vergleich auf Gleichheit, weil, wie mkinzler schon schrieb, TDateTime-Werte letztendlich Double-Werte sind. Da kannst Du z.B. mit einem Epsilon arbeiten:

Delphi-Quellcode:

  if (Datum1 > Datum2 - 1.0 / SecsPerday) and (Datum1 < Datum2 + 1.0 / SecsPerday) then
    ShowMesssage ('Die Werte sind wohl gleich')

MfG

Klaus

[RavenIV]

TDateTime wird intern als Double verwaltet.
Hierbei ist der Teil vor dem Komma der Datumsanteil, der Rest ist der Zeitanteil.

Somit kannst Du TDateTime-Variablen voneinander abziehen oder addieren.

Für mehr Information schau doch bitte die Delphi-Hilfe an.

[finalr]

ok, danke für die netten Hilfe...

[squetk]

DateUtils.pas :
function CompareDateTime(const A, B: TDateTime): TValueRelationship;