نوشته شده توسط
oskarimbns2621
با سلام و احترام برنامه خوبی بود من هم خیلی بهش نیاز داشتم ولی برنامه ای که من نوشتم شماره نامه را می خواد از متن نامه جدا کنه که با توجه به اینکه تعداد اعدادش 16 رقمه ارور می ده میشه راهنمایی بفرمایید چطوری این مشکلو حل کنم ؟
چون خروجی تابع معرفی شده از نوع LONG INTEGER هست به محدودیت برمیخورید.
تابع رو بصورت زیر ویرایش کنید:
Function NumberInText(strNumAndText As VARIANT) As VARIANT
strNumAndText = Nz(strNumAndText, "0")
Dim k As Integer
Dim N As String
For k = 1 To Len(strNumAndText)
If IsNumeric(Mid(strNumAndText, k, 1)) Then
N = N & Mid(strNumAndText, k, 1)
End If
Next
NumberInText = CDEC(N)
End Function
تا 28 رقم جواب میده