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)
%>