等长度数位编号生成函数
Function len_string(var,num) 'var 为传入的数值,num为格式成多少位
Dim tmpvar
if not(isnumeric(num)) or num<1 then len_string=var:exit function
if len(cint(var))>num then
tmpvar=left(var,num)
else
tmpvar=String(num-len(cint(var)),"0")&cint(var)
end if
len_string=tmpvar
End Function
以上函数 要求传入的var 为数字,否则不予以转换。