formatacao monetaria

Delphi

13/03/2008

Bom tenho essa funcao aki bem simples
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

Mysys

Curtidas 0

Respostas

Macario

Macario

13/03/2008

Ola colega [b:b11fbb264e]MySYS[/b:b11fbb264e]

Eu uso assim #,0.00

Veja se contigo dara certo.


GOSTEI 0
Mysys

Mysys

13/03/2008

Tambem 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


GOSTEI 0
Joaoshi

Joaoshi

13/03/2008

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.


GOSTEI 0
POSTAR