DateDiff 问题 在线等！！！！！！！！！！！！！！！！！

来源：百度知道 编辑：UC知道 时间：2024/05/20 22:49:06
Private Sub Text1_Click()
Dim T1 As Date
T1 = Time
Text1.Text = T1
End Sub
Private Sub Text2_Click()
Dim T2 As Date
T2 = Time
Text2.Text = T2
End Sub
Private Sub Text3_Click()
Dim x As Date
x = DateDiff("s", T1, T2)
Text3.Text = x
End Sub

这个程序里的DateDiff函数怎么用 为什么老是x=00：00：00 怎么能得出正确结果！！ 在线等！！！！！！！！！！！！！！！！！

Dim T1 As Date
Dim T2 As Date

Private Sub Text1_Click()
T1 = Time
Text1.Text = T1
End Sub
Private Sub Text2_Click()
T2 = Time
Text2.Text = T2
End Sub
Private Sub Text3_Click()
x = DateDiff("s", T1, T2)
Text3.Text = x
End Sub

DateDiff是得出2个时间的时间间隔
你的TI是系统当前时间T2也是系统当前时间 得出的结果当然是00：00：00了