Arredondar com sempre pra cima e múltiplo de 5

Delphi

16/05/2006

Oi já procurei aqui no forum e não encontrei o q quero e por isso postei a dúvida

Tenho um programa de vendas onde o produto é vendido por metro quadrado

exemplo:

para achar o valor do metro quadrado multiplo largura x altura que é quantidade de metro quadrado

largura = 1550 milimetros
altura = 345 milimetros
valor encontrato = 534750

Para obter o valor em metro quadrado, divido por 10000

534750 / 10000 = 53,475 - arredondando = 53,47

Beleza.

O Problema é:

Os Produtos são vendidos em múltiplos de 5 centímetros, ou seja, o valor encontrado acima (53.47 m2) teria que ser arredontado para (53.50 m2) que é o próximo multiplo de 5. Decimais acima de ,00 e abaixo de ,50 tem q ficar 50 e acima de ,50 e abaixo de ,00 tem q ficar 00.

Exs:

36,41 = 36,50
42,12 = 42,50
89,01 = 89,50

56,58 = 57,00
21,67 = 21,00
62,92 = 62,00

alguém pode me ajudar?


Fajo

Fajo

Curtidas 0
POSTAR