Clipper On Line • Ver Tópico - Valores numéricos em Delphi

Valores numéricos em Delphi

Discussão sobre outras linguagens de programação.

Moderador: Moderadores

 

Valores numéricos em Delphi

Mensagempor raquelreis » 06 Jan 2012 15:04

Pessoal Boa Tarde,

Mais um problema estranho.

Tenho uma rotina de importaçã/exportação em Delphi. É o seguinte, preciso pegar valores reais (double) no meu banco, como preço. E como sabem não posso usar Inteiro para este tipo de informação.
Estou definindo a váriável como -> 'x : Double;' e na hora de salvar no banco Interbase faço assim.
qry.fieldbyname('preco').ASFLOAT := x; // x = 19,99
porém no banco ele joga 20,00 e agora?
Tentei usar o ASCURRENCY, nada feito. Alguma dica?

Ah, em outra aplicação funciona. Será o delphi bugado?
Keel
[]'s

_____________________________________________________________________________________
PROGRAMADOR é aquele que te resolve um problema que você não sabia que tinha, de uma maneira que você não compreende.
Avatar de usuário

raquelreis
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 87
Data de registro: 18 Jul 2011 15:29
Cidade/Estado: à procura
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Valores numéricos em Delphi

Mensagempor Pablo César » 06 Jan 2012 16:00

Desculpa Raquel, mas acredito que neste fórum não é o ideal para obter muita ajuda com Delphi. Eu sei absolutamente nada de Delphi. Mas procurando na WEB... Aqui este site que aconselha trabalhar com: Decimal, Double, Numeric e em outro sites lí que o float é meio imprevisivel...
http://imastercontroll.blogspot.com/2008/12/como-trabalhar-com-data-e-moeda-no.html
Veja este outro dá umas dicas:
http://www.activedelphi.com.br/forum/viewtopic.php?t=31302&sid=95a35a2ec3063885a42e013c24f0f363
Um clip-abraço !

Pablo César Arrascaeta
Compartilhe suas dúvidas e soluções com todos os colegas aqui do fórum.
Evite enviar as dúvidas técnicas por MPs ou eMails, assim todos iremos beneficiar-nos.
Avatar de usuário

Pablo César
Usuário Nível 7

Usuário Nível 7
 
Mensagens: 5539
Data de registro: 31 Mai 2006 10:22
Cidade/Estado: Curitiba - Paraná
Curtiu: 142 vezes
Mens.Curtidas: 152 vezes

Valores numéricos em Delphi

Mensagempor raquelreis » 06 Jan 2012 16:25

Vlw mesmo Pablo. Mas já havia visto esses links. Nenhum ajudou ainda no meu problema.
Meu banco tenho PRECO -- NUMERIC(15,4)
e no delphi uso Double.
Keel
[]'s

_____________________________________________________________________________________
PROGRAMADOR é aquele que te resolve um problema que você não sabia que tinha, de uma maneira que você não compreende.
Avatar de usuário

raquelreis
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 87
Data de registro: 18 Jul 2011 15:29
Cidade/Estado: à procura
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Valores numéricos em Delphi

Mensagempor Pablo César » 06 Jan 2012 16:36

Sei que é uma gambiarra, mas quem sabe você possa quebra o galho até achar a forma certa.
Tente Trunc(preco) que irá retornar o inteiro e depois some com Frac(preco) que irá retornar a fração em centavos... nossa que salsicho... rsrsr

Em outro site encontrei:
agora tenho um pouquinho de tempo para detalhar... faça isto:

cds_servico.FieldByName('SE_COMISSAO').AsFloat := FormatFloat('###,###,###.00',
q_servico.FieldByName('SE_COMISSAO').AsCurrency);
Um clip-abraço !

Pablo César Arrascaeta
Compartilhe suas dúvidas e soluções com todos os colegas aqui do fórum.
Evite enviar as dúvidas técnicas por MPs ou eMails, assim todos iremos beneficiar-nos.
Avatar de usuário

Pablo César
Usuário Nível 7

Usuário Nível 7
 
Mensagens: 5539
Data de registro: 31 Mai 2006 10:22
Cidade/Estado: Curitiba - Paraná
Curtiu: 142 vezes
Mens.Curtidas: 152 vezes

Valores numéricos em Delphi

Mensagempor raquelreis » 09 Jan 2012 12:01

Pablo, não sei explicar. Mas sexta estava com esse problema.
E hj, segunda não tenho mais. Não usei nada, deixei o código como estava.
A única coisa diferente é que: Faço todas as alterações em um computador, baixei os 2 bancos para minha máquina (atualizar) e executei a rotina. Funcionou!
Mas fica a dica...
Thank's
Keel
[]'s

_____________________________________________________________________________________
PROGRAMADOR é aquele que te resolve um problema que você não sabia que tinha, de uma maneira que você não compreende.
Avatar de usuário

raquelreis
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 87
Data de registro: 18 Jul 2011 15:29
Cidade/Estado: à procura
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Valores numéricos em Delphi

Mensagempor Pablo César » 09 Jan 2012 13:16

Ohhh loko meu... (como diz o Faustão) mas lembra que eu disse:
Aqui este site que aconselha trabalhar com: Decimal, Double, Numeric e em outro sites lí que o float é meio imprevisivel...
Sei lá então... rsrs
Um clip-abraço !

Pablo César Arrascaeta
Compartilhe suas dúvidas e soluções com todos os colegas aqui do fórum.
Evite enviar as dúvidas técnicas por MPs ou eMails, assim todos iremos beneficiar-nos.
Avatar de usuário

Pablo César
Usuário Nível 7

Usuário Nível 7
 
Mensagens: 5539
Data de registro: 31 Mai 2006 10:22
Cidade/Estado: Curitiba - Paraná
Curtiu: 142 vezes
Mens.Curtidas: 152 vezes




Retornar para Outras linguagens de programação

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 1 visitante


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro