Fórum Mascar no delphi 7 #332010

25/10/2006

0

Bom dia...

Arredondamento no delphi7


Entro no ibexpert rodo o comando abaixo


select ped_vrliquido from pedido

lista o valor de 88,00

no dephi Delphi 7 rodo o comando abaixo

sdsMestre.Close;
cdsMestre.Close;
sdsMestre.ParamByName(´EMP_CODIGO´).AsInteger := FrmPrincipalSGCAdm.CodEmpresa;
sdsMestre.ParamByName(´PED_NUMEROOPERACAO´).AsInteger := StrToInt(edtConsulta.text);
sdsMestre.Open;
cdsMestre.Open;
edtVrTotal.Text := FormatFloat(´#,,0.00´,(cdsMestrePED_VRLIQUIDO.AsFloat));


mostra o valor de 87.99

no banco de dados esta definido como numeric(15,2)
o conteudo do campo na tabela e de 87.999


Pergunta:
Eu tenho que usar uma funcao de arredondamento para listar 88.00 reais
Ou tenho que usar uma mascara diferente que arredonde os campos corretamente
Se eu preciso usar uma funcao qual a funcao do delphi devo usar...



Grato


Placido


Placido

Placido

Responder

Posts

25/10/2006

Flyskin

Antes de utilizar o round tente a máscara ´,#.00´...


Responder

Gostei + 0

25/10/2006

Placido

Meu amigo obrigado pela atenção, mas não funcionou a mascara que você passou......você não tem uma função de arredondamento para passar ???
Acho que uma função de arredondamento no delphi resolveria este problema..
Grato
Um abraço


Responder

Gostei + 0

25/10/2006

Placido

Meu amigo obrigado pela atenção, mas não funcionou a mascara que você passou......você não tem uma função de arredondamento para passar ???
Acho que uma função de arredondamento no delphi resolveria este problema..
Grato
Um abraço


Responder

Gostei + 0

25/10/2006

Placido

Meu amigo obrigado pela atenção, mas não funcionou a mascara que você passou......você não tem uma função de arredondamento para passar ???
Acho que uma função de arredondamento no delphi resolveria este problema..
Grato
Um abraço


Responder

Gostei + 0

25/10/2006

Placido

Meu amigo obrigado pela atenção, mas não funcionou a mascara que você passou......você não tem uma função de arredondamento para passar ???
Acho que uma função de arredondamento no delphi resolveria este problema..
Grato
Um abraço


Responder

Gostei + 0

25/10/2006

Macario

Ola.


Veja o seguinte topico: [url=http://forum.clubedelphi.net/viewtopic.php?t=70911&start=0&postdays=0&postorder=asc&highlight=arredonda] Precisão com casas decimais, como conseguir?[/url]

Espero que lhe ajude;


Responder

Gostei + 0

25/10/2006

Flyskin

tenta utilizar a função ´function Round(X: Extended): Int64;´. ela retorna um numero inteiro e portanto você precisa multiplicar por 100 e depois obter o numero com os decimais...
no momento só consigo me lembrar desta forma... em casa tenho um fonte que já utilizei uma forma para resolver este problema caso não resolva, amanhã posso te passar ele...


Responder

Gostei + 0

25/10/2006

Tiagorocha

No banco de dados sempre declaro como Numeric(15,2) meus campos com valor monetário e na aplicação sempre uso a função RoundTo(Valor,-2) contida na Unit Math. Funciona e não exige muito malabarismo de sua parte. :)


Responder

Gostei + 0

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

Aceitar