一聚教程网:一个值得你收藏的教程网站

热门教程

一段自动补位的函数(ASP)

时间:2022-07-02 23:22:49 编辑:袖梨 来源:一聚教程网

一段自动补位的函数
Function FormatSn(getNum,getBit)
Dim FormatsnNum,Formatsnpre,Formatsnj
FormatsnNum = getBit - len(getNum)
For Formatsnj = 1 To FormatsnNum
Formatsnpre = Formatsnpre & "0"
Next
FormatSn = Formatsnpre & getNum
End Function
使用方法 FormatSn(getNum,getBit)
getNum 计数
getBit 共几位

热门栏目