How to find the date of the first day of week given any date range of that week in vb6

Question

How do I find the date of the first day of week given any date of current week in vb6 or classic asp?

Answer 1

Weekday(date)

This returns an int between 1 and 7 for sun to sat. With this it is easy to get the date of the first day, but first you need to define the first day, assuming sunday then...

DateAdd("d", -Weekday(date)+1, date)