Cita:
Empezado por Casimiro Notevi
Incluso microsoft se equivocó en algunas versiones de excel con su función days360 y luego lo han modificado varias veces hasta dejarlo como está ahora.
|
Como verás Casimiro, equivocarse no es exclusividad de microsof, pero mía sí ...
Acabo de corregir un pif de la función que escribí. Lo dá cuando el día ingresado en la fecha inicial es 31, por suerte es fácil de corregir.
Queda así:
Código Delphi
[-]
function Dias360(Des,Has: TDateTime): Integer;
begin
if DayOf(Des) = 31 then Des:= IncDay(Des, -1); 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.