Fórum Como fazer verificação de duas ou mais condições usando if #422297

23/08/2012

0

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

Responder

Posts

23/08/2012

Francisco Macário

Ola.

Use "and" no lugar de "or".

if (edt_vlrTotal.Text =>'1637,12') and (edt_vlrTotal.Text <= '2453,50') then
Responder

Gostei + 0

23/08/2012

Marco Salles


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
Responder

Gostei + 0

24/08/2012

Marcos Morais

Valeu galera, era isso mesmo....
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar