|
|
|
|
| |
Telefon Nosu Formatı
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
|
|
|
|
|
|
| |
29 Ekim 2007'den beri 24633 ziyaretçi (38781 klik)
Copyrigh(c)2007, Ali AKMAZ All right reserved
|
|
|
|
|
|
|
|
