如果VB.Net中的日期发生变化，如何重置自动编号？

Module Module1
    ' 全局变量，用于存储当前日期
    Dim currentDate As Date = Date.Today

    ' 自动编号起始值
    Dim autoNumber As Integer = 1

    Sub Main()
        ' 模拟日期发生变化
        currentDate = Date.Today.AddDays(1)

        ' 生成自动编号
        Dim generatedNumber As Integer = GenerateAutoNumber()

        Console.WriteLine("生成的自动编号为：" & generatedNumber)
        Console.ReadLine()
    End Sub

    Function GenerateAutoNumber() As Integer
        ' 检查日期是否发生变化
        If currentDate <> Date.Today Then
            ' 日期发生变化，重置自动编号
            autoNumber = 1
            currentDate = Date.Today
        End If

        ' 生成自动编号
        Dim generatedNumber As Integer = autoNumber
        autoNumber += 1

        Return generatedNumber
    End Function
End Module