以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  计算两个日期相差的月数  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=178095)

--  作者:lxhmax
--  发布时间:2022/6/17 16:36:00
--  计算两个日期相差的月数
请问老师,怎么计算两个日期之间的月数,不管具体的日,只计算月;

比如2022年5月25日--2022年6月1日,这样得出结果就是6-5=1个月
      2022年1月5日--2023年2月8日,这样计算出为12+2=14个月
[此贴子已经被作者于2022/6/17 16:36:31编辑过]

--  作者:有点蓝
--  发布时间:2022/6/17 16:42:00
--  
不合理呀2022年1月5日--2023年2月8日不应该才13个月吗
--  作者:lxhmax
--  发布时间:2022/6/17 17:15:00
--  
是的,老师,我错了````
--  作者:有点蓝
--  发布时间:2022/6/17 17:23:00
--  
Dim y, m, d As Integer
Dim dt1 As Date = #1/5/2022#
dt1 = New Date(dt1.Year, dt1.Month, 1)
Dim dt2 As Date = #2/8/2023#
dt2 = New Date(dt2.Year, dt2.Month, 1)
Dim sum As Integer
Do While dt1 < dt2
    sum = sum + 1
    dt1 = dt1.AddMonths(1)
Loop
Output.Show(sum)