以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  按日期段拆分天数  (http://foxtable.net/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