Format Phone Number

From Starfish ETL
Revision as of 15:28, 24 July 2015 by Jkuehlthau (talk | contribs) (Created page with "<soucre lang="vb"> Function FormatPhone(ph) dim phone phone=ph phone = Replace(phone,"(","") phone = Replace(phone,")","") phone = Replace(phone," ","") phone = Replace...")
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to navigation Jump to search

<soucre lang="vb"> Function FormatPhone(ph) dim phone phone=ph

phone = Replace(phone,"(","") phone = Replace(phone,")","") phone = Replace(phone," ","") phone = Replace(phone,".","") phone = Replace(phone,"-","") phone = lcase(phone) if Len(phone)=11 and Left(phone,1)="1" then phone=Mid(phone,2)

if Len(phone)=10 then FormatPhone = "(" & mid(phone,1,3) & ")" & mid(phone,4,3) & "-" & mid(phone,7) elseif Len(phone)>10 then if mid(phone,11,1)="x" then FormatPhone = "(" & mid(phone,1,3) & ")" & mid(phone,4,3) & "-" & mid(phone,7) else FormatPhone = ph end if else FormatPhone = ph end if End Function </source>