关于计算月数的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于计算月数的问题

共有11352人关注过本帖树形打印复制链接主题：关于计算月数的问题

blackzhu

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9879 积分：57640 威望：0 精华：15 注册：2008/9/1 9:45:00

关于计算月数的问题 发帖心情

Post By：2011/7/1 8:03:00 [只看该作者]

Dim d As Double = Datediff("m",#01/03/2011#,#05/08/2011#)

Output.show(d)

我们利用datediff可以得出两个时间段的日数,约数等,我想问一下.像上面的时间段,月数应该是4个月,但是实际的应该是4个月零6天,我想要做到不满一个月的算一个月,也就是算5个月.怎么写代码?

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/7/1 8:14:00 [只看该作者]

Dim d1 As Date = #01/03/2011#
Dim d2 As Date = #05/08/2011#
Dim m As Integer = Datediff("m",d1,d2)
If d2.day > d1.day Then
m = m+1
End If
Output.show(m)

blackzhu

小大 3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9879 积分：57640 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2011/7/1 8:19:00 [只看该作者]

谢谢

下一主题 >> << 上一主题

主题：关于计算月数的问题