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

[Casimiro Notevi]

ingabraham, si no has conseguido resolver el problema, no inicies un nuevo hilo, sigue con el que estabas, gracias.

Ya he unido los dos en uno sólo.

[ecfisa]

Gracias Casimiro.

Avisé para evitar múltiples resultados de un mismo tema en las busquedas.

Saludos.

[Casimiro Notevi]

Empezado por ecfisa

Gracias Casimiro.
Avisé para evitar múltiples resultados de un mismo tema en las busquedas.
Saludos.

Claro, de la otra forma nos quedamos con temas sin solucionar, hay que continuar en el mismo hasta que esté resuelto el problema. Gracias.

[ingabraham]

y si nadi me da la idea de como hacer un algoritmo para esto, lo planteo de otra forma.

[ingabraham]

los dias son 30 dias de cada mes.
de los 12 meses.

existen 360 dias al año-

hay q hacer un algoritmo para obtener la dif de dias basandose en estos datos.

Hellpppp.-

[Casimiro Notevi]

El problema es que no sabemos qué hace exactamente esa función days360.
Pero se supone que si cuentas los días que hay entre dos fechas, qué hace, calcular todos los meses a 30 días?, es que si es así, entonces no se puede usar daysbetween, salvo que luego restemos los días de meses de 31 días y sumemos las de febrero, teniendo en cuenta si ese año es bisiesto.
No sé, me da la sensación de estar sumando peras y manzanas, algo no cuadra.

[ingabraham]

tengo una idea, es la siguiente

supongamos que las fechas son 1 enero a al 31 agosto.
algoritmo seria

diferencia de dias con el DaysBetween

luego
recorrer desde la fi, hasta la final
y hacer lo siguiente

ciclo

if fi[mes1 ( maximo dia ) ]== 31
cuentadias = cuentadias -1

fi[mes1 ( maximo dia ) ]== 28
cuentadias = cuentadias +2

fi[mes1 ( maximo dia ) ]== 29
cuentadias = cuentadias + 1

fciclo
dias+cuenta
y creo q ya.

pero como recorro estos meses de la fi, a la ff.?

espero q me hayan entendido.

nota: la idea es calcular sin importar los 30 dias de cada mes
luego recorrer esos meses y si hay q agregarle se agrega y si hay q quitarles se le quita.

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