Fórum formatacao monetaria #355344
13/03/2008
0
Bom tenho essa funcao aki bem simples
uso ela pra apresentar em Edits valores monetarios em totais de relatorios coisas assim.
so que valores maiores que 999,99 da um erro
uso ela pra apresentar em Edits valores monetarios em totais de relatorios coisas assim.
Function FormatoMonetario(Valor: String):String; begin If Empty(Valor) Then Valor := ´0´; Try Result := FormatFloat(´#,0.00´, StrToFloat(Valor)); Except Result := FormatFloat(´,0.00´, 0); Mensagem(´Valor incorreto´); End; end;
so que valores maiores que 999,99 da um erro
´1.000,00´ is not a valid floating point value
Mysys
Curtir tópico
+ 0
Responder
Posts
13/03/2008
Macario
Ola colega [b:b11fbb264e]MySYS[/b:b11fbb264e]
Eu uso assim #,0.00
Veja se contigo dara certo.
Eu uso assim #,0.00
Veja se contigo dara certo.
Responder
Gostei + 0
13/03/2008
Mysys
Tambem da erro
veja um exemplo simples que da erro da mesma forma
se edit1 = 1000,00 ok
se edit1 = 1.000,00 da erro
veja um exemplo simples que da erro da mesma forma
Edit2.Text := FormatFloat(´#,0.00´, StrToFloat(Edit1.TExt));
se edit1 = 1000,00 ok
se edit1 = 1.000,00 da erro
Responder
Gostei + 0
13/03/2008
Joaoshi
Você precisa fazer um tratamento na função para tirar o separador de milhares quando receber o valor.
quando receber 1.000,00 passar para 1000,00
Espero ter ajudado.
quando receber 1.000,00 passar para 1000,00
Espero ter ajudado.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)