|
Registriert seit: 18. Feb 2006
Ort: Stolberg
2.227 Beiträge
Delphi 2010 Professional
|
Re: Differenz 2erDatum in Tmemo
25. Mai 2006, 13:06
Hallo danku,
vielleicht hilft dir auch der folgende Code:
Delphi-Quellcode:
procedure Demo;
var Wecken : TDateTime;
Restzeit : Real;
s : string;
begin
Wecken := Today + StrToTime('17:00');
Restzeit := Wecken - Now;
if (Restzeit < 0) then
s := 'abgelaufen vor %d Tag(en) %s Stunden'
else
s := 'noch %d Tag(e) %s Stunden';
ShowMessage (Format(s, [Trunc(Abs(Restzeit)), TimeToStr(Frac(Restzeit))]));
end;
Gruß Hawkeye
|