|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Validações)
|
|
 |
Título da Dica: Função que formata números de telefones
|
 |
|
|
|
Postada em 16/3/2007 por LCRamos
Public Function sFONE(srFONE As String) As String
Dim fFONE As String
Dim iTAM As Integer
Dim ix As Integer
Dim cCHAR As String
ix = 1
iTAM = Len(srFONE)
For ix = 1 To iTAM
cCHAR = Mid(srFONE, ix, 1)
If cCHAR = "0" Or cCHAR = "1" Or cCHAR = "2" Or cCHAR = "3" Or _
cCHAR = "4" Or cCHAR = "5" Or cCHAR = "6" Or cCHAR = "7" Or cCHAR = "8" Or cCHAR = "9" Then
fFONE = fFONE & cCHAR
End If
Next ix
srFONE = fFONE
iTAM = Len(srFONE)
If iTAM > 0 Then
Select Case iTAM
Case 7
fFONE = Left(srFONE, 3) & "-" & Right(srFONE, 4)
Case 8
fFONE = Left(srFONE, 4) & "-" & Right(srFONE, 4)
Case 9
fFONE = "(" & Left(srFONE, 2) & ") " & Mid(srFONE, 3, 3) & "-" & Right(srFONE, 4)
Case 10
fFONE = "(" & Left(srFONE, 2) & ") " & Mid(srFONE, 3, 4) & "-" & Right(srFONE, 4)
Case 11
fFONE = "(" & Left(srFONE, 3) & ") " & Mid(srFONE, 4, 4) & "-" & Right(srFONE, 4)
Case 12
fFONE = "(" & Left(srFONE, 5) & ") " & Mid(srFONE, 6, 3) & "-" & Mid(srFONE, 9, 4)
Case 13
fFONE = "(" & Left(srFONE, 5) & ") " & Mid(srFONE, 6, 4) & "-" & Mid(srFONE, 10, 4)
Case Else
fFONE = ""
End Select
End If
srFONE = fFONE
sFONE = srFONE
End Function
|
|
|
|
|
