diferencia de dias , suponiendo que los meses son de 30 dias.

[ecfisa]

Hola ingabraham.

Busqué y encontré código de días360, sobre todo en VB, y ningúno funcionó. Es más, ni siquiera arrimaban a un resultado coherente, DaysBetween aproximaba mejor.

Así que pasé el borrador sobre lo leido, dejé de perder el tiempo e hice la función desde cero.
No sé si es buen código... seguramente algún compañero con mas luces que yo ( y reconozco que son muchos ) pueda optimizarlo.

Pero bueno, hace lo que tiene que hacer. Al menos hasta que se demuestre lo contrario...

Código Delphi [-]
function Dias360(Des,Has: TDateTime): Integer;
begin
  if Abs(YearOf(Has)-YearOf(Des)) = 0 then
    Result:= 30-DayOf(Des)+
             (Abs(MonthOf(Des)-MonthOf(Has))-1)*30+DayOf(Has)
  else
  begin
    Result:= Abs(YearOf(Has)-YearOf(Des)-1)*360+
             360-MonthOf(Des)*30+30-DayOf(Des)+
             (MonthOf(Has)-1)*30+DayOf(Has)
  end
end;

Saludos.