7,789
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
hemeijun81 2003-09-27
- 打赏
- 举报
isnumeric()函数先判断一下
scmydg 2003-09-27
- 打赏
- 举报
cuizm(射天狼) :
如果是val("ab123")的话，返回的是0
northwolves(野性的呼唤) :
谢谢，我主要是想知道有没有函数！
如果是val("ab123")的话，返回的是0
northwolves(野性的呼唤) :
谢谢，我主要是想知道有没有函数！
northwolves 2003-09-26
- 打赏
- 举报
Function getnum(ByVal x As String) As String
Do While Not IsNumeric(x)
For i = 1 To Len(x)
If Not IsNumeric(Mid(x, i, 1)) Then x = Replace(x, Mid(x, i, 1), "")
Next
Loop
getnum = x
End Function
Do While Not IsNumeric(x)
For i = 1 To Len(x)
If Not IsNumeric(Mid(x, i, 1)) Then x = Replace(x, Mid(x, i, 1), "")
Next
Loop
getnum = x
End Function
踏平扶桑 2003-09-26
- 打赏
- 举报
如果不行就用for函数来判断吧
hcj2002 2003-09-26
- 打赏
- 举报
kmzs(.:RNPA:.山水岿濛)
应该是：‘0’--‘9’吧
应该是：‘0’--‘9’吧
kmzs 2003-09-26
- 打赏
- 举报
一个一个看，不是“0”-“1”就不是数字，是就&到另一个变量中
aha99 2003-09-26
- 打赏
- 举报
可以进行把数字取出来之后，再用val
射天狼 2003-09-26
- 打赏
- 举报
Val中以啊,
MsgBox Val("123sdlkfj")
返回的是123
其它函数如果有字符就出错!!
MsgBox Val("123sdlkfj")
返回的是123
其它函数如果有字符就出错!!
horsefly 2003-09-26
- 打赏
- 举报
isnumeric()
haipingma 2003-09-26
- 打赏
- 举报
cdbl
CInt
CLng
CInt
CLng
jlum99 2003-09-26
- 打赏
- 举报
这是当然.有字符怎么能当成是数字来转换啊?
