Überprüfen ob DateTime's mind. 20min. auseinander liegen?

[NikoMitDaMacht]

Wie kann ich herausfinden ob zwei tdatetime mindenstens 20 minuten auseinander liegen

Danke

[Dax]

Du könntest dir einen DateTime-Wert konstruieren, der genau die Zeitdifferenz von 20 Minuten beschreibt (mit EncodeDateTime oder EncodeTime) und dann checken, ob die Differenz deiner beiden Werte größer oder gleich des Rückgabewerts dieser Funktionen ist. Ist sie größer oder gleich, liegen die zwei Zeiten 20 Minuten oder mehr auseinander.

[Bernhard Geyer]

Delphi-Quellcode:

Abs(Time1-Time2) > (1/(24*3))

1 s entspricht 1 / (24*60*60)
1 Tag enstspricht 1

[NikoMitDaMacht]

Geht dass nicht etwas einfacher dass ist mir n bissl zu hoch :duck:

[jfheins]

Delphi-Quellcode:

if Datum2 - Datum1 > 0,013888888888888888888888888888889 then ...
else ...

0,013888888888888888888888888888889 ist der Bruchteil eines Tages, der 20 min entspricht ...

P.S. TDateTime

ADD:Och menno, zu spät ... http://dpchat.dpexperte.de/smileys/icon_mecker.gif
Warum muss ich auch immer das Browserfenster solange minimiert haben ...

[NikoMitDaMacht]

@jfheins:
Wie hast du dass ausgerechnet: 0,013888888888888888888888888888889 ?

[Alexander]

Zitat:

Zitat von NikoMitDaMacht

@jfheins:
Wie hast du dass ausgerechnet: 0,013888888888888888888888888888889 ?

(1/(24*3) ;)

Aber ich würde das berechnen lassen, sonst kommt später wieder solch eine Frage, wenn man sich den Quelltext in ein paar Wochen wieder anschaut ;)

[Bernhard Geyer]

Zitat:

Zitat von NikoMitDaMacht

@jfheins:
Wie hast du dass ausgerechnet: 0,013888888888888888888888888888889 ?

(1/(24*3)) oder 1/(24*60*60) * (60*20)

24*60*60 -> 1 Tag hat 24 Stunden mit jeweils 60 Minuten und 60 Sekunden
60*20 -> Du benötigst 20 Minuten d.h. 20 * 60 Sekunden

[NikoMitDaMacht]

Danke jetzt habb ichs gerafft!
Aber Das Datum spielt auch eine große rolle.
Das programm darf sich 20 minuten nach dem beenden nicht mehr öffnen lassen. Wenn dass datum nicht in die rechnug mit "eingebunden" ist kann es doch sein dass sich das prog am nächsten tag nicht öffnen lässt , oder?

[Sprint]

Zitat:

Zitat von NikoMitDaMacht

Wie kann ich herausfinden ob zwei tdatetime mindenstens 20 minuten auseinander liegen

In der Unit DateUtils gibt es die Funktion MinutesBetween. Damit sollte es wohl gehen.