| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 一个月内有几个星期日 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=44404) |
| -- 作者：lfxxdt -- 发布时间：2013/12/30 9:43:00 -- 一个月内有几个星期日 给定某一个月，如何用语句判断知道这个月内有几个星期日 |
| -- 作者：Bin -- 发布时间：2013/12/30 9:49:00 -- 最简单最笨的办法,循环这个月的所有天数,利用dayofweek判断 http://www.foxtable.com/help/topics/1424.htm |
| -- 作者：lfxxdt -- 发布时间：2013/12/30 9:54:00 -- 这个不是很明白，可否例出具体语句，如：2013年12月，如何编出语句显示出这个月星期日有几个。 |
| -- 作者：Bin -- 发布时间：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 Next MessageBox.show("这个星期有" & count & "个星期天,楼主你一眼扫过去稍微思考一下都懒得动脑,当然不明白了.")
|
| -- 作者：lfxxdt -- 发布时间：2013/12/30 11:48:00 -- 谢谢 |