Verbesserte Version von Years-, MonthsBetween + DurationStr

[Sir Rufo]

Moin,

habe ich mich doch gerade aufgeregt, dass die Funktionen YearsBetween und MonthsBetween falsche, da gerundete Ergebnisse liefern.

Code:

YearsBetween( '01.01.2009', '01.01.2010' ) => 0 Jahre
MonthsBetween( '01.01.2009', '01.01.2010' ) => 11 Monate

Wer kann denn mit dem Mist arbeiten - ich nicht, also habe ich einfach mal 2 Funktionen geschrieben, die diesen Fehler nicht haben.
Vielleicht kann es ja noch jemand gebrauchen

edit:

Ich habe das jetzt mal alles in einer Unit uDurationStr zusammengefasst und angehängt.
Zum Ausprobieren auch eine kleine Demo als Exe, wo alle Parameter der Funktion über das Formular geändert werden können.
Screenshot des Demo-Programms, na klar ihr sollt ja nicht die Katze im Sack kaufen

cu

Oliver