Calculo entre meses

[jandres]

Saludos a esta grandiosa comunidad feliz navidad

Mi inquietud el día de hoy es por lo siguiente

Tengo una aplicación que reparte unas cuotas en diferentes partidas si no se genera un pago en una fecha x me carga un 5% me explicó si tengo que pagar el 21/12/2006 y pago 22/12/2006 tengo un recargo de un 5% a trascurrido un día el problema es que cuando la diferencia es 2 mese o 3 cada mes tiene un cargo de 5% y no se como reflejar que haga la operación calculando que sean 2 o tres meses por favor le pido que sean muy explícitos por favor

Estoy utilizando delphi 7 y access 2003

Gracias por su ayuda

[Onti]

Probaste con la funcion MonthsBetween, te retorna los meses entre 2 fechas

[marcoszorrilla]

Según entiendo al pasar un día del plazo tiene un 5% de recargo. Si pasa un mes otro 5, es decir un 10.

01-29 días 5%
30 días 10%
60 días 15%
90 días 20%

Esto es lo que estoy creyendo, en este caso.

(Date - Vencimiento) nos dará los días que han transcurrido sobre el vencimiento

(Date - Vencimiento) / 30 los meses

Según este planteamiento si se extrae el entero de esta división.

Int((Date - Vencimiento) /30) +1
y le sumamos 1

Obtenemos:
Menor 30 = 1
Entre 30 y 59 = 2
Entre 60 y 89 = 3
Entre 90 y 119 = 4


Si mi suposición es cierta, el importe del interés podría resolverse con un simple Case, aplicado a estos resultados, y el importe del interes sería el resultado multiplicado por 5.

Un Saludo.