自定义函数

Question

自定义函数

Answer 1

Function NumberRound(ByVal value As Double, ByVal mode As Integer) As Double
    Select Case mode
    Case 1      '四舍五入
        NumberRound = Round(value, 2)
    Case 2      '取整
        NumberRound = Fix(value)
    Case Else   '不做处理
        NumberRound = value
    End Select
End Function

Answer 2

'Optional ByVal mode As Integer = 1 指默认为四舍五入；
Function NumberRound(ByVal value As Double, Optional ByVal mode As Integer = 1) As Double
    Select Case mode
    Case 1      '四舍五入
        NumberRound = Round(value, 2)
    Case 2      '取整
        NumberRound = Fix(value)
    Case Else   '不做处理
        NumberRound = value
    End Select
End Function