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