Dienstzeitende Rechner

[glkgereon]

also spontan würde ich das so machen:

Delphi-Quellcode:

procedure Form1.Timer1OnTimer(Sender: TObject);
var Eintritt, Ende, Bisher, Rest: TDateTime;
    sBisher, sRest: String;
begin
  Eintritt:=StrToDateTime(Edt_Eintritt.Text);
  Ende:=StrToDateTime(Edt_Ende.Text);
  Bisher:=Date - Eintritt;
  sBisher:=DateToStr(Bisher);
  RestDauer:=Ende - Date;
  sRest:=DateToStr(RestDauer);
  Lbl_Anzeige.Caption:='Gedient: '+sBisher+', Rest: '+sRest;
end;

das ganze könnte man dann noch in die Wortform bringen, zb hiermit (nicht optimal vermute ich, aber es sollte gehen):

Delphi-Quellcode:

uses DateUtils;

function TimeSpan2HumanReadeable(Start, Stop: TDateTime):String;
begin
  Result:=IntToStr(YearsBetween(Start,Stop))+' Jahre, '+
          IntToStr(MonthsBetween(Start,Stop) Mod 12)+' Monate, '+
          IntToStr(DaysBetween(Start,Stop) Mod DaysInMonth(MonthsBetween(Start,Stop) Mod 12))+' Tage, '+
          IntToStr(HoursBetween(Start,Stop) Mod 24)+' Stunden, '+
          IntToStr(MinutesBetween(Start,Stop) Mod 60)+' Minuten, '+
          IntToStr(SecondsBetween(Start,Stop) Mod 60)+' Sekunden';
end;