String To Int/Time

[shmia]

Delphi-Quellcode:

const ONE_MINUTE = 1.0 / (24.0 * 60.0);
var
  Zeit, zeit2: TDateTime;
begin
  zeit := StrToTime('12:01:00');
  zeit2 := zeit + 29.0 * ONE_MINUTE;  // 29 Minuten dazu
  ShowMessage(TimeToStr(zeit2));      // sollte 12:30:00 rauskommen