以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  按日期段拆分天数  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=151823)

--  作者：wflqf --  发布时间：2020/7/4 13:48:00 --  按日期段拆分天数  如下图中6月27日圈红的发车记录，往返天数6天，6月27日发车，6月份出勤天数应为4天，7月份出勤天数应为2天，求拆分月份代码！ 此主题相关图片如下：微信图片_20200704112103.png

--  作者：有点蓝 --  发布时间：2020/7/4 14:03:00 --   Dim d As Date = #06/26/2020# Dim d2 As Date = d.AddDays(6) If d2.Month <> d.Month Then     msgbox(d2.Month & "月:" & d2.Day)     msgbox(d.Month & "月:" & 6 - d2.Day) End If