28,391
社区成员
发帖
与我相关
我的任务
分享
'格式化字符串是为纯正整数数字
'原字符串为数字:返回整数部分
'原字符串含为非数字字符:返回0
Function IsNum(ByVal str As String) As String
If IsNumeric(str) Then
str = Abs(Fix(str))
Else
str = 0
End If
IsNum = str
End Function