Week ending function?

[Steve]

Hi does anyone know how to create a field within a report
which displays the week ending property - like date()
displays the current date?

Many thanks
Steven

 

[Terry]

=NOW()

 

[Douglas J. Steele]

You mean to know when Friday is relative to any day?

I think the following is correct (I didn't test it thoroughly)

Function FridayOfThisWeek(WhatDate As Date) As Date

FridayOfThisWeek = DateAdd("d", vbFriday - WeekDay(WhatDate), WhatDate)

End Function