VB能够输出当前的时间,并计算今天已经过了多少秒

显示全部楼层 · 2012-3-22 15:52:36

输出当前的时间用Now函数（显示日期+时间）或Time函数（只显示时间）计算今天已经过了多少秒用Timer函数，可精确到0.01秒...

千问 · 2012-3-22 15:52:36

Private Sub Form_Load()
MsgBox "现在是" & Now & "，今天已经过去" & DateDiff("s", CDate(CStr(Date) & " 00:00:00"), Now) & "秒"End Sub...

千问 · 2012-3-22 15:52:36

Sub 计算时间()Dim tim As LongMyTime = Time & aposMsgBox "当前的时间为：" & MyTimeMsgBox "今天过了" & Timer & "秒"End Sub希望能帮你解决问题……...

千问 · 2012-3-22 15:52:36

Private Sub command1_click()Print Now()Print DateDiff("s", Date & " 00:00:00 ", Now)End Sub...