1 Function GetNumber(num As Variant) As Double2 If (IsNull(num)) Then3 GetNumber = 04 Else5 GetNumber = CDbl(num)6 End If7 End Function 相关文章: