固定位置自增问题。。

Question

我要定义一个变量单号。。单号组成规则是 21+09+001+流水号（000）前面是固定值。后面3为流水号为自增。。如何设置自增从001开始。。最多到999的这样。。

Answer 1

Private Sub Command1_Click()
    Dim s As String
    Dim i As Long
    s = "2109001001"
    s = fun(s)
    Print s
End Sub
Private Function fun(sID As String) As String
    '21+09+001+流水号（000）
    Dim s As String
    Dim n As Long
    s = Right(sID, 3)
    n = CLng(s)
    n = n Mod 999 + 1  '001-999循环
    s = Format(n, "000")
    fun = Left(sID, 7) & s
End Function

Answer 2

dim x as long
'初始化X的值,如果没有建立单号
x=2109001001
'如果建立了单号就取最大号+1
x=最大号+1
if x<2109002000 then 
......
x=x+1
end if

Answer 3

dim x as long 
'初始化X的值,如果没有建立单号 
x=2109001001 
'如果建立了单号就取最大号+1 
x=最大号+1 
if ...... and x <2109002000 then 
...... 
x=x+1 
end if