FUN?ÃO SPLIT

JORGESALES 11/05/2015 21:42:36
#446555
estou com alguns registros no banco de dados assim (61) 33115555 e eu gostaria que ficassem assim (61)3311-5555
li alguma coisa sobre a função split para colocar um traça e tirar o espaço vazio mas não consegui.
alguém pode ajudar?
TUNUSAT 11/05/2015 22:07:42
#446556 Resposta escolhida
JORGESALES,

Veja esta função (acho que está obsoleta, mas te ensinará a usar a função [Ô]Format$[Ô]):

VB6 - Evento Validate - formatando o número do telefone.
http://www.macoratti.net/dica58.htm

Function FormataTelefone(ByVal text As String) As String     
Dim i As Long

[ô] ignora vazio
If Len(text) = 0 Then Exit Function

 [ô]verifica valores invalidos
  For i = Len(text) To 1 Step -1
    If InStr([Ô]0123456789[Ô], Mid$(text, i, 1)) = 0 Then
       text = Left$(text, i - 1) & Mid$(text, i + 1)
    End If
  Next
  [ô] ajusta a posicao correta
  If Len(text) <= 7 Then
     FormataTelefone = Format$(text, [Ô]!@@@-@@@@[Ô])
  ElseIf Len(text) > 7 And Len(text) <= 9 Then
     FormataTelefone = Format$(text, [Ô]!(@@) @@@-@@@@[Ô])
  ElseIf Len(text) > 9 Then
     FormataTelefone = Format$(text, [Ô]!(@@) @@@@-@@@@[Ô])
  End If
End Function


Aprenda mais sobre a função [Ô]Format$[Ô] do VB6:

============================================
Formatting Numbers, Dates, and Times
https://msdn.microsoft.com/en-us/library/aa241719(v=vs.60).aspx
============================================
Understanding the VB Format Function with Custom Numeric Formats
http://www.vb6.us/tutorials/understanding-vb-format-function-custom-numeric-formats
============================================

[][ô]s,
Tunusat.
Tópico encerrado , respostas não são mais permitidas
Voltar