[Resolvido] Formatando número de telefone

[xanburzum 169]

Formatando número de telefone

 

<%
Private Function Numfone(byVal number)
	Dim tmp
	number = CStr( number )
	number = Trim( number )
	number = Replace( number, " ", "" )	
	number = Replace( number, "-", "" )
	number = Replace( number, "(", "" )
	number = Replace( number, ")", "" )
	Select Case Len( number )
		Case 7
			tmp = tmp & Mid( number, 1, 3 ) & "-"
			tmp = tmp & Mid( number, 4, 4 )
		Case 10
			tmp = tmp & "(" & Mid( number, 1, 3 ) & ") "
			tmp = tmp & Mid( number, 4, 3 ) & "-"
			tmp = tmp & Mid( number, 7, 4 )
		Case 11
			tmp = tmp & Mid( number, 1, 1 ) & " "
			tmp = tmp & "(" & Mid( number, 2, 3 ) & ") "
			tmp = tmp & Mid( number, 5, 3 ) & "-"
			tmp = tmp & Mid( number, 8, 4 )
		Case Else
			Numfone= Null
			Exit Function
	End Select
	Numfone= tmp
End Function
%>

e usando

 

<%
response.write Numfone( 3301452 )
 ' retorna "330-1452"
response.write Numfone( 8007771452 )
 ' retorna "(800) 777-1452"
response.write Numfone( 18007771452 )
 ' retorna "1 (800) 555-1452"
response.write Numfone( "X51452" )
 ' retorna "XA5-1452"
response.write Numfone( "1-800-CALL-XAN" )
 ' retorna "1 (800) CALL-XAN"
response.write Numfone( "1 800 CALL XAN" )
 ' retorna "1 (800) CALL-XAN"
response.write Numfone( "33-02-62-65" )
 ' retorna NULL - comprimento incorreto após o "-" 
%>