Como fazer verificação de duas ou mais condições usando if

Delphi

23/08/2012

Olá delphianos,

Estou tentando fazer com que meu programa analise a seguinte situação:

se o campo edt_vlr_total for igual a 1637,11 entao aliquota será 0... ate ai tudo bem, mais se eu quiser pra ele fazer se o campo ed_vlr_total for igual ou maior que 1637,11 e menor que 2.453,50, como posso fazer? Estou usando o seguinte código:

procedure TFrmConferenciaPC.ExibeCalculoIR;
var vApurado, vPercAliquota, vIR:Double;
vAliquota:string;
begin
if edt_vlrTotal.Text <='1637,11' then
begin
vAliquota:='0';
end else
if (edt_vlrTotal.Text =>'1637,12') or (edt_vlrTotal.Text <= '2453,50') then
begin
vAliquota:='7,5';
end;
vPercAliquota:= StrToFloat(vAliquota);
vApurado:= StrToFloat(edt_vlrTotal.Text);
vIR:= vApurado * vPercAliquota / 100;
edt_ir.Text := FormatCurr('0.00',vIR);
end;

mais não está dando certo
Marcos Morais

Marcos Morais

Curtidas 0

Respostas

Francisco Macário

Francisco Macário

23/08/2012

Ola.

Use "and" no lugar de "or".

if (edt_vlrTotal.Text =>'1637,12') and (edt_vlrTotal.Text <= '2453,50') then
GOSTEI 0
Marco Salles

Marco Salles

23/08/2012


mais se eu quiser pra ele fazer se o campo ed_vlr_total for igual ou maior que 1637,11 e menor que 2.453,50


Ja respondido acima .. Utize o And ao Inves do Or ...A grosso modo And = E e Or = Ou

[]sds
GOSTEI 0
Marcos Morais

Marcos Morais

23/08/2012

Valeu galera, era isso mesmo....
GOSTEI 0
POSTAR