calculo del iva en porcentaje?

[jirbert]

buenas trabajo bajo delphi 6 tengo una lista de productos a la cual llamo desde el form!! en lo que me trae el precio indiferentemente cual sea, quisiera sacarle el porcentaje(Iva) en este caso (9%) para luego cuando lo agregue al dbgrid guardarlo en la base de datos, puede ser en un edit o label

gracias...

[lKinGl]

declara 2 variable tipo double

Ejemplo:

Código Delphi [-]
 
Var
iva,total:double;
 
begin
total:=strtofloat(edittotal.text);
iva:=total*0.09;
editiva.Text:=format('%f',[iva]);
end;

[jirbert]

gracias IKinGl todo funciono a la perfeccion!!

muchas gracias!!

[lKinGl]

de nada estamos para ayudarnos mutuamente

[jirbert]

disculpa IKinGl tengo otra duda!! tengo otro campo.. el cual es el 'total' el seria = a precio + 9%


lo cual redacte asi
edit3.text:=edit1.text+edit2.text;

ejemplo

x = 250 + 22,5

250 + 22,5 = 272,5

x = 272,5

pero no hace eso, hace lo siguiente

x = 250 + 22,5

250 + 22,5 = 25022,5

x = 25022,5

disculpa la ignorancia!!

y gracias!! nuevamente...

[lKinGl]

Hmm lo que sucede es que tienes que hacer una conversión de tipo recuerda que los campos de los edits son tomados por defecto tipo caracter y sin la converión logicamente te hará lo siguiente:

1+2=12

para que no te de ese resultado tiene que ser así:

Código Delphi [-]
begin
edit3.text:=strtoint(edit1.text)+strtoint(edit2.text);
end;

espero te sirva!!

[jirbert]

me arrojo un error

[Error] Unit5.pas(180): Incompatible types: 'String' and 'Integer'

[lKinGl]

¿Podrias mostrarme tu código?

asi podria ayudarte mejor!

[jirbert]

procedure TForm5.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
 Var
iva,total:double;

begin
 if edit3.Text<>'' then
  begin
   total:=strtofloat(edit3.text);
   iva:=total*0.09;
   edit4.Text:=format('%f',[iva]);
   //edit5.text:=strtoint(edit3.text)+strtoint(edit4.text);
  end
 else edit4.Text:='';
end;

[lKinGl]

Código Delphi [-]
Var
iva,total:double;
n1,n2,nt:integer;
  begin
   total:=strtofloat(edit3.text);
   iva:=total*0.09;
   edit4.Text:=format('%f',[iva]);
   n1:=strtoint(edit3.text);
   n2:=strtoint(Edit4.text);
   nt:=n1+n2;
   edit5.Text:=format('%f',[nt]);//Usa este tipo de salida
   edit5.text:=inttostr(nt);//O esta Otra Salida
  end
end;

Saludos!

[jirbert]

otro error probe con ambos y me dio el mismo error

Project project1.exe raised exception class EConvertError with message “13,49” is not a valid integer value’. Process stopped. Use step or to run to continue

[[Lepe]]

Si es un número Entero, no puede llevar decimales.
Si es un número en coma flotante, se usa el punto como separador decimal (suele ser lo normal).

Saludos

[[enecumene]]

Empezado por jirbert

otro error probe con ambos y me dio el mismo error

Project project1.exe raised exception class EConvertError with message “13,49” is not a valid integer value’. Process stopped. Use step or to run to continue

En vez de usar La función StrToInt debes usar la función StrToFloat, el amigo Lepe te ha dado una explicación más clara que el agua.

Saludos.

[jirbert]

gracias a todos ya lo solucione como me orientaron!! gracias muy amables!!