ник: grafin
Спасибо за ссылку, а то я слышал звон , но не помнил, откуда. Однако...
Берем рекомендованную
Function SymArith(ByVal X As Double, _
Optional ByVal Factor As Double = 1) As Double
SymArith = Fix(X * Factor + 0.5 * Sgn(X)) / Factor
Заряжаем
?symarith(0.15,10)
X * Factor + 0.5 * Sgn(X)= 2
Fix(X * Factor + 0.5 * Sgn(X))= 1
0,1
Не понял... Проверяю
?fix(2)
2
Ага, вроде Fix работает
В общем началость округление к нечетным, вместо банковского округления к четным
?symarith(0.25,10)
0,3
?symarith(0.35,10)
0,3
_______________
Через пол-часа...
Еще несколько пасов и ...
Dim C as Double
C = X * Factor + 0.5 * Sgn(X)
SymArith = Fix(C)/ Factor
и все в ажуре
?SymArith(0.15,1)
0,2
Однако....