计算工作时间

Question

请教各位高手：
点击一个按钮，开始计算工作时间 想显示成
您现在一共工作了：  1小时20分30秒
我在timer控件的timer事件里如何写啊？能让时间自动累加？在工作的时候能够看到工作了多长时间。

Answer 1

一个label1、一个command1、一个timer1Option Explicit
Dim BeginTime As DatePrivate Sub Command1_Click()
    BeginTime = Now
    Timer1.Enabled = True
    Timer1.Enabled = True
End SubPrivate Sub Timer1_Timer()
    Label1.Caption = "您工作了：" & Format(Now - BeginTime, "hh:mm:ss")
End Sub^_^

Answer 2

Dim brq As DatePrivate Sub Command1_Click()
MsgBox "你一共工作了:" & DateDiff("s", brq, Now) & "秒"
End SubPrivate Sub Form_Load()
brq = Now
End Sub

Answer 3

Private Sub Command1_Click()
    BeginTime = Now
    Timer1.Interval = 1000
    Timer1.Enabled = True
End Sub搞错了少少。^_^

Answer 4

使用 Time 函数 来读取时间 比Now 好

Answer 5

Option Explicit
Dim BeginTime As DatePrivate Sub Command1_Click()
    BeginTime = time
    Timer1.Enabled = 1000
    Timer1.Enabled = True
End SubPrivate Sub Timer1_Timer()
    Label1.Caption = "您工作了：" & Format(time- BeginTime, "hh:mm:ss")
End Sub