Arredondamento de Valor nas casas decimais!

Delphi

29/03/2004

Tenho um banco de dados com uma tabela onde tenho tres campos

[color=blue:afcabe0bf2]Quantidade , Preço Total e Preço unitario[/color:afcabe0bf2]. Tenho que elaborar a

seguinte conta [color=darkblue:afcabe0bf2] Preço unitario = Preço total / Quantidade[/color:afcabe0bf2].

Temos o seguinte problema : --> Após a conta ser efetuada e até mesmo gravada no banco de dados, o resultado é um numero enorme (Tipo float) após a virgula.

Gostaria de saber se poderia diminuir esse numero com quatro casas dedpois da virgula (arredondado). :!:


Julio Piorino

Julio Piorino

Curtidas 0

Respostas

Nglauber

Nglauber

29/03/2004

Caro colega,

Você já tentou o seguinte:

Tendo em vista que o banco de dados é Interbase:
- Tentou criar um campo calculado - COMPUTED BY ?
- Tentou criar um campo Numeric(13,4) ?

Pelo Delphi:
Format float( ´0.00´, VariavelDouble ); // isso retorna uma string

ou
procedure TForm1.Button1Click(Sender: TObject);
var
    d : double;
    d2 : Double;
begin
    d := Strtofloat( edit1.text );
    d2 := RoundTo( d, -4 );
    showmessage(floattostr(d2));
end;



GOSTEI 0
Julio Piorino

Julio Piorino

29/03/2004

Obrigado Glauber ! vou tentar mas estou usando paradox, é a mesma coisa??? :lol:


GOSTEI 0
POSTAR