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.
