Need help with a date

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Office_Novice - 30 Apr 2008 22:57 GMT

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

Reply to this Message

Barb Reinhardt - 01 May 2008 00:24 GMT

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

Signature

HTH,
Barb Reinhardt

> 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
[quoted text clipped - 10 lines]
> End If
> End With

Reply to this Message