bucle para fechas de pagos

[[BlueSteel]]

Empezado por Lepe

ufff, que espeso te veo. ¿crees que podemos entender tus tablas, campos y lo que quieres hacer con esa explicación?

... Po va a sé que no.

saludos

vamos.. si no se ve tan dificil.....

chino150, necesitas tener los siguientes datos....

Numero de Cuotas -> lo que te dará el largo del bucle...
Fecha de Pago -> para repetir esa fecha (cambiando el mes...)

Código Delphi [-]
 
     Fecha_dePago // Variable de tipo Fecha...con 30 dias antes del primer vencimiento
     For i:= 1 to Numero_Cuotas do
     Begin
            Fecha_dePago := Fecha_dePago + 1Mes; 
              // Aqui debes hacer el proceso para cambiar la fecha de mes en mes... 
            Imprimir Fecha_dePago // Aqui imprimes lo que quieras..
     End;

Por Ejemplo, si tenemos

Código Delphi [-]
     Fecha_dePago := StrToDate('28/04/2008');
    Numero_Cuotas := 12;
vencimiento
     For i:= 1 to Numero_Cuotas do
     Begin
            ShowMessage('La Cuota Numero '+IntToStr(i)+' Vence el '+DateToStr(Fecha_dePago);
            Fecha_dePago := Fecha_dePago + 30; 
     End;

Salu2