Wie kann ich ttime über einen Befehl um eine Minute weiter nach vorne springen lassen?

Zitat von Nicolai1605:

Wie kann ich ttime über einen Befehl um eine Minute weiter nach vorne springen lassen?

Hai Nicolai1605,
meinst Du so entwas

markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  EineMinute : TTime;
  jetzt : TTime;
begin
  EineMinute := EncodeTime (0,1,0,0); // Eine Minute
  jetzt := Time;
  Label1.Caption := TimeToStr (jetzt); // Aktuelle Zeit
  Label2.Caption := TimeToStr (jetzt + EineMinute); // Aktuele Zeit + 1 Minute
end;

Die Zeitangabe bei TTime ist in Millisekunden. Also
EineMinute := EncodeTime (0,1,0,0) * 1000 ; // Eine Minute Gruß,
Tom

Zitat von Jelly:

Die Zeitangabe bei TTime ist in Millisekunden. Also
EineMinute := EncodeTime (0,1,0,0) * 1000 ; // Eine Minute Gruß,
Tom

Hai Tom,
wie kommst Du denn auf diese Idee? EncodeTime macht genau das was ihm gesagt wird.

Zitat von F1:

function EncodeTime(Hour, Min, Sec, MSec: Word): TDateTime;

Hallo,

ich lag sogar auch noch falsch
EncodeTime liefert dir eine Kommazahl, welche als Bruchteil eines Tages zu verstehen ist (z.B. bedeutet 0,5 -> 12 Uhr mittags). TTime benötigt aber die Anzahl an Millisekunden, also mehr so was:EinMinute := EncodeTime (0,0,1,0) * 24 * 60 * 60 * 1000 ; Gruß,
Tom

Oaahhhh... ich sollte die Beiträge ganz lesen... War die ganze Zeit dabei, den Zeitintervall von TTimer zu setzen (statt von TTime)... Ich geb einen aus bei Gelegenheit.

Gruß,
Tom

Ähm....

nicht falsch verstehen: Aber hast Du getestet was Du da schreibst? Mein Code oben ist richtig und funktioniert genauso wie beschrieben.