<<< 返回 access911.net 编程静态资料库索引页

如何补足凭证编号前面的零?

 

作者:  摘自:  录入:cg1  时间:2002-11-21  浏览人次:1051


专题地址:http://access911.net/fixhtm/74FAB31E.htm 如果需要更详细的评论或说明,请点击该地址。

 

简述:

 


问题:

补零函数,达到固定长度 

 


 
方法一:

Sub SampleFixedString()
    '运行示例
    
    '编号为54,完整的单据编号是5位,需要用0补足

    Debug.Print FixedString("54", 5, "0")
    
    '编号为6554,完整的单据编号是25位,需要用x补足
    Debug.Print FixedString("6554", 25, "x")
End Sub

Function FixedString(strString As String, intLen As Integer, strFillWord As String)
    '函数作用:     补足编号前面的零
    '作者:         access911
    '参数:
    '    strString      ,字符串,需要补足位数的单据编号
    '    intL.....................
...........

资料库随时有更新,欲查看最新详情请单击专题地址http://access911.net/fixhtm/74FAB31E.htm

 


上一篇:如何用VB代码破解Access打开密码?

下一篇:如何用API实现comdlg控件(公共对话框)的功能(打开文件夹窗口)?

2017年2月22日生成静态资料