请问有没有函数能计算出 某个日期是 某个月的第几周?

Question

如 2005.5.8是5月的第几周呢

Answer 1

Option ExplicitPrivate Sub Command1_Click()
    MsgBox "第" & WW(CDate(Text1.Text)) & "个星期" & Weekday(CDate(Text1.Text), vbMonday)
End SubPrivate Function WW(ByVal InDate As Date) As Integer
    Dim MyDate As Date
    MyDate = Format(Year(InDate) & "-" & Month(InDate) & "-01", "yyyy-mm-dd")
    WW = Abs(DateDiff("ww", InDate, MyDate))
End FunctionPrivate Sub Form_Load()
    Text1.Text = Now
End Sub

Answer 2

Function Week(Dt As Date) As Integer
    Dim iDay As Integer
    iDay = Day(Dt)
    Week = iDay \ 7 + IIf(iDay Mod 7 > 0, 1, 0)
End FunctionPrivate Sub Command1_Click()
    MsgBox Week("2005-5-7")
End Sub如果要加星期几的判断用Weekday