A function of automatic renewal
Function FormatSn (GetNum, GetBit)
Dim FormatsnnnUM, FormatSnpre, FormatSnj
FormatSnnum = getBit - Len (GetNum)
For FormatSnj = 1 to FormatSnnum
FormatSnpre = FormatSnpre & "0"
NEXT
Formatsn = FormatSnpre & GetNum
END FUNCTION
How to use formatsn (getNum, getBIT)
GetNum count
GetBit a total of several
