Thema: Delphi [Zeit] 30min aufzählen

Einzelnen Beitrag anzeigen

SimStar001

Registriert seit: 18. Jan 2008
594 Beiträge
 
#3

Re: Zeitproblem

  Alt 11. Okt 2008, 07:28
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!
Marco Tröger
  Mit Zitat antworten Zitat