msg on time

[john tindell]

hey, ive got a command button and i want to display a message depending in the time, eg goodmoring, good evening ect.

can any one help me out

Dim i As Variant
i = Time
If "00:00:00" > i < "03:00:00" Then
    MsgBox "GoodEarly Early Moring"
    End If
If "03:00:01" > i < "12:00:00" Then
    MsgBox "GoodMoring"
    End If
If "12:00:01" > i < "17:00:00" Then
    MsgBox "Good Afternoon"
    End If
If "17:00:01" > i < "23:59:59" Then
    MsgBox "Good Night"
    End If

thanks

[Hack]

Here is something to get you going.

Private Sub Command1_Click()
Dim MyTime As String
MyTime = "11:30"
MyTime = Format(MyTime, "hh:ss")
If Time > MyTime Then
   MsgBox "good afternoon"
End If
End Sub

[nateobot]

I think this is what you need.
Might want to double check first.

Dim i As Variant
i = Time
If i < "23:59:59" Then
    If i < "17:00:00" Then
        If i < "12:00:00" Then
            If  i < "03:00:00" Then
                MsgBox "GoodEarly Early Moring"
            end if            
        else
            MsgBox "GoodMoring"
        end if
     else
            MsgBox "Good Afternoon"
     end if
else 
    MsgBox "Good Night"
end If