What day is this week? How many weeks are there in a year? What day is it now? )

I don't know how you achieved the first two, but I think if the first two are achieved, the last one has been achieved.

My solution is this:

1, set a benchmark time, such as 65438+200810.7, which is Monday.

2. Accumulate the number of days from the former to the latter based on this benchmark, then divide it by 7 and multiply it by 7. If it is backward (for example, 20081October 65438+ 1), the number obtained is the number of days from the start date of the current week to the benchmark date; If it is forward (for example, June 65438+1 October1), the number obtained is the number of days of the end date of the current week relative to the benchmark date. Then just convert the number of days into the actual date according to the benchmark date.

The following function can solve your problem.

'****************************************************

* GetWeekStart *

* Get the date of the day of the week where the current date is *

* The return type is time and date *

* parameter WeekStarts is an integer variable with a value range of 0, 1 *

* 0: indicates that the first day of the week is Sunday *

* 1: indicates that the first day of the week is Monday *

'****************************************************

a=getweekstart( 1)

Response. Write (1)

Function GetWeekStart(WeekStarts)