Public Function RoundTwo_(S As Variant) As String
'Округлят аргумент до двух знаков
Dim X As String
Dim F As Long
X = S
For F = Len(X) To 2 Step -1 ' Если длинна уже 2 знака -выходим из функции
If Len(X) = 2 Then
RoundTwo_ = X
Exit Function
End If
If Right(X, 1) >= 5 Then ' Если последняя цифра >= 5 тогда
X = Left(X, (F - 1))
X = Left(X, (Len(X) - 1)) & Val(Right(X, 1)) + 1 ' Если последняя цифра >= 5 тогда +1
'X = X1
Else
X = Left(X, (F - 1))
'X1 = Val(X)
End If
Next F
'X1 = Val(X)
RoundTwo_ = X
Exit Function
RoundTwoErr: 'Метка обработчика ошибок
RoundTwo_ = 0
Err.Clear
End Function
|