[求助]帮忙看看这个取数字的函数那里不对？

hjy611

Function TrueLen(ByVal stra As String) As Long
Dim i As Integer
Dim strResult As String  '返回字串
Dim strb As String
For i = 1 To Len(stra)
        strb = Mid(stra, i, 1)
        If IsNumeric(strb) Then
            strResult = strResult + CStr(strb)
        End If
    Next i

End Function

这个代码Sub 测试就可以但在查询里用上面函数就是取不到所以数据都变成0

hjy611

Sub Macro1()

Dim stra As String
Dim strb As String
Dim strResult As String
Dim i As Integer

stra = "1111杭州"

For i = 1 To Len(stra)
        strb = Mid(stra, i, 1)
        If IsNumeric(strb) Then
            strResult = strResult + CStr(strb)
        End If
Next i

MsgBox (strResult)
End Sub
这样测试是通过了也取到了1111

一点通

用Val函数取值不行吗？为何要自己处理？

hjy611

不行啊














被叫区号








0311石家庄





022天津





010北京





022天津





022天津





0512苏州





022天津





022天津


数据是这个样子的

sgrshh29

以下是引用hjy611在2006-1-9 17:07:00的发言：


Function TrueLen(ByVal stra As String) As Long
Dim i As Integer
Dim strResult As String  '返回字串
Dim strb As String
For i = 1 To Len(stra)
        strb = Mid(stra, i, 1)
        If IsNumeric(strb) Then
            strResult = strResult + CStr(strb)
        End If
    Next i

End Function

这个代码Sub 测试就可以但在查询里用上面函数就是取不到所以数据都变成0

function 是返回值的,而sub是不返回值的.

hjy611

出来了下面是对的

Function TrueLen(stra As String) As String
Dim i As Integer, n As Byte, strb As String
n = Len(stra)
For i = 1 To n
    strb = Mid(stra, i, 1)
    If IsNumeric(strb) Then TrueLen = TrueLen + strb
Next i
End Function

一点通

为何不行呢?传例子上来看下