hm. ich habe ein problem wenn die real-time vor 24:00 (00:00) ist und der benutzer als weckzeit bspw. 00:30 einstellt. wie kann ich das problem wo in der methode lösen?
Delphi-Quellcode:
procedure Tfmclock.timerzeitTimer(Sender: TObject);
...
//////// ZEITDAUER IN MIN///////////////////////////////////////
procedure ShowRemainingTime2(dtAlarm2: TDateTime);
var s: String;
dtRemaining2: TDateTime;
hours2, mins2, secs2, msecs2: Word;
begin
// DecodeTime(Time, aStd, aMin, aSec, aMsec);
// Uhrzeit_Ende := StrToDate(WeckDate) + StrToTime(WeckTime);
// Wecktime := Timetostr(Uhrzeit_Ende);
// Uhrzeit_Verbleib := Now - Uhrzeit_ende;
dtRemaining2:= dtAlarm2 - Now;
DecodeTime(dtRemaining2, hours2, mins2, secs2, msecs2);
hours2 := hours2 + 24 * Trunc(dtRemaining2);
meHours.Text := IntToStr(hours2);
meMin.Text := IntToStr(mins2);
meSeconds.Text := IntTostr(secs2);
end;
begin
...