TTime manuell setzen?

[Nicolai1234]

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

[Sharky]

Zitat von Nicolai1605:

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

Hai Nicolai1605,
meinst Du so entwas

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;

[Jelly]

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

[Sharky]

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;

[Jelly]

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

[Jelly]

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

[Sharky]

Ähm....

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