一个月内有几个星期日 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 一个月内有几个星期日

共有4238人关注过本帖树形打印复制链接主题：一个月内有几个星期日

Bin

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2013/12/30 9:49:00 [显示全部帖子]

最简单最笨的办法,循环这个月的所有天数,利用dayofweek判断 http://www.foxtable.com/help/topics/1424.htm

Bin

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2013/12/30 10:01:00 [显示全部帖子]

Dim LastDay As Integer = Date.DaysInMonth(2013,12) '最后一天

Dim count As Integer

For i As Integer=1 To LastDay

Dim d As Date = New Date(2013,12,i)

If d.DayOfWeek=0 Then

count=count+1

End If

MessageBox.show("这个星期有" & count & "个星期天,楼主你一眼扫过去稍微思考一下都懒得动脑,当然不明白了.")

主题：一个月内有几个星期日