Mascar no delphi 7
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
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
Curtidas 0
Respostas
Flyskin
25/10/2006
Antes de utilizar o round tente a máscara ´,#.00´...
GOSTEI 0
Placido
25/10/2006
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
Acho que uma função de arredondamento no delphi resolveria este problema..
Grato
Um abraço
GOSTEI 0
Placido
25/10/2006
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
Acho que uma função de arredondamento no delphi resolveria este problema..
Grato
Um abraço
GOSTEI 0
Placido
25/10/2006
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
Acho que uma função de arredondamento no delphi resolveria este problema..
Grato
Um abraço
GOSTEI 0
Placido
25/10/2006
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
Acho que uma função de arredondamento no delphi resolveria este problema..
Grato
Um abraço
GOSTEI 0
Macario
25/10/2006
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;
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;
GOSTEI 0
Flyskin
25/10/2006
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...
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...
GOSTEI 0
Tiagorocha
25/10/2006
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. :)
GOSTEI 0