z.B.
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));
Bei Monaten und Jahren ist es ein bissl schwerer genauere Angaben, zu den kleineren Einteilungen zu machen, da 1 Jahr/1 Monat nunmal keine feste Anzahl an Tagen/Stunden... hat.