以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]已知起始日期d想根据今天的时间自动计算已经过了多少个月  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=103414)
--  作者：1452565001
--  发布时间：2017/7/7 14:33:00
--  [求助]已知起始日期d想根据今天的时间自动计算已经过了多少个月

请问已知起始日期列d，想根据今天的日期，自动计算已经过了多少个月。应该如何写代码？
--  作者：有点甜
--  发布时间：2017/7/7 14:39:00
--  
Dim d1 As Date = "2017-01-06"
Dim d2 As Date = Date.today
Dim y,m,d As Integer
DateYMD(d1, d2,y,m,d)
msgbox(y*12+m)
--  作者：1452565001
--  发布时间：2017/7/7 14:58:00
--  
谢谢！