[RESOLVED] Date Change

[Geeter27]

I am trying to recognize a change in date from todays. Basically, when the date changes at midnight or 12:01...(whatever it is on the pc). Here is what I have so far...this is not working though, the message box pops up immediately. Thanks in advance

Private Sub Timer1_Timer()
    Static smi_date As Integer
    
    If smi_date <> Day(Now) Then
        MsgBox ("Hello, New Day")
        smi_date = Day(Now)
    End If
End Sub

[Frans C]

The first time the timer is triggered, the variable has value 0, so it has a different value then the current day.

Private Sub Timer1_Timer()
    Static smi_date As Integer
    If smi_date = 0 Then smi_date = Day(Now)
    
    If smi_date <> Day(Now) Then
        MsgBox ("Hello, New Day")
        smi_date = Day(Now)
    End If
End Sub

[Geeter27]

That would make sense, I forgot it isn't inititalized...Thank you Frans!!