Zeit + Datenbank + grosses Durcheinander

[hirnstroem]

'loha Folks,

in einer Access Datenbank ist die Zeit eines bestimmten Ereignisses abgespeichert. Ich möchte nun verhindern, dass das nächste Ereignis frühestens nach 15 Sekunden eingetragen werden kann (alle Ereignisse dazwischen werden verworfen).

Nun schaffe ich es nicht zu überprüfen ob die 15 Sekunden bereits vorbei sind oder nicht.

Den folgenden Code führe ich aus, sobald ich überprüfen möchte ob 15 Sekunden vergangen sind:

Delphi-Quellcode:

  StringTime := FieldByName('Time').Value; // StringTime schaut dann so aus '10.02.2007 11:08:31' und ist auch wirklich ein String

Mit der StrToDateTime Routine sollte es ja jetzt möglich sein, den String in ein Datum mit Zeit zu "convertieren" und mit Trunc sollte sich doch dann auch die Zeit extrahieren lassen, also etwas in dieser Art:

Delphi-Quellcode:

  EntryTime := Trunc(StrToDateTime(StringTime));

EntryTime ist aber stets 0 und ich weiss nicht wie weiter. Hilfe?!?

[chericks]

Sitze gerade im Internetcafe und habe somit kein Delphi zur Hand, aber versuch es mal mit:

var
EntryTime:tdatetime;
begin
EntryTime:= FieldByName('Time').asdatetime;

if EntryTime+((1/24/60/60)*15)>=now then
begin
//neuer Datensatz darf angelegt werden
end;
end;

[ManuelR]

Hallo,

so müsste es gehen (ungetestet)

if (now - FieldByName('Time').asdatetime) > (15/(60*60*24)) then
15 sekunden vorbei

[hirnstroem]

Irgendwie scheitert die Sache schon bei...

Delphi-Quellcode:

  EntryTime:= FieldByName('Time').AsDateTime

EntryTime ist immer 0. Aber wie gesagt...

Delphi-Quellcode:

  StringTime := FieldByName('Time').Value; // StringTime schaut dann so aus '10.02.2007 11:08:31' und ist auch wirklich ein String

^^ das funktioniert dann aber wieder.

[mkinzler]

Welchen Typ hat Time in der Datenbank?

[hirnstroem]

Time ist in der Datenbank als Datum/Uhrzeit deklariert.
Format: Zeit, lang (00:00:00;0;_)

Soll ich die Zeit als Text in der Datenbank abspeichern?

[mkinzler]

Nein, es sieht aber aus, als sei es als Text gespeichert.

[hirnstroem]

Also, weder in der Felddefinition (ADO) noch in der Access-Datenbank wird die Zeit als Text verwertet.

Datum/Uhrzeit <- etwas anderes gibt es in Access nicht
ftDateTime <- ist die Definition des Feldes ADO-Seitig

[mkinzler]

Dann versuch mal den Wert des Feldes direkt einer Time-Variablen zuzuweisen

[hirnstroem]

Auch dann ist die "EntryTime" stets 0. Wahrscheinlich liegt es daran, dass ich irgendetwas übersehe. Werde einmal darüber schlafen und dann das Ganze nochmals versuchen.

Vielen Dank soweit!