Thema: Delphi Zeitversetzt senden

Einzelnen Beitrag anzeigen

Thomas F

Registriert seit: 3. Sep 2008
Ort: Nürnberg
281 Beiträge
 
Delphi 2005 Architect
 
#7

Re: Zeitversetzt senden

  Alt 16. Dez 2008, 17:54
Zitat von DeddyH:
In 15 Minuten -> Timer.Interval := 15000, zu einer bestimmten Uhrzeit könntest Du im Timer die aktuelle Zeit pollen und vergleichen (natürlich mit einer gewissen Toleranz).
Delphi-Quellcode:
procedure TForm1.Zeitversetzt_Senden;
var Systemzeit,Systemzeit_Datum,Versende_Zeit_Datum,Versende_Zeit,Differenz:TDatetime;
begin
Systemzeit:=Time;
Systemzeit_Datum:=Date;
Versende_Zeit:= Datetimepicker2.Time;
Versende_Zeit_Datum:=Datetimepicker1.Date;
If Systemzeit_Datum = Versende_Zeit_Datum then
Differenz:= Versende_Zeit - Systemzeit;
end;
aber wie rechnet man die Differenz in Timer1.Intervall um , wenn Timer1.Intervall:=1000 ist ?????
Gruß

Thomas
  Mit Zitat antworten Zitat