- Katılım
- 5 Ocak 2014
- Mesajlar
- 3,333
- Tepkime puanı
- 6
- Puanları
- 136
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
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