VBA, MS Access MS Access в примерах

Очистка номера телефона от всех символов (кроме цифр)

Public Function CleanPhoneNo(vDirtyNo As Variant) As Variant
'Очистка номера телефона от всех символов кроме цифр (для последующего поиска например)
'--------------------------------------------------------------------
Dim s As String
Dim t As String
Dim i As Integer, x As Integer

On Error GoTo CleanPhoneNo_Err
    
    s = CStr(vDirtyNo)
    x = Len(s)
    For i = 1 To x
        t = Mid(s, i, 1)
        If IsNumeric(t) Then
            CleanPhoneNo = CleanPhoneNo & t
        End If
    Next i
    
CleanPhoneNo_Bye:
    Exit Function

CleanPhoneNo_Err:
    CleanPhoneNo = Null
    Err.Clear
    Resume CleanPhoneNo_Bye
End Function


Назад ToTop
L.E. 23.02.2019
Рейтинг@Mail.ru