Como fazer verificação de duas ou mais condições usando if
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
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
Curtidas 0
Respostas
Francisco Macário
23/08/2012
Ola.
Use "and" no lugar de "or".
Use "and" no lugar de "or".
if (edt_vlrTotal.Text =>'1637,12') and (edt_vlrTotal.Text <= '2453,50') then
GOSTEI 0
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
23/08/2012
Valeu galera, era isso mesmo....
GOSTEI 0