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!

[mkinzler]

Du könntest den String auch manuell zerlegen und nur den Zeitwert betrachten.

[hirnstroem]

Daran habe ich auch gedacht. Wobei es ja etwas unschön wäre, etwas bereits vorhandenes durch Gebastel zu immitieren. Aber wenn es sich, wenn ich das nächste mal daran arbeite, immer noch so (mir) unerklärlich verhalten sollte, werde ich dies natürlich in Betracht ziehen.

Dankeschön, es grüsset der hirnstroem

[hirnstroem]

So, jetzt reicht es. Selbst wenn ich einen String in eine Zeit umwandeln möchte geht dies nicht. StrToTime('12:00:00') z.B. liefert immer 0 als Ergebnis. Ich habe langsam sämtliche Varianten ausprobiert, immer 0, alles 0.

[marabu]

Guten Morgen,

StrToTime('12:00:00') liefert 0.5 - wenn du allerdings wie in deinem ersten Beitrag Trunc() darauf anwendest, dann erhältst du für jeden Zeitwert immer 0. Wenn du einen Zeitpunkt (Datum und Zeit) in deinem Datenbankfeld speicherst, sollte es so funktionieren:

Delphi-Quellcode:

with Table do
  if DateUtils.SecondsBetween(FieldByName('Time').AsDateTime, Now) >= 15 then
    { do as you like };

Grüße vom marabu

[hirnstroem]

Den habe ich auch bereits ausprobiert, will auch nicht funktionieren.

Ich schreibe jetzt einfach in die Datenbank rein, wieviele Sekunden seit dem Programmstart vergangen sind (Integer) und Rechne dann damit anstatt mit der Zeit....

Danke für eure Bemühungen!