等长度数位编号生成函数，不足位用零补足

 

 

等长度数位编号生成函数

 

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 为数字，否则不予以转换。

 

 

 

www.pass0.com