Calculo Monetário simples

04/12/2003

0

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


Leonardo Bonoto

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

04/12/2003

Leonardo Bonoto

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

04/12/2003

Leonardo Bonoto

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

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

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

Aceitar