求助日期计算器代码

todaynew

原帖由 boy1 于 2009-1-16 14:02 发表
已搞定[: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
I ...

好复杂的算式，呵呵。

wang_93

我也遇到这个问题谢谢版主分享

Henry D. Sy

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

Henry D. Sy

10楼的还不是很理想，举个例子
如果08-06-01-------08-07-01，按10楼的代码，会得到31天，当然就天数来说并没有错。
但是您的要求应该是显示1个月零1天吧。

boy1

原帖由 Henry D. Sy 于 2009-1-17 07:13 发表
10楼的还不是很理想，举个例子
如果08-06-01-------08-07-01，按10楼的代码，会得到31天，当然就天数来说并没有错。
但是您的要求应该是显示1个月零1天吧。

版主就是版主，果然火眼金睛。是有这个不足。求更好的办法。[:50]

Henry D. Sy

晕，把这贴搞忘了

Henry D. Sy

没测试，您自己测试一下看看。

Private Sub Command248_Click()
    Dim strTemp As String
    strTemp = getMD(Me.时间开始, Me.时间截止)
    Me.月个数 = Val(strTemp)
    Me.零天数 = Mid(strTemp, InStr(strTemp, "@") + 1)
End Sub

Function getMD(sDate As Date, eDate As Date) As String
    Dim Ms As Integer, Ds As Integer
    Dim sD As Integer, eD As Integer

    sD = Day(sDate)
    eD = Day(eDate)
    Ds = eD - sD
    Ms = DateDiff("m", sDate, eDate)
    If Ds < -1 Then
        Ms = Ms - 1
        Ds = DateDiff("d", DateAdd("m", Ms, sDate), eDate)
    End If
    getMD = Ms & "@" & Ds + 1
End Function

boy1

先谢谢版主

7777777

ddddddddd

zx994398

碰到2月份的时候有点误差。