Telefon Nosu Formatı

[DeadGhost]

Private Function TelFormat(TelNo As String) As String

If Len(Trim(TelNo)) <= 7 Then TelFormat = ""

'7725410 -> 772 54 10
If Len(Trim(TelNo)) = 7 Then _
TelFormat = Mid(TelNo, 1, 3) + " " + Mid(TelNo, 4, 2) + " " + _
Mid(TelNo, 6, 2)

' 2667725410 -> (266) 772 54 10
If Len(Trim(TelNo)) = 10 Then _
TelFormat = "(" + Mid(TelNo, 1, 3) + ") " + Mid(TelNo, 4, 3) + _
" " + Mid(TelNo, 7, 2) + " " + Mid(TelNo, 9, 2)
' 02667725410 -> (266) 772 54 10

If Len(Trim(TelNo)) = 11 Then _
TelFormat = "(" + Mid(TelNo, 2, 3) + ") " + Mid(TelNo, 5, 3) + _
" " + Mid(TelNo, 8, 2) + " " + Mid(TelNo, 10, 2)
End Function

Private Function TelSakla(Parametre As String) As String
TelSakla = Replace(Parametre, " ", "")
TelSakla = Replace(TelSakla, "(", "")
TelSakla = Replace(TelSakla, ")", "")
End Function

 

[OptiMistics]

Teşekkürler.

 

[kutlucan1]

Teşekkürler.