Fórum Como fazer verificação de duas ou mais condições usando if #422297
23/08/2012
0
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
Curtir tópico
+ 0Posts
23/08/2012
Francisco Macário
Use "and" no lugar de "or".
if (edt_vlrTotal.Text =>'1637,12') and (edt_vlrTotal.Text <= '2453,50') then
Gostei + 0
23/08/2012
Marco Salles
Ja respondido acima .. Utize o And ao Inves do Or ...A grosso modo And = E e Or = Ou
[]sds
Gostei + 0
24/08/2012
Marcos Morais
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)