A ver ingabraham... probá con esta función:
Código Delphi
[-]
function Dias360(FechaIni,FechaFin: TDateTime; MetodoEuro: Boolean): Longint;
var
DiaIni, DiaFin: Longint;
begin
DiaIni:= DayOf(FechaIni);
DiaFin:= DayOf(FechaFin);
if not MetodoEuro then
begin
if DiaIni = 31 then
FechaIni:= IncDay(FechaIni, -1);
if (DiaFin = 31)and(DiaIni = 31) then
FechaFin:= IncDay(FechaFin, -1)
else
if DiaFin = 31 then
FechaFin:= IncDay(FechaFin, 1);
end
else
begin
if DiaIni = 31 then
FechaIni:= IncDay(FechaIni, -1);
if DiaFin = 31 then
FechaFin:= IncDay(FechaFin, -1);
end;
DiaIni:= DayOf(FechaIni);
DiaFin:= DayOf(FechaFin);
if YearOf(FechaFin) > YearOf(FechaIni) then
FechaFin:= IncMonth(FechaFin, 1);
Result:= MonthsBetween(FechaIni, FechaFin)* 30 + DiaFin - DiaIni;
end;
Al igual que la de Federico es una traducción.
No uso Microsoft Office por lo que no puedo probarla con Excel, pero pareciera funcionar.
De no ser así, con todo lo que te han posteado, tenés una buena base para desarrollarla
por vos mismo. Al fín y al cabo, sos el interesado ¿no ?
Por supuesto, cuando esté funcionando, todos te vamos a agradecer el aporte si decidís compartirlo.
Saludos.