[已解决]日期相減後，如何得出相差幾年幾月?

e2solo

請問老師
日期相減後，如何得出相差幾年幾月?
例如2008/03/02  與今日相減後，相差幾年幾月
謝謝

最佳答案

月排行榜 / 总排行榜

mxg825

2011-10-30 17:50

1. Sub DATEIF()
   
2. Dim mmIF$
   
3. mmIF = DateDiff("m", "2008-3-2", Date) '相距月数
   
4. MsgBox mmIF \ 12 & "年，" & _
   
5.        mmIF Mod 12 & "月"
   
6. End Sub

复制代码

跳转到最佳答案楼层

mxg825

Sub DATEIF()
MsgBox Int(DateDiff("m", "2008-3-2", Date) / 12) & "年，" & _
       DateDiff("m", "2008-3-2", Date) Mod 12 & "月"
End Sub

mxg825

1. Sub DATEIF()
   
2. Dim mmIF$
   
3. mmIF = DateDiff("m", "2008-3-2", Date) '相距月数
   
4. MsgBox mmIF \ 12 & "年，" & _
   
5.        mmIF Mod 12 & "月"
   
6. End Sub

复制代码

e2solo

回复 mxg825 的帖子

謝謝老師
謝謝老師

mxg825

优化 一下 3楼 代码 看起来不会那么长！