converssão de valores
Salve galera...
Bem o problema é o seguinte, presico colovar um resultado de uma divisão em uma rotina de SQL, só que o resultado sempre é fracionácio (ex. 0,31) quando jogo esse valor na SQL dá erro, então percebi que a SQL precissa receber esse campo no seguinte formato 0.31 para funcionar.
Já tententei:
FormatFloat(´0,00´,divisão) = ,310
FormatFloat(´0.00´,divisão) = 0,31
e outras formas.
a função é a seguinte:
Procedure....
var
Juros1 Currency
begin
Juros1= (resultado da Divisão Tx. Am /30);
with QyAtualiza.sql do
begin
clear
add(´Update titulos´);
add(´set DiasAtraso = DataAtual - Vencimento, Juros = valor * (Juros1*DiasAtraso)/100, Vl_Total = Valor + Juros;
Add(´where codigo = 15´);
QyAtualiza.ExcutSQL;
end;
end;
Alguém pode me ajudar...
Abraços Luis Neto.
Bem o problema é o seguinte, presico colovar um resultado de uma divisão em uma rotina de SQL, só que o resultado sempre é fracionácio (ex. 0,31) quando jogo esse valor na SQL dá erro, então percebi que a SQL precissa receber esse campo no seguinte formato 0.31 para funcionar.
Já tententei:
FormatFloat(´0,00´,divisão) = ,310
FormatFloat(´0.00´,divisão) = 0,31
e outras formas.
a função é a seguinte:
Procedure....
var
Juros1 Currency
begin
Juros1= (resultado da Divisão Tx. Am /30);
with QyAtualiza.sql do
begin
clear
add(´Update titulos´);
add(´set DiasAtraso = DataAtual - Vencimento, Juros = valor * (Juros1*DiasAtraso)/100, Vl_Total = Valor + Juros;
Add(´where codigo = 15´);
QyAtualiza.ExcutSQL;
end;
end;
Alguém pode me ajudar...
Abraços Luis Neto.
Luis Neto
Curtidas 0
Respostas
Fabio.hc
05/04/2004
Tente assim:
Passando parâmetros:
Passando parâmetros:
...
add(´Update titulos´);
add(´set DiasAtraso = DataAtual - Vencimento, Juros = :juro, Vl_Total = :valortotal´);
Add(´where codigo = 15´);
[b:3c348fbf69]ParamByName(´juro´).Value:=valor * (Juros1*DiasAtraso)/100 ;
ParamByName(´valortotal´).Value:=Valor + Juros[/b:3c348fbf69]
QyAtualiza.ExcutSQL;
GOSTEI 0