vba 判断 某日是否为本周（周一到周日）

vba 判断 某日是否为本周（周一到周日）

Dim a As Date
a = InputBox("输入日期")
If Weekday(CDate(a), vbMonday) = 1 Then
MsgBox "日期是星期一"
End If追问不是判断星期几，是判断是否为本周。
是这样的，excel里，A列全是日期，如果某个单元格的日期为本周的，日期显示红色，下周的显示蓝色。追答Dim a As Date
a = CDate("2015-8-23") '需要验证的日期
b = CDate(Date) + 3 '今天的日期
c = Weekday(CDate(b), vbMonday) ' 返回今天的日期星期几
d = b - c + 1 '那么本周周一日期
If d < a And a < d + 6 Then
MsgBox "在这周"
Else
MsgBox "不在这周"
End If
试试这个

Weekday(Date, vbMonday)
后面那个monday是指从星期一开始数起，是第几天追问不是判断星期几，是判断是否为本周。
是这样的，excel里，A列全是日期，如果某个单元格的日期为本周的，日期显示红色，下周的显示蓝色。追答别人帮你写了，那个就可以，通过与今天的差值来判定就行。