Mit Uhrzeit rechnen?
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 |
Re: Mit Uhrzeit rechnen?
Das müsste gehen:
Delphi-Quellcode:
Aufruf so:
function CalcHour(OldHour, AddHour: Integer): Integer;
begin Result := OldHour + NewHour - (Result div 24); end;
Delphi-Quellcode:
CalcHour(21, 5); //gibt 2 zurück
|
Re: Mit Uhrzeit rechnen?
Besser:
Delphi-Quellcode:
Siehe dazu auch die Hilfe zu TDateTime.
procedure TForm1.Button1Click(Sender: TObject);
var OldTime, NewTime: TDateTime; begin OldTime := Time; NewTime := OldTime + 24 / 24; ShowMessage(TimeToStr(NewTime)); end; Zitat:
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 08:34 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz