Calculo Monetário simples

04/12/2003

1

Amigos,

Estou fazendo um calculo monetário onde eu pego o preço da peça no DBEdit8.text e multiplico pelo número de peças no DBEdit6.text. O resultado tem que aparecer no DBEdit7.text como valor monetário, estou usando a fórmula abaixo mas está faltando um complemento que eu não consigo achar! Será que alguém teria essa fórmula para me mandar?

A fórmula que eu estou usando é:

DBEdit7.text:= FloatToStrF((strtofloat(DBEdit8.text)) , FFcurrency, 10, 2) * (DBEdit6.text)

Sei que está errado, alguém poderia me ajudar?

Fiquem com Deus!

Leonardo Bonoto


Responder

Posts

04/12/2003

Ylton

Bom, no caso o que não está funcionando seria basicamente a formatação e o tipo de dado que está em questão.

O Conteúdo dos Edits SEMPRE é Texto

Você poderia fazer Assim:

DBEdit7.Text := FormatFloat(´#,,0.00´, FloatToStr( StrToFloat(DBEdit8.Text) * StrToFloat(DBEdit6.Text) )

Acredito que vá funcionar direitinho.

O FormatFloat já converte para Texto para ficar no DBEdit.

Falow...

Ylton (ylton@bohminteral.com.br)


Responder
Valeu irmão, mas continua dando erro!

R$21,00 is not a valid floating point value


Responder

04/12/2003

Ylton

Verifique este R$ que não pode estar aí !!!!

Ele é texto e o campo é Float !!

Verifique.

Ylton


Responder
Ylton,
Obrigado, que Deus lhe abençoe!

Abraços!
Leonardo Bonoto


Responder

04/12/2003

Fred

multiplique direto no dataset

suaTabelaSEUCAMPOTOTAL.AsCurrency := suaTabelaSEUCAMPOQTPECAS.AsCurrency * suaTabelaSEUCAMPOVALORPECA.Ascurrency;


Responder