在窗体加载(Load事件)时获取系统时间,然后把按按钮的时间减去它
Dim LoadTime as Date "声明变量,用来储存打开时的系统时间
Private Sub Form_Load() "当打开窗体时,把系统时间赋给LoadTime
LoadTime = Now "Now 是获取系统时间的函数
End Sub
Private Sub Command1_Click()
Text1="已经打开窗体 " & Format(Now - LoadTime, "hh时mm分ss秒") "计算时间差,用Format函数把Date类型的数据转为时间格式的字符串
End Sub
_______________
欢迎追问
@替天行盗
````````````````````````