将手机号码格式化成130-1234-5678的形式。代码如下:
Function getmobinum(mobinum)
dim lf3, cen4, ri4
if len(trim(mobinum))<>11 then
getmobinum=trim(mobinum)
else
lf3=left(trim(mobinum),3)
cen4=mid(trim(mobinum),4,4)
ri4=right(trim(mobinum),4)
getmobinum=lf3&"-"&cen4&"-"&ri4
end if
End Function