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

如题所述

第1个回答 2009-05-06

Sub Fweekday()

Dim Firstday As Date

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

End Sub

第2个回答推荐于2016-01-12

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

相似回答

vb编程计算某年某月某日是星期几答：-- firstdayofweek: 可选; vbDayOfWeek类型; 定义每周第一天(默认为星期天)WeekdayName返回一个String, 如"星期一", 但根据不同的系统, 也会返回如"Monday".=== 你也可以不用WeekdayName自己得到星期名 Choose(Weekday(#8/8/2008#, vbMonday), "星期一", "星期二", "星期三", "星期四",...

...第一行开始依次是1到12月份,第一列开始依次是星期一到星期天...答：MSFlexGrid1.TextMatrix(0, 1) = "星期一"MSFlexGrid1.TextMatrix(0, 2) = "星期二"'...MSFlexGrid1.TextMatrix(0, 7) = "星期天"MSFlexGrid1.TextMatrix(1, 0) = "一月"MSFlexGrid1.TextMatrix(2, 0) = "二月"'...MSFlexGrid1.TextMatrix(12, 0) = "十二月"For i = 1 To MSF...

vb6.0输入某年某月某日,显示出星期几,用哪些函数?答：Dim a As Date a = DateSerial(y, m, d)msgbox Weekday(a)

关于vb 中的日期时间函数答：vbFirstJan1 1 从包含 1 月 1 日的星期开始（缺省值）。vbFirstFourDays 2 从第一个其大半个星期在新的一年的一周开始。vbFirstFullWeek 3 从第一个无跨年度的星期开始。说明 DateDiff 函数可用来决定两个日期之间所指定的时间间隔数目。例如，可以使用 DateDiff 来计算两个日期之间相隔几日，或...

求VB程序,输入年月日求星期几?答：" + Format(Days) + "]之间" Exit Sub End If myDate = Format(myYear) + "/" If myMonth < 10 Then myDate = myDate + "0" End If myDate = myDate + Format(myMonth) + "/" If myDay < 10 Then myDate = myDate + "0" End If myDate = myDate + Format(myDay) ...

大家正在搜

中国的每周的第一天是星期几每个月的第一天是星期几星期一的前一天是星期几一周中第一天是星期几星期天后一天是星期几在西方一周的第一天是星期几一周的第一天是星期几英文每个月的第一天和最后一天每年的第一天是几月几日