11 respuestas en este tema

[root]

Buen dia
después de tiempo de desaparecido aca ando de nuevo

pregunta como puedo aplicar un "case" a un valor currency
o si hay alguna otra solución para tomar un valor currency
y compararlo entre 8 distintos juegos de valores

yo tenia pensado algo así

delphi

case compra of
 
250 .. 499: label10.Caption:= '1' ;
500 .. 999: label10.Caption:= '2' ;
...
...
14999 .. 24999: label10.Caption:= '13' ;
 
else label10.Caption:= 'no aplica'
 
end;

alguna idea o sugerencia
haaa NOTA el datos de 'compra' esta en currency

[egostar]

Que tal amigazo root

Yo haría ésto:

delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  compra: real;
 
begin
  compra := strtofloat( edit1.Text );
  case Ceil(compra) of
    1..100: label10.Caption:= '1';
    101..200: label10.Caption:= '2';
    201..300: label10.Caption:= '3';
    301..400: label10.Caption:= '4';
    401..500: label10.Caption:= '5';
    501..600: label10.Caption:= '6';
    601..700: label10.Caption:= '7';
    701..800: label10.Caption:= '8';
    801..900: label10.Caption:= '9';
    901..1000: label10.Caption:= '10';
  end;
end;

Saludos

[TiammatMX]

Nomás hay que tomar en cuenta que 24999.00000001 es mayor que 24999. Deberás tener bien presente cómo vas a manejar los decimales, también cuentan.

[egostar]

Nomás hay que tomar en cuenta que 24999.00000001 es mayor que 24999. Deberás tener bien presente cómo vas a manejar los decimales, también cuentan.

Para eso es precisamente Ceil() mi chavo

Saludos

[egostar]

Extraido de la ayuda de Delphi.

Description

Call Ceil to obtain the lowest integer greater than or equal to X. The absolute value of X must be less than MaxInt. For example:

Ceil(-2.8) = -2
Ceil(2.8) = 3
Ceil(-1.0) = -1

Hice la prueba y calcula bien hasta 4 decimales, supongo que no usarás más de esos.

De tal forma que si buscamos el valor 100.0001 lo asigna al rango 2 que es de 100 a 200.

Saludos

[root]

pregunta

ceil( )

no lo reconoce delphi 2010

lo puedo ocupar con
round( )
?

[egostar]

pregunta

ceil( )

no lo reconoce delphi 2010

lo puedo ocupar con
round( )
?

Claro que si lo reconoce, lo hice con Delphi 2007, sólo debes agregar la unidad Math, que pasó mi chavo esas son de primaria......

Saludos

[egostar]

Si usas round() no te va a funcionar

Round(100.0001) = 100
Ciel(100.0001) = 101

Saludos

[root]

es que tuve que regresara a programar por que ahora
los descuentos se calculan al vuelo
en base a las vetas del mes anterior y varios factores hay

despues de mas de 18 meses sin una sola linea de codigo

ya se me andaba olvidando como usar ZEOS

jajajjajaa

GRACIAS A TODOS SALU2

[FGarcia]

Si usas round() no te va a funcionar

Round(100.0001) = 100
[b]Ciel[/bold](100.0001) = 101

Saludos

¿Este es el foro para eso? o ¿a donde te mandamos la factura de la publicidad?

[egostar]

Si usas round() no te va a funcionar

Round(100.0001) = 100
Ciel(100.0001) = 101

Saludos

¿Este es el foro para eso? o ¿a donde te mandamos la factura de la publicidad?

Caramba!!!! ya no se puede hacer publicidad subliminal porque luego luego sacan a uno al balcón jajajaja

Saludos

[Delphius]

Nomás hay que tomar en cuenta que 24999.00000001 es mayor que 24999. Deberás tener bien presente cómo vas a manejar los decimales, también cuentan.

Extraido de la ayuda de Delphi.

Description

Call Ceil to obtain the lowest integer greater than or equal to X. The absolute value of X must be less than MaxInt. For example:

Ceil(-2.8) = -2
Ceil(2.8) = 3
Ceil(-1.0) = -1

Hice la prueba y calcula bien hasta 4 decimales, supongo que no usarás más de esos.

De tal forma que si buscamos el valor 100.0001 lo asigna al rango 2 que es de 100 a 200.

Saludos

Les recuerdo a los dos que el tipo Currency NO TIENE MAS DE 4 DECIMALES. Es inútil buscarle más.
Si tuviera más no podría ser posible trabajar con currency y optar por otro tipo de coma flotante.

Es el formato ideal y justamente pensado y diseñado para trabajar con números y expresiones monetarias. No existe, hasta el momento, país cuyo sistema de moneda tenga una numeración inferior al centavo/céntimo.
Se pensarán que ya que no hay más allá del céntimo entonces porqué es que tiene 4 decimales. Pues, la respuesta es fácil: Multipliquen dos números cualesquiera con 2 decimales y díganme cuántos decimales se obtienen  . Además, esto permite que efectivamente cualquier operación que se realice sobre un Currency se haga con precisión exacta.

Recuerden que el Currency no es más que un alias del integer.

EDIT:
En lugar de un FloatToStr sugiero emplear la función que trabaja con el tipo adecuado: CurrToStr.

Saludos,