Function FormatPhoneNumbers(ByVal strInputPhoneNumber As String) As String
'Strip off the ( , ) and -
Dim strPhoneNumber As String
strInputPhoneNumber = strInputPhoneNumber.Replace(" ", "")
strInputPhoneNumber = strInputPhoneNumber.Replace("(", "")
strInputPhoneNumber = strInputPhoneNumber.Replace(")", "")
strInputPhoneNumber = strInputPhoneNumber.Replace("-", "")
'Now format it
If strInputPhoneNumber.Length >= 3 Then
strPhoneNumber = "(" & strInputPhoneNumber.Substring(0, 3) & ") "
If strInputPhoneNumber.Length < 6 Then
strPhoneNumber = strPhoneNumber & strInputPhoneNumber.Substring(3,
strInputPhoneNumber.Length - 3)
Else
strPhoneNumber = strPhoneNumber & strInputPhoneNumber.Substring(3,
3) & "-" & strInputPhoneNumber.Substring(6)
End If
End If
Return strPhoneNumber
End Function
--
Swanand Mokashi
Microsoft Certified Professional
http://www.swanandmokashi.com/
Home of the Stock Quotes, Quote of the day and Horoscope web services
"Eddy Soeparmin" <es********@clientprofiles.com> wrote in message
news:%2****************@TK2MSFTNGP10.phx.gbl...
Hi Ray,
No, this is not at validation. It's for display. For example, I just
retrieved data from database and would like to display phone number in
(123) 123-1234 format within a datagrid.
Eddy
"Ray Dixon [MVP]" <ra*@NOSPAM.greeble.com> wrote in message
news:uu**************@TK2MSFTNGP12.phx.gbl... Hi Eddy,
If you are validating input, you can use a RegularExpressionValidator
and select U.S. Phone Number in the Regular Expression Editor (by clicking
the elipses in the ValidationExpression box in the
RegularExpressionValidator's Properties window).
--
Ray Dixon - Microsoft MVP
ra*@NOSPAM.greeble.com
(remove NOSPAM. from my e-mail address for a direct reply)
"Eddy Soeparmin" <es********@clientprofiles.com> wrote in message
news:uC**************@TK2MSFTNGP11.phx.gbl... Hi,
How do I apply phone format in a string field? for example (770)
123-1234. Please let me know.
Thanks.
Eddy
