Rechnen mit Zeiten zur Berechnung von Spesen

[Der.Kaktus]

bei dieser

Delphi-Quellcode:

If YearsBetween(Zeit1, Zeit2) <> 0 Then 
  S := IntToStr(YearsBetween(Zeit1, Zeit2)) + ' Jahre' 
Else If MonthsBetween(Zeit1, Zeit2) <> 0 Then 
  S := IntToStr(MonthsBetween(Zeit1, Zeit2)) + ' Monate' 
Else If WeeksBetween(Zeit1, Zeit2) <> 0 Then 
  S := IntToStr(WeeksBetween(Zeit1, Zeit2)) + ' Wochen ' + IntToStr(Round(Abs(Zeit) - WeeksBetween(Zeit1, Zeit2) * 7)) + ' Tage' 
Else If DaysBetween(Zeit1, Zeit2) <> 0 Then 
  S := IntToStr(DaysBetween(Zeit1, Zeit2)) + ' Tage ' + TimeToStr(Abs(Zeit) - DaysBetween(Zeit1, Zeit2)) 
Else 
  S := TimeToStr(Abs(Zeit1 - Zeit2));

Variante passieren keine Rundungsfehler.