以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]月份计算  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=84248)
--  作者：kaiyu
--  发布时间：2016/4/26 16:33:00
--  [求助]月份计算

Dim d As Date = "2013-04-30"
Dim dd As Date = "2016-04-01"
output.show(DateDiff("m",d,dd))

这个计算出来结果是36，怎样计算可以得到整月的月份数。应该要到4月30号才有36个月。
--  作者：大红袍
--  发布时间：2016/4/26 16:53:00
--  
Dim dt1 As Date = "2013-04-30"
Dim dt2 As Date = "2016-04-01"
Dim y,m,d As Integer
DateYMD(dt1,dt2,y,m,d)
Output.Show(y & "年" & m & "月" & d & "日")
output.show(y*12 + m)