Afronden

[Klikmaar]

Hoe kan ik op een eenvoudige manier afronden in VB 6?

Zoals bijvoorbeeld:
221 moet 220 worden
15747 moet 15700 worden
988762 moet 1000000 worden

 

[Koen B]

Je zou het op deze manier kunnen proberen

if right(variabele,1)<9 then

en dan wat je wilt

 

[evertVB]

Ik begrijp uit je vraag dat je wilt afronden op tientallen - honderdtallen etc.
Met deze code kan het:

Public Function fnRound_dec_v_komma(Getal As Long, dec_v_komma As Long) As Long
  Dim a As Double
  a = Getal / (10 ^ dec_v_komma)
  fnRound_dec_v_komma = Round(a) * (10 ^ dec_v_komma)
End Function

Maar je moet wel opgeven op welk aantal 'decimalen voor de komma' je wilt afronden.