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

2024年11月28日 11:52

有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

最新问答

私家车是河北保定的牌照车主是河南省的要怎么换成河南省的牌照

1.CPU AMD X6 1055T 主板华硕 M4A87T PLUS(ATI RX780⼀RX

员工自愿不买社保，和公司签订自愿不缴纳社保声明书有效吗？

请文章写的好的，帮忙写英语作文，名字是《失败让我成长》，三百词，高二水平，要求自己写，不要