Округление числа с требуемой кратностью.

[n@sh 0]

Здравствуйте!

Подскажите, пожалуйста, как написать макрос на Visual Basic (файл *.BAS) или может уже существует такой макрос для ST4, чтобы округление числа производилось до кратности 5 (точность до которого требуется округлить) т.е. пример: 3,852 ~ 5; 4,9 ~ 5; 5,1 ~ 10.

Данный макрос можно сравнить с функцией в Excel ОКРВВЕРХ(число; точность)

Число — это округляемое значение. Точность — это кратное, до которого требуется округлить.

[Tiro 12]

Здравствуйте!

Подскажите, пожалуйста, как написать макрос на Visual Basic (файл *.BAS) или может уже существует такой макрос для ST4, чтобы округление числа производилось до кратности 5 (точность до которого требуется округлить) т.е. пример: 3,852 ~ 5; 4,9 ~ 5; 5,1 ~ 10.

Данный макрос можно сравнить с функцией в Excel ОКРВВЕРХ(число; точность)

Число — это округляемое значение. Точность — это кратное, до которого требуется округлить.

Не знаю бейсик, но алгоритм простой:

Х - число

У1 = Х div 5 - частное от деления на 5

У2 = Х mod 5 - остаток от деления на 5

если У2 > 0 то У2 = 1

У = 5 * (У1+У2)

Но из-за ограниченной точности представления чисел я б считал так:

у1 = целое (х)

у1 = у1 / 5

у2 = х - (вещественное) 5 *у1

если у2 > 0 то у3 = целое (1)

у = 5 * (у1+у3)

Изменено 21 октября 2011 пользователем Tiro