Fórum Converter real para dolar #241567

depende da variação do dollar em relação ao real : Se fosse hoje esta conversão : $4,70 seria R$11,20 no comercial e R$14,90 no paralelo

Rogerio,

Acho que teu problema foi a manipulacao no delphi.

//edCotacaoDolar(cotação do dolar ´3,14´)
//edValorEmReais(valor que você quer converter ´50,00´)
//btnConverter (botão que aciona a conversão)
{NOTA 1: Utilize vírgula para separador Decimal ex:´3,14´}
{NOTA 2:Usei váriaveis para tornar o exemplo mais legível}
procedure TForm1.btnConverterClick(Sender: TObject);
var lValorEmReais,lValorConvertido,lCotacaoDolar :real;
begin
{Convertendo os textos dos Edits para real}
lCotacaoDolar := StrToFloat(edCotacaoDolar.Text);
lValorEmReais := StrToFloat(edValorEmReais.Text);

{Usando a função de conversão}
lValorConvertido := RealParaDolar(lValorEmReais,lCotacaoDolar);

{exibindo o resultado}
ShowMessage(FormatFloat(´#,0.00´,lValorConvertido));
end;


{considerando a cotação fixa em 3.14 reais}
{Você pode usar este valor vindo do BD,de um Edit etc...}
function TForm1.RealParaDolar(valor,cotacao:real):real;
begin
Result := valor * 3.14;
end;