以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  日期时间段  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=27915)

--  作者：Siluy_kl1017 --  发布时间：2013/1/14 10:46:00 --  日期时间段 【求助】：各位大虾。请问怎么获取系统时间的月的天数和系统时间月的周末天数。谢谢

--  作者：lin_hailun --  发布时间：2013/1/14 10:57:00 --   dim days as integer = Date.DaysInMonth(date.today.year, date.today.month) 你说的周末天数要怎么计算？获取这个月有几个星期天？ http://www.foxtable.com/help/topics/0265.htm

--  作者：Siluy_kl1017 --  发布时间：2013/1/14 11:04:00 --   恩恩  明白了。谢谢哈

--  作者：Siluy_kl1017 --  发布时间：2013/1/14 11:42:00 --   大虾：一个月有几个星期天（双休日）怎么个函数呢？请指导

--  作者：lin_hailun --  发布时间：2013/1/14 14:08:00 --    需要自己写代码的。 Dim d_start As Date = #12/1/2013# Dim w As Integer = iif(d_start.DayOfWeek = 0, 0, 7 - d_start.DayOfWeek) Dim d_count As Integer = Date.DaysInMonth(d_start.Year, d_start.Month) If d_count - w >= 28 Then     msgbox(5) Else     msgbox(4) End If [此贴子已经被作者于2013-1-14 14:08:05编辑过]

--  作者：Siluy_kl1017 --  发布时间：2013/1/14 15:13:00 --   嗯嗯   谢谢！