DateTime - 10 Sekunden

[se0man]

Hallo,
nachdem ich mich jetzt lange genug herumgeärgert habe,
stelle ich meine Frage nun doch als neuen Thread ein:

Und zwar möchte ich,
das wenn der User z.B. 29.05.2004 15:00:00 angibt,
das mein THEN-Ereignis des IF-Clause am
30.05.2004 um 14:59:50 ausgeführt wird.
Ich will also von meinem/r TDATETIME
10 Sekunden abziehen.

WIE?? :wall:

thx, se0man

[alcaeus]

Du zählst den entsprechenden Wert für eine Sekunde Mal 10 ab. Eine Sekunde ist einfach 1/86400. Begründung: Ein Tag entspricht 1 als DateTime. Eine Minute hat 60 Sekunden, eine Stunde 60 Minuten und Tag 24 Stunden. Das gibt 60*60*24, also 86400. Das sind die Sekunden in einem Tag, also dürfte der Rest wohl von alleine kommen...

Greetz
alcaeus

[se0man]

thxxx

Mein einziges Problem war nur,
dass ich 1.1574074074074074074074074074074e-5
statt 1/86400 benutzte.
Kam mir sehr komisch vor.
Habe mal wieder zu wenig gedacht. Sorry. :oops:

Naja, also der Code:

Code:

if (StrToDateTime(edtDate.Text+' '+edtTime.Text)+(1/86400) = Now)
 then begin
  { Ereignis }
 end;

Ciao,
-se0man

[alcaeus]

Also, verwende beim Vergleich mit Now nach Möglichkeit nicht =, da die Genauigkeit des DateTime-Wertes jene eines Timers überschreitet. Verwende stattdessen >=:

Delphi-Quellcode:

if (StrToDateTime(edtDate.Text+' '+edtTime.Text)-(1/8640) >= Now) then 
begin
  //Dein Code
end;

Sobald der Zeitpunkt überschritten ist, wird der Code durchgeführt. Du hast außerdem den falschen Wert addiert, du willst ja die 10 Sekunden abzählen... :mrgreen:
Achja, ein kleiner Tipp: Sieh dir Mal DateTimePicker an (Paletter Win32).

Greetz
alcaeus

[se0man]

DateTimePicker verwende ich bereits. THX
Das war nämlich kein Copy&Paste Code,
was auch den 10 -> 1 sowie den = -> <=
Fehler erklärt. :mrgreen:

Ansonsten nochmal thxx
-se0man

[The-X]

Oder man verwendet die funktion IncSecond der Unit SysUtils :

Delphi-Quellcode:

if (IncSecond(StrToDateTime(edtDate.Text+' '+edtTime.Text),-10) >= Now) then 
begin
  //Dein Code
end;

[edit: Text vergessen :roll:]