Bueno.. no funciona.. me da un error... aqui esta la fraccion de codigo... para ver si me pueden ayudar a mejorarla.......
Código Delphi
[-]
FechaResultado := trunc(abs(((FechaUltimoPago-Date))));
if (FechaResultado>=30) and (FechaResultado<=7826) then
case resultado of
30..90:
begin
Resultado := trunc(VCuota * FechaResultado);
EjecutaSPActualizaProyectos(idCuenta,NoContrato,Manzana,Edificio,Apartamento,
VInmueble,VInicial,VCUota,VPagado,Balance,Resultado,0.00,0.00,0.00,0.00,0.00,FechaUltimoPago);
End;
91..180:
begin
Resultado := trunc(VCuota * FechaResultado);