如何改成月的第几周

系统模块中定义函数

Public Function getweek(d As Date) As String
    Dim week As Integer
    week = Weekday(DateSerial(Year(d), Month(d), 1), vbMonday)
    getweek = Format(d, "yyyy-mm=") & Fix((Day(d) + week) / 7) + 1
End Function

周数: getweek([生产表].[日期])

要求中没有说明白，该函数编写的介定是：

一、周不跨月，例如：2021-4-1是星期4，则它是4月第一周，3月31日是星期三，是3月第5周；

二、以星期一为一周的开始时间；