Case con Expresiones Complejas

[[Lepe]]

Claro que se puede.... faltaría más

Código Delphi [-]
if  (Resultado>=1) and (Resultado<=6) then
case resultado of
1: ........
2: ........
3: ........
End;

, Ya sé que no es lo que quería, pero el case solo va con expresiones simples. De otra forma se puede jugar:

Código Delphi [-]
case resultado of
2,3,4,5,6:case Resultado of
              2:....
              3:...
              end;
7: ........
8: ........
End;

Un saludo

[vtdeleon]

Saludos

Bueno intenta

Código Delphi [-]
 if (resultado>=1) and (resultado<=6) then
 Case Resultado of
 1: ........
 2: ........
 3: ........
 End;

A ver

[Jvilomar]

o sea que en caso de que los parametros sean mas grandes... podria hacer lo mismo o sea

Código Delphi [-]
 IF (resultado >= 30) and (Resultado <=60) then
   case resultado of
     31:
     40:
     50:
   end

Bueno... eso creo....

[vtdeleon]

Saludos

Empezado por Jvilomar

o sea que en caso de que los parametros sean mas grandes... podria hacer lo mismo o sea

Si está bién. Usa el método de Roman (Genial)

[Jvilomar]

Gracias..... vamos a probarlo a ver que me sale......

[Jvilomar]

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);
       {...}
       {...}
       {...}

[rastafarey]

Código Delphi [-]
Case A Of
    1: Case B Of
      1: Begin End;
      2: Begin End;
      3: Begin End;
      4: Begin End;
    End;
    2: Case B Of
      1: Begin End;
      2: Begin End;
      3: Begin End;
      4: Begin End;
    End;
    3: Case B Of
      1: Begin End;
      2: Begin End;
      3: Begin End;
      4: Begin End;
    End
End;

[vtdeleon]

Empezado por Jvilomar

Bueno.. no funciona.. me da un error... aqui esta la fraccion de codigo... para ver si me pueden ayudar a mejorarla.......

Seria bueno que nos escribieras el error que te da

[Jvilomar]

Perdon... lo del error era un desliz mio.. hasta ahora me esta funcionando.... pero solo con un solo elemento... el resto se me esta colgando..... o sea.. me hace lo que deseo pero en un solo registro (en este caso es de la base de datos)aqui esta el codigo completo.... A VER SI me dicen que estoy haciendo mal....

Código Delphi [-]
procedure TfrmExportaDatos.bbtnProcesarClick(Sender: TObject);
 var
   idCuenta,FechaResultado  : Integer;
   Manzana,Edificio,Apartamento,NoContrato : String;
   FechaUltimoPago: tDateTime;
   VInmueble, VInicial,VCuota,VPagado,Balance,Resultado : Real;
 begin
   Cursor := crSQLWait;
   While not adoQProyectoExportar.Eof do
   begin
     idCuenta := adoQProyectoExportar.fieldbyName('idCuenta').value;
     NoContrato := adoQProyectoExportar.fieldbyName('NoContrato').value;
     Manzana := adoQProyectoExportar.fieldbyName('Manzana').value;
     Edificio := adoQProyectoExportar.fieldbyName('Edificio').value;
     Apartamento := adoQProyectoExportar.fieldbyName('Apto').value;
     FechaUltimoPago := adoQProyectoExportar.fieldbyName('FechaUltimoPago').value;
     VInmueble := adoQProyectoExportar.fieldbyName('MontoTotal').value;
     VInicial := adoQProyectoExportar.fieldbyName('PagoInicial').value;
     VCuota := adoQProyectoExportar.fieldbyName('ValorCuota').value;
     VPagado := adoQProyectoExportar.fieldbyName('TotalPagado').value;
     Balance := adoQProyectoExportar.fieldbyName('Balance').value;
     FechaResultado := trunc(abs(((FechaUltimoPago-Date))));
     if (FechaResultado >= 30) and (FechaResultado<=7826) then
       case FechaResultado 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);
           EjecutaSPActualizaProyectos(idCuenta,NoContrato,Manzana,Edificio,Apartamento,
           VInmueble,VInicial,VCUota,VPagado,Balance,0.00,Resultado,0.00,0.00,0.00,0.00,FechaUltimoPago);
         End;
         181..360:
         begin
           Resultado := trunc(VCuota * FechaResultado);
           EjecutaSPActualizaProyectos(idCuenta,NoContrato,Manzana,Edificio,Apartamento,
           VInmueble,VInicial,VCUota,VPagado,Balance,0.00,0.00,Resultado,0.00,0.00,0.00,FechaUltimoPago);
         End;
         361..730:
         begin
           Resultado := trunc(VCuota * FechaResultado);
           EjecutaSPActualizaProyectos(idCuenta,NoContrato,Manzana,Edificio,Apartamento,
           VInmueble,VInicial,VCUota,VPagado,Balance,0.00,0.00,0.00,Resultado,0.00,0.00,FechaUltimoPago);
         End;
         731..7825:
         begin
           Resultado := trunc(VCuota * FechaResultado);
           EjecutaSPActualizaProyectos(idCuenta,NoContrato,Manzana,Edificio,Apartamento,
           VInmueble,VInicial,VCUota,VPagado,Balance,0.00,0.00,0.00,0.00,Resultado,0.00,FechaUltimoPago);
         End;
         7826:
         begin
           Resultado := trunc(VCuota * FechaResultado);
           EjecutaSPActualizaProyectos(idCuenta,NoContrato,Manzana,Edificio,Apartamento,
           VInmueble,VInicial,VCUota,VPagado,Balance,0.00,0.00,0.00,0.00,0.00,Resultado,FechaUltimoPago);
         End;
       End;
     Cursor := crDefault;
   End;
 End;

[roman]

Una variante:

Código Delphi [-]
if Resultado in [1..6] then
  case Resultado of
    1: .....
    2: .....
    3: .....
  end

// Saludos