UC知道vb中计算年份的问题
来源：百度知道 编辑：UC知道 时间：2024/06/22 07:57:20
想要在两个文本框中输入两个日期。再在另一个文本框中输出两个日期的间隔年数。谢谢。
界面设计
text1 (用来输入第一个日期 较久)
text2 (用来输入第二个日期 较近)
command1 (用来执行操作)
text3 (用来输出结果)
代码设计
Private Sub Command1_Click()
Text3.Text = DateDiff("yyyy", Text1.Text, Text2.Text)
End Sub
'如text1输入2008-08-08，text2输入2000-1-1，则text3输出8
Private Sub Command1_Click()
Text3.Text = Abs(DateDiff("yyyy", Text1.Text, Text2.Text))
End Sub