Einzelnen Beitrag anzeigen

Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#1

Verbesserte Version von Years-, MonthsBetween + DurationStr

  Alt 27. Okt 2009, 15:10
Moin,

habe ich mich doch gerade aufgeregt, dass die Funktionen Delphi-Referenz durchsuchenYearsBetween und Delphi-Referenz durchsuchenMonthsBetween 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
Miniaturansicht angehängter Grafiken
durationstr_demo_137.png  
Angehängte Dateien
Dateityp: zip durationstrdemo_128.zip (445,3 KB, 32x aufgerufen)
Dateityp: pas udurationstr_430.pas (9,7 KB, 57x aufgerufen)
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)
  Mit Zitat antworten Zitat