Mit Uhrzeit rechnen?

[TheMiller]

Hallo Delphianer,

gibt es eine spezielle Funktion oder einen Code, der bewerkt, dass das Rechner mit dem Uhrzeitformat rechnet? Also z.B bei der Rechnung 21:00 + 5 Stunden nicht bei 26 Stunden, sondern bei 02:00 steht.

Danke im Voraus

DJ-SPM

[Chewie]

Das müsste gehen:

Delphi-Quellcode:

function CalcHour(OldHour, AddHour: Integer): Integer;
begin
  Result := OldHour + NewHour - (Result div 24);
end;

Aufruf so:
CalcHour(21, 5); //gibt 2 zurück

[Luckie]

Besser:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  OldTime, NewTime: TDateTime;
begin
  OldTime := Time;
  NewTime := OldTime + 24 / 24;
  ShowMessage(TimeToStr(NewTime));
end;

Siehe dazu auch die Hilfe zu TDateTime.

Zitat:

The integral part of a TDateTime value is the number of days that have passed since 12/30/1899. The fractional part of a TDateTime value is fraction of a 24 hour day that has elapsed.