Cita:
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 For i:= 1 to Numero_Cuotas do
Begin
Fecha_dePago := Fecha_dePago + 1Mes;
Imprimir Fecha_dePago 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