窗体中两个时间段年数月数计算方法？

小小菜菜鸟　发表于：2009-12-22 21:58:32 　

复制

在窗体中有三个文本框

text1 , text2 , text3

在text1中输入开始年份，格式例如：2000年01月

在text2中输入结束年份，格式例如：2001年02月

怎么才能让text3中显示出这样的结果：2年2个月。就是从起始月份开始计算为一个月，结束月份也包含为一个月，上述两个时间差就是2年2个月。

我目前：text3 =DateDiff("m",[text1],[text2])+1

这样光能算出月份来，怎么能转换成我上面说的，2年2个月这样的格式？

Top

一启软研发表于：2009-12-23 10:33:52

Option Compare Database

'加入Text3更新后事件

Private Sub Text2_AfterUpdate()
Dim N As Integer, M As Integer

N = DateDiff("m", [Text1], [Text2]) + 1
M = N \ 12
If M = o Then
Me.Text3 = N Mod 12 & "月"
Else
Me.Text3 = N \ 12 & "年" & N Mod 12 & "月"
End If
End Sub

Top

总记录：1篇页次：1/1 9 1 :

Access交流中心

窗体中两个时间段年数月数计算方法？