以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  求某月的周日天数  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=149233)

--  作者：朱女士 --  发布时间：2020/4/27 7:22:00 --  求某月的周日天数 用代码怎么获取某月的周日的天数？

--  作者：shenyl0211 --  发布时间：2020/4/27 8:43:00 --   Dim y,m,i,j As Integer y = Date.Today.Year m = Date.Today.Month j = Date.DaysInMonth(y,m) Dim D As Date For i = 1 To 7     D = cdate(y & "-" & m & "-" & i)     If D.DayOfWeek = "0" Then         MessageBox.Show(int((j-i)/7)+1) \'截止i天有1个星期日,求剩余天数还有几个星期日,两者相加         Exit For     End If Next