将手机号码格式化成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