erro de calculo

14/05/2003

1

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????


Responder

Posts

14/05/2003

Okama

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);



Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira