In der jetzigen Form geshst du ja davon aus, dass die Monate 30 Tage haben und somit das Jahr 360 Tage. Ggf. kannst du minmal genauer werden, wenn du aus der Anzahl der Tage/365 zunächst die Jahre berechnest und dann aus dem Rest der Tage die Monate usw.?
Problem dabei: Ist der Rest >= 360 Tage, und du teilst das durch 30 für die Monate können da 12 oder 13 rauskommen. Ist also fraglich ob das hilft.
Oder du rechnest mit genaueren Durschnittswerten für Monate und Jahre und benutzt dann halt nicht div/mod sondern machst das zu Fuß, weil du da ja keine Integer Werte mehr hast:
Delphi-Quellcode:
Jahre:=Trunc(Tage/365.2425);
Resttage:=Tage-Jahre*365.2425;
Monate:=Resttage/(365.2425/12);
Resttage:=Resttage-Monate*(365.2425/12);