Vb.net 检测系统日期更改，visual Basic

我正在使用Visual Basic 2010在Windows-7上编写一个应用程序。我正在使用访问系统日期

Dim today As Integer
today = Format(Now, "dd")

嗯，那很好。但是当系统日期更改时，我需要一些指示/通知，以便检索新日期。有什么功能/方法可以实现这一点吗？

---

谢谢

由于两个原因，系统日期可能会更改：

用户手动更改了系统日期/时间。这可以使用以下描述的方法检测：

时间流逝，时钟从23:59:59到00:00:00。我不知道有什么系统事件会告诉你什么时候发生这种情况，但是你可以使用VB6中的定时器很容易地检测到它。通过使用计时器，您将以预定义的间隔获取事件。然后，您可以每分钟检查一次日期是否更改。
要使用标准VB6计时器控件，您需要一个窗体，在该窗体上放置计时器，但还有其他选择，例如：

我的代码示例使用表单上的标准VB6计时器来监视“分钟内的变化”。我的计时器控件的原始名称为Timer1

Dim iMinute As Integer  'The "current" minute

Private Sub Form_Load()
    'Initialize
    iMinute = Format(Now, "n") 'Get the current time as minute
    Timer1.Interval = 1000 'Set interval = 1000 milliseconds
    Timer1.Enabled = True 'Start Timer1 (my Timer)
End Sub

Private Sub Timer1_Timer()
    'This happens when the given Interval has passed (in this case, every second)
    Dim iMinuteNow As Integer

    iMinuteNow = Format(Now, "n") 
    If iMinuteNow <> iMinute Then  
        MsgBox "You are now in a new minute"
        iMinute = iMinuteNow
    End If
End Sub

Dim iMinute As Integer“当前”分钟
专用子表单_加载（）
“初始化
iMinute=Format（现在为“n”）'以分钟为单位获取当前时间
计时器1.间隔=1000'设置间隔=1000毫秒
Timer1.Enabled=True'启动计时器1（我的计时器）
端接头
专用子定时器1_Timer（）
'当给定的间隔已过时（在本例中，每秒钟一次）会发生这种情况
Dim iMinuteNow为整数
iMinuteNow=格式（现在为“n”）
如果没有，那么
MsgBox“您现在进入了新的一分钟”
iMinute=iMinuteNow
如果结束
端接头

系统日期的更改可能有两个原因：

用户手动更改了系统日期/时间。这可以使用以下描述的方法检测：

时间流逝，时钟从23:59:59到00:00:00。我不知道有什么系统事件会告诉你什么时候发生这种情况，但是你可以使用VB6中的定时器很容易地检测到它。通过使用计时器，您将以预定义的间隔获取事件。然后，您可以每分钟检查一次日期是否更改。
要使用标准VB6计时器控件，您需要一个窗体，在该窗体上放置计时器，但还有其他选择，例如：

我的代码示例使用表单上的标准VB6计时器来监视“分钟内的变化”。我的计时器控件的原始名称为Timer1

Dim iMinute As Integer  'The "current" minute

Private Sub Form_Load()
    'Initialize
    iMinute = Format(Now, "n") 'Get the current time as minute
    Timer1.Interval = 1000 'Set interval = 1000 milliseconds
    Timer1.Enabled = True 'Start Timer1 (my Timer)
End Sub

Private Sub Timer1_Timer()
    'This happens when the given Interval has passed (in this case, every second)
    Dim iMinuteNow As Integer

    iMinuteNow = Format(Now, "n") 
    If iMinuteNow <> iMinute Then  
        MsgBox "You are now in a new minute"
        iMinute = iMinuteNow
    End If
End Sub

Dim iMinute As Integer“当前”分钟
专用子表单_加载（）
“初始化
iMinute=Format（现在为“n”）'以分钟为单位获取当前时间
计时器1.间隔=1000'设置间隔=1000毫秒
Timer1.Enabled=True'启动计时器1（我的计时器）
端接头
专用子定时器1_Timer（）
'当给定的间隔已过时（在本例中，每秒钟一次）会发生这种情况
Dim iMinuteNow为整数
iMinuteNow=格式（现在为“n”）
如果没有，那么
MsgBox“您现在进入了新的一分钟”
iMinute=iMinuteNow
如果结束
端接头

次要的一点是，Visual Basic 2010是VB.Net，而不是VB6。您的代码显然不是任何特定的变体，因此我留下了标记。次要的一点是，VisualBasic2010是VB.Net，而不是VB6。您的代码显然不是任何特定的变体，因此我留下了标记。