Enter today's or tomorrow's date in cell based on time now

[Berko]

I have a macro that produces a report that has to be turned in with a date on it. Sometimes, the report will be prepared the night before to be turned in the following morning. Other times, the morning person will prepare the report. I need a routine in my macro that does something like

If Time(Now) > 3:50 PM Then
DepositDate = DateSerial(Year(Now), Month(Now), Day(Now) + 1)
Else
DepositDate = Date(Now)
End If

Obviously the above code is not correct, but I thought I would give an example of what I'm trying to do.

 

[Norie]

This seems to work.

If (Now - Int(Now)) > TimeValue("3:50 PM") Then
    DepositDate = DateSerial(Year(Now), Month(Now), Day(Now) + 1)
Else
    DepositDate = Date
End If

 

[Oaktree]

Try:

If TimeValue(Now) > TimeValue("3:50 PM") Then 
DepositDate = Date + 1 
Else 
DepositDate = Date
End If

 

[Berko]

Oaktree, your code is elegant and effective. Thanks!