Question

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

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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

End Sub