Calculo Monetário simples
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
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
Curtidas 0
Respostas
Ylton
04/12/2003
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)
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)
GOSTEI 0
Leonardo Bonoto
04/12/2003
Valeu irmão, mas continua dando erro!
R$21,00 is not a valid floating point value
R$21,00 is not a valid floating point value
GOSTEI 0
Ylton
04/12/2003
Verifique este R$ que não pode estar aí !!!!
Ele é texto e o campo é Float !!
Verifique.
Ylton
Ele é texto e o campo é Float !!
Verifique.
Ylton
GOSTEI 0
Leonardo Bonoto
04/12/2003
Ylton,
Obrigado, que Deus lhe abençoe!
Abraços!
Leonardo Bonoto
Obrigado, que Deus lhe abençoe!
Abraços!
Leonardo Bonoto
GOSTEI 0
Fred
04/12/2003
multiplique direto no dataset
suaTabelaSEUCAMPOTOTAL.AsCurrency := suaTabelaSEUCAMPOQTPECAS.AsCurrency * suaTabelaSEUCAMPOVALORPECA.Ascurrency;
suaTabelaSEUCAMPOTOTAL.AsCurrency := suaTabelaSEUCAMPOQTPECAS.AsCurrency * suaTabelaSEUCAMPOVALORPECA.Ascurrency;
GOSTEI 0