[Zeit] 30min aufzählen

[SimStar001]

ich würde es so machen:

Delphi-Quellcode:

function GetNewTime(Zeit : TTime; IncMinuten : integer):TTime;
var Hour, Minute, Sek, mSek : word;
begin
  DecodeTime(Zeit,Hour,Minute,Sek,mSek);
  Minuten := IncMinuten + Minuten;
  result := EncodeTime(Hour,Minuten,Sekunden,mSek);
end;

Ich bin mir aber gerade net sicher, die EncodeFunktion Minuten > 59 auch richtig umwandelt und dann dementsprechend die H hochsetzt.
Einfach mal ausprobieren!