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.

[Casimiro Noteví]

Empezado por ecfisa

[..] 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.[..]

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.

[ecfisa]

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); // Línea agregada
  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.

[Casimiro Noteví]

Empezado por ecfisa

Como verás Casimiro, equivocarse no es exclusividad de microsof, pero mía sí ...

La diferencia es que ellos son tropecientos mil programadores que cobran una barbaridad, que tienen control de calidad, testeadores, revisores, probadores... o como se les quiera llamar, etc.
Por lo tanto, tu código es mucho mejor, más seguro, más eficiente, más económico y no hay que esperar a una versión nueva del programa para solucionar el problemilla, jejeje
Y por si fuese poco, tu código es libre como el viento, el de ellos no lo verás jamás aunque pagues por un excel.

[ecfisa]

En los parrafos 1 y 3 estoy totalmente de acuerdo con vos.
Ahora en el 2 tengo mis dudas...

Gracias Casimiro.

[ingabraham]

gracias, lo he probado con varias fechas
hasta el momento todo esta bien, no se si depronto con algun rango de fechas podra fallar-

muchas gracias esto era lo que esperaba,
pero me podrias dar una breve explicacion de lo q hicistes q no entendi nda de la funcion de la logica q tiene.

[ecfisa]

Hola.

Mirá te documento el código que es la mejor manera que se me ocurre para explicarlo.
Creo que, como a mí, tener un calendario en la mano te va ayudar a entender como es la lógica de dias360.

Código Delphi [-]
function Dias360(Des,Has: TDateTime): Integer;
var
  dd,dm,dh,da: Integer;
begin
  if DayOf(Des) = 31 then Des:= IncDay(Des, -1); // mes de 30 días
  if Abs(YearOf(Has)-YearOf(Des)) = 0 then  // mismo año
  begin
    // días que faltan para completar mes (Des)
    dd:= 30 - DayOf(Des);
    // días comprendidos entre meses
    dm:= (Abs(MonthOf(Des)-MonthOf(Has))-1)*30;
    // días transcurridos del mes (Has)
    dh:= DayOf(Has);
    // sumar días
    Result:= dd + dm + dh;
  end
  else    // años diferentes
  begin
    // días transcurridos entre años
    da:= Abs(YearOf(Has)-YearOf(Des)-1)*360;
    // (total dias del 1 año) - dias transcurridos fecha (Des)
    dd:= 360 - MonthOf(Des)*30;
    // total días transcurridos meses fecha Has + los días fecha (Has)
    dm:= (MonthOf(Has)-1)*30 + DayOf(Has);
    // diás faltantes  para completar mes (Des)
    dh:= 30 - DayOf(Des);
    // sumar días
    Result:= da + dd + dm + dh;
  end
end;

A la reducción de la fórmula llegué simplemente reemplazando las variables por su equivalente, como por ejemplo en:

Código Delphi [-]
     Result:= dd + dm + dh
     // es igua a:
    Result:= 30-DayOf(Des)+(Abs(MonthOf(Des)-MonthOf(Has))-1)*30+DayOf(Has)

Por último, los resultados los cotejé contra el OpenOffice.org.calc.

Saludos.