Need help with a date

[Office_Novice]

This is part of a larger macro. What i need is on fridays after 3:30p for the
date in my textbox to goto the next work day. any ideas? Any help will be
great.


With Me.qcDte
Dim MyTime
MyTime = #3:30:00 PM#
If Time > MyTime Then
.Value = Date + 1
End If
If Time < MyTime Then
.Value = Date
End If
End With

 

[Barb Reinhardt]

Use this function to get the weekday

If Weekday(Date, vbMonday) = 5 And Time > "3:30 PM" Then
'Execute what you want to do for Friday after 3:30
End if