MsgBox (time based)

**C.L.A.N. 0³** · 06-05-2009, 01:45 PM

Hello,

I would like to have a MsgBox that displays a warning (only) between 00:00 and 06:00 in the morning.
Between 06:01 and 23:59 there is no need for a warning.

Here's what I have right now:

Sub Macro_01()
    If ................................
    MsgBox "Opgepast, het is nu " & Format(Time, "hh:mm,") & vbNewLine & "werd de juiste datum geselecteerd?", vbExclamation, "Waarschuwing!"
    End If
    Workbooks.Open Filename:="xxx.xls"
End Sub

Thanks in advance for any help,
Chris

**Leith Ross** · 06-05-2009, 02:21 PM

Hello Chris,

Welcome to the Forum!

This will display the message bewteen midnight (00:00) and 6:00 am (06:00).

  Dim N, T1, T2
  
    N = TimeValue(Now())
    T1 = TimeSerial(0, 0, 0)
    T2 = TimeSerial(6, 0, 0)
    
    If N >= T1 And N <= T2 Then
       MsgBox "Opgepast, het is nu " & Format(Time, "hh:mm,") _
              & vbNewLine & "werd de juiste datum geselecteerd?", _
              vbExclamation, "Waarschuwing!"
    End If

**C.L.A.N. 0³** · 06-05-2009, 03:00 PM

Thanks for the fast reply!

Can I also do:

    If Format(Time, "hh:mm") < "06:00" Then

It works but I don't know if it's right.

Thanks,
Chris

**Leith Ross** · 06-05-2009, 03:34 PM

Hello Chris,

You're comparing strings instead of actual time values. I prefer the numbers to strings due to differences in international date/time formats. If it works for you then by all means use it.