ayuda para elaborar un codigo

[josi]

hola todos.

Tengo una aplicacion de prestamos lo que me falta para terminarla es que genere recargos, por lo menos tengo una idea pero no se como aplicarla es la siguiente: un cliente tiene la deuda se le divide en cuotas y la cuota la debe pagar mensual.

analice esto: l fecha limite = fecha de prestamo + 29 dias
si la fecha limite= 5 dias mas que la fecha limite entonces
el recargo = 20%.

Es que no se sumarle dias a la fecha.

gracias..........

[Caro]

Hola josi, puedes utilizar la función IncDay.


var
fecha_limite : TDateTime;
begin
fecha_limite := IncDay(fecha_prestamo, 29);



Saluditos

[Aleca]

hola todos.

Tengo una aplicacion de prestamos lo que me falta para terminarla es que genere recargos, por lo menos tengo una idea pero no se como aplicarla es la siguiente: un cliente tiene la deuda se le divide en cuotas y la cuota la debe pagar mensual.

analice esto: l fecha limite = fecha de prestamo + 29 dias
si la fecha limite= 5 dias mas que la fecha limite entonces
el recargo = 20%.

Es que no se sumarle dias a la fecha.

gracias..........

asi como hiciste, la fecha es un número fecha1 := fecha2 + 29
la funcion IncDay hace eso...

function IncDay(const AValue: TDateTime;
const ANumberOfDays: Integer): TDateTime;
begin
Result := AValue + ANumberOfDays;
end;