Hola.
Yo lo había pensado así:
Código Delphi
[-]
function MesesDe30(nDias:Word): Word;
begin
if nDias > 360 then
Result:= ndias div 360 * 12
else
Result:= nDias div 30;
end;
Al principio me confundió lo de 'a partir de una fecha determinada' , pero sólo se quiere saber el número de meses. (de 30 días)
Saludos.