[ecfisa]

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.