7,762
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
lk_cool 2004-01-16
- 打赏
- 举报
自己写一个也可以
Function CheckNum(Strc As String) As Boolean
Dim i, j As Integer
Dim Tstr As String
i = Len(Strc)
For j = 1 To i
Tstr = Mid(Strc, j, 1)
If Asc(Tstr) >= 58 Or Asc(Tstr) <= 47 Then
CheckNum = False
Exit Function
End If
Next j
CheckNum = True
End Function
Function CheckNum(Strc As String) As Boolean
Dim i, j As Integer
Dim Tstr As String
i = Len(Strc)
For j = 1 To i
Tstr = Mid(Strc, j, 1)
If Asc(Tstr) >= 58 Or Asc(Tstr) <= 47 Then
CheckNum = False
Exit Function
End If
Next j
CheckNum = True
End Function
TrunLeft 2004-01-16
- 打赏
- 举报
IsNumeric
pigsanddogs 2004-01-15
- 打赏
- 举报
先用isnumeric，然后用val
然后在
for i = 1 to len(str)
if not isnumeric(mid(str,i,1)) then exit for
next i
来过滤
然后在
for i = 1 to len(str)
if not isnumeric(mid(str,i,1)) then exit for
next i
来过滤
landongfang 2004-01-15
- 打赏
- 举报
1.23e23是数字么
是科学记数法,
isNumeric包括科学记数法
不包括科学记数法:
只能用ASCII
是科学记数法,
isNumeric包括科学记数法
不包括科学记数法:
只能用ASCII
chinaren502 2004-01-15
- 打赏
- 举报
if isNumeric("数字字符串") then
wangruijie2000 2004-01-15
- 打赏
- 举报
if not isNumeric(....) then
sanwaxubin 2004-01-15
- 打赏
- 举报
IsNumeric(expression)
acev 2004-01-15
- 打赏
- 举报
IsNumeric
mmcgzs 2004-01-15
- 打赏
- 举报
isnumeric
kmzs 2004-01-15
- 打赏
- 举报
IsNumeric(expression)
