how to determine morning,afternoon,evening.

[LiveSys]

hi,phil
fine here.
there ?

how to indentify system time is a (morning/afternoon/evening/night).

thanks..
-LiveSys

[Steve Grant]

MsgBox Format$(Time, "Long Time")

[Phil Weber]

First, you need to define which hours you consider morning, afternoon, evening and night. Let's say 5:00 a.m. to noon are morning, noon to 5:00 p.m. are afternoon, 5:00 to 9:00 p.m. are evening, and 9:00 p.m. to 5:00 a.m. are night.

Then you compare the current time against those brackets:

Dim hr As Integer

hr = Hour(Now)
Select Case hr
    Case Is >= 21
        MsgBox "Good night"
    Case Is >= 17
        MsgBox "Good evening"
    Case Is >= 12
        MsgBox "Good afternoon"
    Case Is >= 5
        MsgBox "Good morning"
End Select

[LiveSys]

perfect.

thanks phil,
-LiveSys