Countdown

[alcaeus]

Ok, ich hab mich nicht ganz gut ausgedrückt, deshalb gibts jetzt Source:

Delphi-Quellcode:

var
  CTime, Diff: TDateTime;
  Days: Integer;
  Time: String;
begin
  CTime := Now;
  Diff := Trunc(ZielDatum)+Frac(ZielUhrzeit)-CTime;
  Days := DaysBetween(CTime,Trunc(ZielDatum)+Frac(ZielUhrzeit));
  Time := TimeToStr(Frac(Diff));
end;

Ich hoffe das war was du meinst, und wegen dem 23:59 Stunden Beispiel, hier sind Werte:
Days wird 0 sein
Time wird '23:59x' sein