Mude o campo para Numeric(15,4), acho que isso já vai solucionar seu
problema pois, conforme seu exemplo, VITEM seria 13,3333, o que daria
o resultado 199,9995, ficando fácil o arredondamento.
Nielsen
On Wed, 23 Feb 2005 17:28:07 -0300, giuvany <[EMAIL PROTECTED]> wrote:
>
> Pessoal
>
> Seguinte estou com problema na formatacao e inclusao de valres no banco de
> dados,
>
> Bom no meu Banco de Dados tenho um campo
>
> VITEM NUMBER(15,2)
>
> E no meu programa o usuário vai digitar um valor total e eu terei que
> dividir este
>
> Valor por uma quantidade X e colocar este valor dividido no campo da
> Tabela VITEM
>
> Bom ae faço assim
>
> var
>
> c:string;
>
> b,valor_sub,a:double;
>
> begin
>
> valor_sub:=(StrToFloat(edit3.text) / StrToFloat(edit2.text));
> -------->>>valor_total dividido pela quantidade
>
> a:=StrToFloat(edit3.text));
>
> b:=StrtoFloat(edit4.text);
>
> b:=b* dm_principal.Qry_Prestador_ambquantidade_consulta.value;
> ------------------- refazer calculo para verificar
>
> showmessage('valor b'+floattostr(b)); ------ coloquei só vizualizar
>
> c:=floattostr(a-b); ------- só par aver a diferenca
>
> showmessage('diferenca c'+(c)); ------ coloquei só vizualizar mostra a
> diferenca
>
> então o que acontece
>
> Quando vou colocar no Banco de dados estas informacoe elas entram com
> diferenca
>
> Vamos supor Valor Total =200
>
> Quantidade=15
>
> VITEM= 13,33333333333333
>
> Na inserção no Banco fica 13,33
>
> Mas na Soma no Banco ae Fica 199,95
>
> O que me da 0,05 diferenca de alguns centavos não chegando a 200,00
>
> Alguém sabe onde estou errando?
>
> Ou se neste caso vou ter que incrementar um VITEM com a Diferenca?
>
> Desde já agradeco
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
> Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
> Links do Yahoo! Grupos
>
>
>
>
>
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
