Инфо на всякий случай: в VB и VBA функция Round(1.5,0) = 2 и Round(2.5,0) = 2
То есть, Round() – это банковское округление, а не арифметическое.
Соответственно: Round(1.235,2) = 1.24 и Round(1.245,2) = 1.24
Если нужно оставить такое банковское округление, и получить однозначность в IDE и скомпилированного варианта, то округлите, например, сначала до 3-х знаков, а затем до 2-х: Round(Round(YourDoubleValue,3),2).
Вместо 3 можно использовать 4…12.
Если же требуется арифметическое округление, то можно, например, так:
MsgBox --FormatNumber(4436.7705 - 4436.7705 / (1# + 0.18) * 0.18, 2)
или
MsgBox --Format(4436.7705 - 4436.7705 / (1# + 0.18) * 0.18, "#0.00")
Впрочем, с подобным округлением были разные варианты реализации в разных версиях OLEAUT32.dll – то банковское, то арифметическое, поэтому для арифметического округления я использую свою пользовательскую функцию, которая в раз 14 быстрее, чем приведенные выше:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
' ZVI: VBA arithmetic rounding function
' Arguments are the same as for Excel WorksheetFunction.Round(V,DecPlaces)
Function ZVI_Round(V As Double, Optional DecPlaces As Integer = 0 ) As Double
If DecPlaces < 0 Then
ZVI_Round = Round(V / 10 ^ -DecPlaces + V * 2E- 16 , 0 ) * 10 ^ -DecPlaces
Else
ZVI_Round = Round(V + V * 2E- 16 , DecPlaces)
End If
If Abs(ZVI_Round) = 0 Then ZVI_Round = 0 ' Exclude -0 return value
End Function
