以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  两个日期中是否有2月  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=109382)
--  作者：LTHERO
--  发布时间：2017/11/10 16:07:00
--  两个日期中是否有2月
两个时间段的年份是否为闰年，然后在判断两个时间段中是否有2月 ，如果有2月那么获取2月的最后一天！

这句代码如何写？
--  作者：有点甜
--  发布时间：2017/11/10 16:12:00
--  

你这样做的目的是什么？

 

http://www.foxtable.com/webhelp/scr/0264.htm

 

举例说明要判断那两个日期，最后要得到什么结果。
--  作者：LTHERO
--  发布时间：2017/11/10 16:22:00
--  
2003-2-10 - 2004-2-9    是365天吧 因为这个时间段没有包含2月底
2004-2-10 - 2005-2-9  是366天吧 因为这个时间段包含2月底

我现在就需要判断这个！
[此贴子已经被作者于2017/11/10 16:22:39编辑过]
--  作者：LTHERO
--  发布时间：2017/11/10 16:25:00
--  
也就是说我怎么判断这个时间段内有没有2月29？ 
谢谢！
--  作者：wzcjc1982
--  发布时间：2017/11/10 16:30:00
--  
获取两个时间的差距月数，然后再判断闰月啊
--  作者：有点甜
--  发布时间：2017/11/10 16:37:00
--  

代码没问题啊

 

Dim d1 as date = "2003-2-10"
Dim d2 As Date = "2004-2-9"
Dim sp As TimeSpan = d2-d1
msgbox(sp.TotalDays+1)

Dim d3 As Date = "2004-2-10"
Dim d4 As Date = "2005-2-9"
Dim sp2 As TimeSpan = d4-d3
msgbox(sp2.TotalDays+1)