erro de calculo

14/05/2003

0

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

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar