vb中如何获取每个月的第一天是星期几

2024-11-28 11:52:17

推荐回答（2个）

回答1：

Sub Fweekday()

Dim Firstday As Date

For i = 1 To 12
Firstday = Year(Now) & "-" & i
Print Firstday & "是星期" & weekday(Firstday, vbMonday)
Next

End Sub

回答2：

用weekday函数。
print weekday("2009-5-1")-1 'weekday返回的数比正常多一。
也可以用变量：
r="2009"
s="5"
print weekday(r & "-" & s & "-1")-1

最新问答

字长是CPU的主要性能指标之一，它表示什么

我家的电脑是联想锋行系列kx7035，我想装win7的系统，但是不知道是装32位的，还是64位的？

请哪位高人帮我算下女1988年农历3月初7晚上十点生日五行属什么？

我家电脑音箱可以用，但是麦克风不能用，哪位高人解决一下！！！

癌症可以被传染吗？