Deixar a medida de 10 em 10

Boa noite,

Gostaria de saber como fao para um valor ficar de 10 em 10.

Ex: meu clculo de 72, mas ele s pode ser 70 ou 80.

No sei se fui muito claro no que eu estou com dvida, qualquer coisa eu tento explicar de novo.

Obrigado pela ateno.

Att. Kim Felippe

Boa noite Kim,

Se voc puder dar um histrico maior, informando de onde vem seus resultados, pode ser que fique mais fcil de entender…

Por exemplo.

Tenho uma equao:

a = Val(a_Ent.Text)

Dim a As Double

h=1.2*a

Meu resultado da 8. Tenho que fazer esse 8 virar 10 e toda vida que dar um nmero quebrado tenho que arredondar pra um nmero inteiro. Fazendo que fique de 10 em 10 os valores.
Por exemplo se der 26, na apresentao do meu clculo automaticamente tem que virar 30.

Conseguiu entender? Sei que complicadinho, mas vamos ver se da certo.

Ok, entendi. Mas no caso do seu exemplo de 72… Ele deve assumir o valor da dezena mais prxima, que neste caso seria 70, ou sempre arredondar para mais, e chegar a 80 ? Existe uma regra que diga que acima de 75 deve ser 80, e abaixo deve ser 70 ?

mais ou menos por ai Adelar :DD

o arredondamento sempre pra mais.

isso no meu caso de 72, e deveria ser 80.

no pode ser de 5 em 5.

do 72 pula direto pro 80.

Obrigado pela ajuda

if a mod 10 <> 0 then
a = a + 10 - a mod 10
end if

grazie mille

prego :slight_smile: