vba如何计算两个日期之间的差

xylitolzjm

如附件，点按钮执行，以结束的日期减去起始的日期，第三行得出两者之间相隔多少年，第四行得出两者之间相隔多少天。谢谢！

chxw68

使用DateDiff()函数即可，详细使用方法请查有关帮助。

Look我在这

1. Private Sub CommandButton1_Click()
   
2. Me.TextBox7 = VBA.DateDiff("yyyy", VBA.DateSerial(Me.TextBox1.Value, Me.TextBox2.Value, Me.TextBox3.Value), VBA.DateSerial(Me.TextBox4.Value, Me.TextBox5.Value, Me.TextBox6.Value))
   
3. Me.TextBox8 = VBA.DateDiff("y", VBA.DateSerial(Me.TextBox1.Value, Me.TextBox2.Value, Me.TextBox3.Value), VBA.DateSerial(Me.TextBox4.Value, Me.TextBox5.Value, Me.TextBox6.Value))
   
4. End Sub

复制代码

xylitolzjm

不科学啊，2018年1月1日减去2016年12月31日应该是1年，不是2年

xylitolzjm

Look我在这 发表于 2018-1-24 10:59

不科学啊，2018年1月1日减去2016年12月31日应该是1年，不是2年

xylitolzjm

chxw68 发表于 2018-1-24 10:59
使用DateDiff()函数即可，详细使用方法请查有关帮助。

DateDiff()计算出来的结果不理想，是否需要加入判断语句？例如2018年1月1日减去2016年12月31日，我想要的是1年，而不是DateDiff()计算出来的2年。
谢谢~

lss001

    s1 = Range("a1") : s2 = Range("a2")
    m1 = DateDiff("d", s1, s2) + (s2 < DateSerial(Year(s2), Month(s2), Day(s1)))'天
    m2 = DateDiff("yyyy", s1, s2) + (s2 < DateSerial(Year(s2), Month(s2), Day(s1)))'年

lss001

具体代码见7楼详细

alexbro

lss001 发表于 2018-1-24 12:51
s1 = Range("a1") : s2 = Range("a2")
    m1 = DateDiff("d", s1, s2) + (s2 < DateSerial(Year(s2), ...

什么意思，日期函数加上一个布尔表达式?