1 
 10 
 50 
 100 
 500 
 1000 
 90 
 900 
 990 
 9000 
 9900 

function okrugl(a as long, b as integer) as long
' a - число, которое надо округлить
' b  - до чего округляем
' вначале оставляйте ту часть, которая будет округляться (просто исходя из символьной длины)
' допустим, это будет "с". Теперь делим "с" на "b" и частное округляем по всем правилам до
' единицы. Теперь снова умножайте на "b" и прибавляете к части входящего "а", которая не
' подлежала округлению. В результате получаем число "d".
okrugl=d
end function

допустим , а если число  82000 

 000  /  900 =  0  
 0 * 900  =  0  
 0  + 82000  =  82000  , а тут уже должно быть  81900 

т.е. математически до  900 
 420  -  0  
 450  -  900 
 449  -  0 
 1420  -  1900 
 1399  -  900 
вверх  до  900 
 420  -  900 
 440  -  900 
 800  -  900 
 901  -  1900 
и вниз до  900 
 420  -  0 
 899  -  0 
 901  -  900 
 1899  -  900