Как округлить число до кратного заданному?

[Atil]

Есть ли формула или алгоритм для округления числа до кратного заданному.

надо к 10,
Т.е. 387.05 округлить как 390 или просто 387 округлить как 390

[vvs_adm]

Код: Выделить всё

Dim X as Single
Dim Y as Integer
...
X = CInt(X / Y) * Y

[Atil]

Спасибо! То что надо!