Fórum Arredondamento meio ponto #489314
18/08/2014
0
Como faço pra arredondar dessa maneira com SQL ou de outra maneira.
Delphi 7 com mysql eu uso.
1.1 ate 1.5 = 1.5
1.6 ate 2 = 2
2.1 ate 2.5 = 2.5
2.6 ate 3 = 3
Valdemi Ramos
Curtir tópico
+ 0Post mais votado
20/08/2014
Porém, sugiro que gaste um tempo para verificar o porque de não estar funcionando, pois é a melhor solução para este caso.
Abraço e bons códigos.
Joel Rodrigues
Gostei + 1
Mais Posts
18/08/2014
Joel Rodrigues
Gostei + 0
19/08/2014
Valdemi Ramos
Pra quem interessar!
function TForm1.Arredondar(Nota: Double): Double;
var numero, decimal, inteiro, soma : Double;
begin
try
inteiro := Int(nota);
decimal := RoundTo(frac(nota), -1);
if (decimal > 0) and (decimal <= 0.5) then
soma := 0.5;
if (decimal > 0.5) then
soma := 1;
if (decimal = 0.5) then
soma := 0.5;
Result := inteiro + soma;
except on e: Exception do
showMessage('Não foi possível arredondar!' + #13#10 + e.Message);
end;
end;
Gostei + 0
19/08/2014
Valdemi Ramos
teria que ser arredondamento como expliquei a cima tipo:
5.1 a 5.5 = 5.5
5.6 a 6 = 6.
Mas resolvi com a função mesmo!
Obrigado a todos!
Gostei + 0
19/08/2014
Marisiana Battistella
SELECT ROUND(1.6667, 1);
Como vc tinha criado a instrução?
Quer compartilhar para ver se identificamos o porque de não ter funcionado?
Gostei + 0
19/08/2014
Valdemi Ramos
select nome, mommat, round(((nt_1+rp1)/2), 1)as media from matriculas
Gostei + 0
20/08/2014
Joel Rodrigues
Gostei + 0
20/08/2014
Marisiana Battistella
Não entendi porque não funcionou pra vc...
Gostei + 0
20/08/2014
Valdemi Ramos
Já resolvi com a função.
Obrigado a todos!
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)