以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  计算两个日期列之间间隔的月数代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=165321)

--  作者:lfz123
--  发布时间:2021/5/13 17:06:00
--  计算两个日期列之间间隔的月数代码
计算两个日期列之间间隔的月数代码
--  作者:有点蓝
--  发布时间:2021/5/13 17:20:00
--  
http://www.foxtable.com/webhelp/topics/2648.htm
--  作者:lfz123
--  发布时间:2021/5/13 17:43:00
--  回复:(有点蓝)http://www.foxtable.com/webhelp/to...
但我要的是总的月数,比如2019年12月15日(这个月不算,从下个月开始算)至2021年4月30日的总月数是16个月
--  作者:有点蓝
--  发布时间:2021/5/13 20:10:00
--  
Dim y,m,d As Integer
Dim dt1 As Date = #12/5/2019#
Dim dt2 As Date = #4/30/2021#
DateYMD(dt1,dt2,y,m,d)
Output.Show(y *12+ m & "月")