Selecting Date Interval 1

[ghacig]

Hi

I have an unbound form that contains two unbound controls, DateFrom and DateTo. The idea is to select two dates.

I was wondering if there is a way and I can have a command button called cmdWeek. When the user clicks it, the two controls will be populated automatically with the dates corresponding to Monday and Sunday of the current week.

I would appreciate any help.

 

[Remou]

Do you mean:

If Weekday(Date) = 1 Then
    AddSun = 1
Else
    AddSun = 8
End If

dMonday = Date - Weekday(Date, vbSunday) + 2
dSunday = Date - Weekday(Date, vbSunday) + AddSun

http://lessthandot.com

 

[PHV]

Remou, why not simply this ?
dMonday = Date - Weekday(Date, vbSunday) + 2
dSunday = dMonday + 6

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[ghacig]

Thanks guys. I am a little confused. What does this return?

Weekday(Date,vbSunday)

Of course I can do something like:

Select Case Weekday(Date)
case 1
DMonday = Weekday(Date +1)
Case 2
DMonday Weekday(Date)
etc...

Thanks.

 

[ghacig]

OK, I figured it out. This works.

Select Case Weekday(Date)

Case 1

Me.DMonday = Date + 1
Case 2
Me.DMonday = Date
Case 3
Me.DMonday = Date - 1
Case 4
Me.DMonday = Date - 2
Case 5
Me.DMonday = Date - 3
Case 6
Me.DMonday = Date - 4
Case 7
Me.DMonday = Date - 5

End Select

 

[Remou]

@PHV Much better

http://lessthandot.com

 

[ghacig]

PHV and Remou,

Code works great. Thanks for your help.