vb 判断日期是不是本周

来源：百度知道 编辑：UC知道 时间：2024/05/26 15:29:05
一周是指: 一周de星期一到星期日
本周是指: 本周de星期一到星期日

数据库从获得日期,判断日期是不是本周de

代码 ????

谢谢le

调用：IsSameWeek(CDate("2008/8/9"))

函数：
Public Function IsSameWeek(ss) As Boolean

If (DateDiff("ww", "1-1", ss, vbMonday) + 1) = (DateDiff("ww", "1-1", Date, vbMonday) + 1) Then
IsSameWeek = True
Else
IsSameWeek = False
End If
End Function