instancenumber.cls

来自「数字处理函数包(5KB)15datediff.zip指定两个日期计算相隔的天数」· CLS 代码 · 共 37 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "clsInstanceNumber"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Option Explicit

Private Numbers() As Long
Private Count     As Long
Public Function GetNext() As Long

Dim i As Integer

   For i = 1 To Count
      If Numbers(i) = 0 Then
         Numbers(i) = i
         GetNext = i
         Exit Function
      End If
   Next i
   Count = Count + 1
   ReDim Preserve Numbers(Count)
   Numbers(Count) = Count
   GetNext = Count

End Function

Public Sub Reset(ByVal Number As Long)

   Numbers(Number) = 0

End Sub