Delphi-Quellcode:
LMonths := LDays div 30; // --> ! Hier passt es nicht, sind das sowas wie "Industrietage" ?
LDays := LDays mod 30; // --> ! dito
Wenn Du damit rechnest, und Dir die reale Zeit egal ist, dann ist es doch OK für dich.
Was genau willst Du denn überhaupt erreichen, beste Performance ?