Access像Excel RoundUp的函数

admin

Public Function Roundup As Variant(Number As Variant, NumDigits As Integer) As Double
Roundup = -Sgn(Number) * Int(-Abs(Number) * 10 ^ NumDigits) * 10 ^ -NumDigits
End Function


Function Roundup(Number As Variant) As Long
Roundup = -Sgn(Number) * Int(-Abs(Number))
End Function


Function Roundup(Number As Variant) As Variant
On Error Resume Next
Roundup = -Sgn(Number) * Int(-Abs(Number))
End Function

李力军2

只看得懂标题啊！

uncletse

非常感谢！

yusmin

学习