[AccessD] Capture Dates

Gustav Brock gustav at cactus.dk
Tue Jul 8 11:13:37 CDT 2003


Hi Judy

Here's a simple function we use for this:

<code>

Function DatePrevWeekday( _
  ByVal datDate As Date, _
  Optional ByVal bytWeekday As Byte = vbMonday) _
  As Date

' Returns the date of the previous weekday, as
' spelled in vbXxxxday, prior to datDate.
' 2000-09-06. Cactus Data ApS. CPH.
    
  ' No special error handling.
  On Error Resume Next
  
  DatePrevWeekday = DateAdd("d", 1 - WeekDay(datDate, bytWeekday), datDate)
    
End Function

</code>

/gustav


I'm working with Access 97 and need to pre fill start and end dates
fields It's for an hours worked form.
 
Basically I need the Actual Dates for Last week - Sunday through
Saturday. I used datePart and can get my week number, but don't quite
know how to proceed from there. 



More information about the AccessD mailing list