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