Здравствуйте.
Прошу Вашей помощи в реализации vbscript(а) для инженерной программы Solid Edge. Возможно поможет рисунок для дополнительной информации см. ниже.
Для программистов это может показаться не сложным программным кодом но для меня написание скрипта вызывает ОГРОМНУЮ СЛОЖНОСТЬ.
Задача скрипта состоит в округлении числа пример:
От 130 до числа 132 идёт округление до целевого числа 130:
- 130 ~ 130;
- 131 ~ 130;
- 132 ~ 130;
От 133 до числа 135 идёт округление до целевого числа 135:
- 133 ~ 135;
- 134 ~ 135;
- 135 ~ 135.
Задачу округления я решил с помощью алгоритма Excel:
=ЕСЛИ(ОКРВВЕРХ(ЕСЛИ(ОСТАТ(ОКРУГЛ(E3;0);5)>0;5*(ЧАСТНОЕ(ОКРУГЛ(E3;0);5)+1);5*(ЧАСТНОЕ(ОКРУГЛ(E3;0);5)+ОСТАТ(ОКРУГЛ(E3;0);5)));5)-ОКРУГЛ(E3;0)<3;ОКРВВЕРХ(ЕСЛИ(ОСТАТ(ОКРУГЛ(E3;0);5)>0;5*(ЧАСТНОЕ(ОКРУГЛ(E3;0);5)+1);5*(ЧАСТНОЕ(ОКРУГЛ(E3;0);5)+ОСТАТ(ОКРУГЛ(E3;0);5)));5);ОКРВВЕРХ(ЕСЛИ(ОСТАТ(ОКРУГЛ(E3;0);5)>0;5*(ЧАСТНОЕ(ОКРУГЛ(E3;0);5)+1);5*(ЧАСТНОЕ(ОКРУГЛ(E3;0);5)+ОСТАТ(ОКРУГЛ(E3;0);5)));5)-5)
, где E3 – это переменная (ячейка) вещественного числа.
Благодарю Вас за внимания.