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

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
--
HTH,
Barb Reinhardt



"Office_Novice" wrote:

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