# USING THE NESTED IF FUNCTION TO SEE IF A TIME DATE VALUE IS T OR F

G

#### Guest

If time is between 7am and 11am = morning
If time is between 12pm and 5 pm = afternoon
If time is > 5pm and < 7pm = Evening
If time is between 7pm and 11pm = Night
If time is between 12am and 6am = midnite

I am having trouble getting the time component of the "DATE TIME" 6/02/03
12:21 AM - to be evaluated by the formula.
Any help would be greatly appreciated

Thanks

S

#### Sandy

Are you trying to do this in a formula or VBA?

S

#### Sandy

Here's a VBA Function that might help
Click alt+F11 to open VBE (visual basic editor). Click Insert ==>
Module, paste the code below into the window.

Function TimeTest(ByVal target As Date) As String
On Error Resume Next
If TimeValue(target) >= #7:00:00 AM# And TimeValue(target) < #12:00:00
PM# Then
TimeTest = "Morning"
ElseIf TimeValue(target) >= #12:00:00 PM# And TimeValue(target) <
#5:00:00 PM# Then
TimeTest = "Afternoon"
ElseIf TimeValue(target) >= #5:00:00 PM# And TimeValue(target) <
#7:00:00 PM# Then
TimeTest = "Evening"
ElseIf TimeValue(target) >= #7:00:00 PM# And TimeValue(target) <
#12:00:00 AM# Then
TimeTest = "Night"
ElseIf TimeValue(target) >= #12:00:00 AM# And TimeValue(target) <
#7:00:00 AM# Then
TimeTest = "Midnight"
Else
TimeTest = "Error"
End If
End Function

is the cell you want to test, ie. =TimeTest(A1)

hope this work for you

Sandy

S

#### Sandy

Here's a VBA Function that might help
Click alt+F11 to open VBE (visual basic editor). Click Insert ==>
Module, paste the code below into the window.

Function TimeTest(ByVal target As Date) As String
On Error Resume Next
If TimeValue(target) >= #7:00:00 AM# _
And TimeValue(target) < #12:00:00 PM# Then
TimeTest = "Morning"
ElseIf TimeValue(target) >= #12:00:00 PM# _
And TimeValue(target) < #5:00:00 PM# Then
TimeTest = "Afternoon"
ElseIf TimeValue(target) >= #5:00:00 PM# _
And TimeValue(target) < #7:00:00 PM# Then
TimeTest = "Evening"
ElseIf TimeValue(target) >= #7:00:00 PM# _
And TimeValue(target) < #12:00:00 AM# Then
TimeTest = "Night"
ElseIf TimeValue(target) >= #12:00:00 AM# _
And TimeValue(target) < #7:00:00 AM# Then
TimeTest = "Midnight"
Else
TimeTest = "Error"
End If
End Function

is the cell you want to test, ie. =TimeTest(A1)

hope this work for you

Sandy

D

#### David Biddulph

You have been incnsistent as to where you drew your boundaries in some
cases, but try
=IF(HOUR(A1)<7,"midnite",IF(HOUR(A1)<12,"morning",IF(HOUR(A1)<17,"afternoon",IF(HOUR(A1)<19,"Evening","Night"))))