主题：[求助]关于DateYMD函数计算不正确的问题

你要这个？

Dim d1 As Date = "2017-10-01"
Dim d2 As Date = "2017-10-31"
Dim y,m, d As Integer
DateYMD(d1, d2.AddDays(1), y,m,d)
msgbox(y & m & d)

30天有什么错？你一个月的逻辑是什么？

1、开始时间是1号，结束时间是最后一天？

2、间隔是30天就是1月？那2017-10-10到2017-11-10呢？

 如果要计算总天数，参考

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