求助日期计算器代码

boy1

求助日期计算器代码

Henry D. Sy

每个月按30天计算可以吗

boy1

每个月按实际当月天数计算，比如2009.01.31----2009.02.31应为一个月，但实际应该到2009.02.28为一个月才对。

上图正确的时间为总天数42天；月数1；零天数14天；

[ 本帖最后由 boy1 于 2009-1-16 10:27 编辑 ]

boy1

自己顶一下。版主费心了[:32]

Henry D. Sy

1日到2日算一天或是两天？

boy1

原帖由 Henry D. Sy 于 2009-1-16 10:37 发表
1日到2日算一天或是两天？

算两天，版主费心。

Henry D. Sy

有点麻烦，得逐月判断是几天。
我来想想有没有什么捷径

layaman_999

请仔细查看关于Format函数，那里有你想要的答案

todaynew

原帖由 Henry D. Sy 于 2009-1-16 11:19 发表
有点麻烦，得逐月判断是几天。
我来想想有没有什么捷径

给版主一个思路：
3.31-1.31=x（2个月，共？天）
3.31-3.13=y
3.13-1.31=x-y=42天
后面的问题版主同志就知道怎么解决了。

由此想到了一个小学的奥赛题，说是兄弟三人分遗产，各得1/2、1/3、1/8，遗产为23匹马，你怎么分？呵呵

[ 本帖最后由 todaynew 于 2009-1-16 14:08 编辑 ]

boy1

已搞定[:50] 谢谢各位
If Not IsNull(Me.时间开始) And Not IsNull(Me.时间截止) Then
    str1 = DateDiff("m", Me.时间开始, Me.时间截止) - IIf(Day(Me.时间开始) - Day(Me.时间截止) >= 0, 1, 0)
  End If
If Not IsNull(Me.时间开始) And Not IsNull(Me.时间截止) Then
    str2 = DateDiff("d", DateAdd("m", DateDiff("m", Me.时间开始, Me.时间截止) - IIf((Day(Me.时间开始) - Day(Me.时间截止)) >= 0, 1, 0), Me.时间开始), Me.时间截止) + 1
End If
Me.月个数 = str1
Me.零天数 = str2

[ 本帖最后由 boy1 于 2009-1-18 22:02 编辑 ]