Probleme mit DB und Schleife

[alzaimar]

Rechne die Zeit in Sekunden um und vergleiche dann:

Delphi-Quellcode:

Function TimeToSeconds (aTime : TDateTime) : Integer;
Begin
  Result := Trunc (0.5 + Fract(aTime)*86400);
End;

Function TimeToMinutes (aTime : TDateTime) : Integer;
Begin
  Result := Trunc (0.5 + Fract(aTime)*1440);
End;

...
  If TimeToSeconds(Now) - TimeToSeconds(LastTime) >= 120 Then Begin // 120 Sekunden = 2 Minuten
    LastTime := Now;
    DoSomething;
  End;

// Oder 

  If TimeToMnutes(Now) - TimeToMinutes(LastTime) >= 2 Then Begin 
    LastTime := Now;
    DoSomething;
  End;