Publicação Ler

Função Formatar numero de celular em ASP

Função Formatar numero de celular em ASP

<%

Function FormatarCelular(numero)
    Dim ddd, parte1, parte2, tamanhoNumero
    
    ' Extrair o DDD (primeiros dois dígitos)
    ddd = Left(numero, 2)
    
    ' Calcular o tamanho do número (sem o DDD)
    tamanhoNumero = Len(numero) - 2
    
    If tamanhoNumero = 9 Then
        ' Extrair os cinco primeiros dígitos do número (para celulares com 9 dígitos)
        parte1 = Mid(numero, 3, 5)
        
        ' Extrair os quatro últimos dígitos do número
        parte2 = Right(numero, 4)
    Else
        ' Extrair os quatro primeiros dígitos do número (para celulares com 8 dígitos)
        parte1 = Mid(numero, 3, 4)
        
        ' Extrair os quatro últimos dígitos do número
        parte2 = Right(numero, 4)
    End If
    
    ' Formatar o número no formato (XX) XXXX-XXXX ou (XX) XXXXX-XXXX
    FormatarCelular = "(" & ddd & ") " & parte1 & "-" & parte2
End Function

' Exemplo de uso
Dim celular
celular = "41996991234"
Response.Write FormatarCelular(celular)

%>

instagram whatsapp