新手求助

Question

本帖最后由 xtpynnmqj 于 2011-05-31 01:13:29 编辑

Answer 1

第一日期用日期控件让用户通过鼠标点选,而不是手写,否则你是无法预料到用户有多少种方法来KILL你的代码的,第二个日期用now获得.
最后一个用DATEDIFF函数获得时间差

Answer 2

Private Sub Command7_Click()
Dim n As Integer
Text1 = DateDiff("d", DTPicker1.Value, DTPicker2.Value)
n = Val(Text1)
Text2 = Int(n / 365) & "年" & Int((n Mod 365) / 30) & "月" & Int((n Mod 365) Mod 30) & "天"  '严格来说这里是有问题的，并不精确~~~，你懂的
End Sub