Kleines Beispiel-Prog:
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
| procedure TForm1.Button1Click(Sender: TObject);
var
Zeit : TTime;
begin
Zeit := Now;
Edit1.Text := TimeToStr(Zeit);
Zeit := Zeit + EncodeTime(0,0,1,0);
Edit2.Text := TimeToStr(Zeit);
Zeit := Zeit + 0.0000115740740740741;
// = 1Tag / 24Std / 60Min / 60Sek
Edit3.Text := TimeToStr(Zeit);
end; |
Wobei ich das mit dem EncodeTime bevorzugen würde, weil Du sonst erstens nicht mehr weist was 0,0000115... bedeutet, und zweitens eventuell Rundungsfehler auftreten.
Das mit dem Zerlegen in String und wieder setzen als Zeit ist umständlich und Fehleranfälliger.
Ok, war auch zu langsam...
"Der Mensch ist nicht was er sich vorstellt oder wünscht zu sein, sondern das was andere in ihm sehen."
