Identify 'Monday' With Code?

[jt463]

I have read the FAQ that provides code for calculating the number of business days between two dates. What I am trying to do is to force my users to be required to enter a start date that is a Monday.

I am planning on using a calendar control, but it would be nice if I could also put in functionality that either defaults to the closest Monday to today's date or that would validate that the date entered is a Monday.

Is this possible in VB?

Thanks for your time.

 

[belovedcej]

Check this webpage out:

http://www.techonthenet.com/access/functions/date/datepart.php

I believe what you want is an if statement that is something like:

If Not(DatePart(myControl, w) = Monday) Then
MsgBox "You must choose a Monday", vbOkOnly
Else
whatever you do if it's good.
End If

 

[belovedcej]

oops - reverse that:
DatePart(w, myControl)

 

[lewds]

Hi... Here is a way to start as a test

Create a new form
Create a calendar control on to the form (ActiveXCtl0)
Create 2 Textboxes (Text1, Text3)

[Code for the form]

Private Sub Form_Load()
Me.ActiveXCtl0.Value = Date 'preset calendar date
End Sub

Private Sub ActiveXCtl0_Click()
Me.Text1 = Me.ActiveXCtl0.Value 'place calendar date in the textbox
Me.Text3 = Me.ActiveXCtl0.Value - Weekday (Me.ActiveXCtl0.Value) + 2 'calculate the Monday date and place in textbox
Me.Refresh
End Sub

The value in Text3 will be the Monday date for any day in a week you click on.

Hope this helps........

 

[SkipVought]

Hi, The previous Monday for any date...

dMonday = Int(([AnyDate]-2)/7)*7+2

Skip,

_{[red]Be Advised![/red] A chicken, who would drag a wagon across the road for 2 cents, is…
POULTRY in motion to PULLET for a PALTRY amount!}

 

[jt463]

That is brilliant!

I will give that a try.

The more I learn about Access, the more I realize that I don't know. Thanks for your time!

 

[ph23ms]

What part of this would i need to change to find the last thursday? i have messed around with this, and tried using it by subtracting 4 from the result, but I need it to return the previous weeks thursday if the program is run on a thursday (which it normally is).... Thanks in advance