[5分]如何生成这样的单号

Public Function GetNewNum(byval billtype as string,byval username as string,byval supplier as string,dt as date) as string
    '功能：返回新单号
    '参数：billtype -- 单据类型
    '      username -- 用户名
    '      supplier -- 供应商
    '      dt       -- 日期
    Dim MaxNum as string
    Dim wh as string
    Dim str as string

    wh="单据类型='{0}' and 用户名='{1}' and 供应商='{2}' and 录入日期=#{3}#"
    wh=ReplaceValues(wh,billtype,username,supplier,dt)

    str="{0}_{1}_{2}_{3}_"
    wh=ReplaceValues(str,billtype,username,supplier,dt)


    MaxNum=Nz(Dmax("单号","阁下的表名",wh ),str & "00")

    GetNewNum=str & Format(val(right(MaxNum,2))+1,"00")
End Function


Public Function ReplaceValues(ByVal str As String, ParamArray pArr() As Variant) As String
    '功能：模仿.Net中的String.Format方法
    Dim str1  As String
    Dim num As String
    Dim i As Integer
    str1 = str
    For i = 0 To UBound(pArr)
        num = "{" & i & "}"
        str1 = Replace(str1, num, pArr(i))
    Next
    ReplaceValues = str1
End Function