Need to return first day (Sunday) of the week in format mm/dd/yy

[SusanJ]

Thanks for your help.

 

[Krzysztof Pozorek [MVP]]

Thanks for your help.

Public Function getSunday(iYear, iWeek) As Date
Dim d As Date
d = DateSerial(iYear, 1, 1) + (iWeek - 1) * 7
getSunday = d - Weekday(d) + 1
End Function

K.P.
www.access.vis.pl

 

[SusanJ]

I don't write code. Isn't there a function I can use in a query? Like
DatePart?

 

[Krzysztof Pozorek [MVP]]

You write this function in common module and use it like DatePart or any
other built-in function:

SELECT getSunday(FieldYear, FieldWeek)
FROM Table1

K.P.