VB 字母+日期+数字 自动编号
如 sn2008051601  
同一天的 从sn2008051601   sn2008051602 ……每生成一条记录 后面的数字自动+1
日期变了 自动从01开始
代码应该怎么写？

[[it] 本帖最后由 灵云幽风 于 2008-5-17 00:18 编辑 [/it]]

Option Explicit

Public Function TreasuryNo(sNo As String) As String
    TreasuryNo = Format$(Now, "yyyyMMdd")
    If TreasuryNo <> Mid$(sNo, 3, 8) Then
        TreasuryNo = "sn" & TreasuryNo & "0001"
    Else
        TreasuryNo = "sn" & Right$(sNo, 12) + 1
    End If
End Function
   
Private Sub Command1_Click()
    Text1.Text = TreasuryNo(Trim$(Text2.Text))
End Sub
Text2.Text值来源于 某个表 编号字段的最后一个数据

日期相同时，是一个简单的递增，但是日期不同时，需要一个判断是否归0，从新开始计数！