Also würdest du das so machen?
Delphi-Quellcode:
...
function DateTimeToStr2(dt: TDateTime; daySep: string): string;
begin
Result := Format('%d%s%s', [Trunc(dt), daySep, TimeToStr(dt)])
end;
begin
WeckTime:= edhours.Text + ':' + edmin.Text + ':' + edseconds.Text ;
WeckDate:= cbdatum.Text;
DecodeTime(Time, aStd, aMin, aSec, aMsec);
Uhrzeit_Ende := StrToDate(WeckDate) + StrToTime(WeckTime);
Wecktime:=Timetostr(Uhrzeit_Ende);
Uhrzeit_Verbleib := Now - Uhrzeit_ende;
DateTimeToStr2(Uhrzeit_Verbleib,WeckTime); //parameter funzen aber nich 100%
Buffer := timetostr(Uhrzeit_Verbleib);
if Uhrzeit_Ende > Time then
begin
Std := copy(Buffer, 1,2);
Min := copy(Buffer, 4,2);
Sec := copy(Buffer, 7,2);
bsec := strtoint(Sec) +1;
mehours.text:=std;
memin.Text:=min;
meseconds.text:=inttostr(bsec);
end
else
begin
Std := copy(Buffer, 1,2);
Min := copy(Buffer, 4,2);
bstd := 23-strtoint(std);
bmin := 59-strtoint(min);
if asec >0 then
bsec := 60-asec
else
bsec := 0;
mehours.text:=inttostr(bstd);
memin.Text:=inttostr(bmin);
meseconds.text:=inttostr(bsec);
end;
...
man kann die datetimetostr2 doch auch anders machen?
//einen tag höher setzen
if (Wecktime) < TimeToStr(now)
then cbdatum.ItemIndex:= 1;
Problem aber weiterhin Weckzeit in Abhängigkeit vom Weckdatum