IDC资讯中心
public function telc(num as string) as string
dim tl as integer
dim ltem, rtem, ttem as string
dim ti as integer
ttem = ""
tl = len(num)
if tl > 14 then
num = mid(num, 1, 14)
tl = 14
end if
if tl = 11 then
tl = tl + 2
num = "86" & num
end if
if tl mod 2 = 1 then
tl = tl + 1
num = num + "f"
end if
for ti = 1 to tl step 2
ttem = ttem & mid(num, ti + 1, 1) & mid(num, ti, 1)
next ti
telc = ttem
end function
