erro de calculo

Delphi

14/05/2003

ola galera .. é o seguinte
tenho q mandar um valor para a impressora fiscal sem virgula e como string, tipo se for 12,34 tenho q mandar 1234 ... utilizo

var:=floattostr(int(DM.ibNotaDINHEIRO.asfloat * 100)

estava dando certo, mas agora não esta mais eheheheh tipo qdo mando
0,30 ele lê como se fosse 0,29
sei disso pq coloque um shomessage antes e um depois e ficou assim

showmessage(DM.ibNotaDINHEIRO.asstring) == deu 0,3
var:=floattostr(int(DM.ibNotaDINHEIRO.asfloat * 100);
showmessage(var), ==== deu 29 [ ou seja como se fosse o,29] ... alguem sabe qual o erro????


Fer

Fer

Curtidas 0

Respostas

Okama

Okama

14/05/2003

Use FormatFloat e pos: 

Var Valor:String;
begin

//Converte Float para String
Valor := FormatFloat(´#0.00´, 123.00);

//Remove o ponto decimal
While pos(´.´,Valor) > 0 do 
    Delete(Valor, Pos(´.´, Valor) , 1);



GOSTEI 0
POSTAR