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