Case con Expresiones Complejas

[[Lepe]]

¿Posible Mejora?

Si entiendo bien, lo que hace es cambiar el valor de resultado y ponerlo en
otro parámetro formal de EjecutaSp..., entonces, no sería mejor identificar los
parámetros y cambiar solo el que se desea?, me explico mejor, Suponiendo
que los parámetros despues de Balance y antes de FechaUltimo pago son:

Código Delphi [-]
...Balance, Res1, Res2, Res3, Res4, Res5, Res6, FechaUltimoPago)

Código Delphi [-]
Res1:= 0.00;
Res2:= 0.00;
Res3:= 0.00;
Res4:= 0.00;
Res5:= 0.00;
Res6:= 0.00;
if (FechaResultado >= 30) and (FechaResultado<=7826) then
       case FechaResultado of
         30..90:     Res1 := trunc(VCuota * FechaResultado);
         91..180:    Res2 := trunc(VCuota * FechaResultado);
      end;
with  adoQProyectoExportar do
EjecutaSPActualizaProyectos(
    Parambyname('idcuenta').Value
    Parambyname('NoContrato').value,

   Manzana,Edificio,Apartamento,
   VInmueble,VInicial,VCUota,VPagado,Balance,

   Res1, Res2 , Res3, Res4, Res5, Res6,

   FechaUltimoPago);

Queda un código más claro ¿no? ...o será cuestión de gustos

Un saludo