real time running clock

[Verma]

Is it possible to insert a real time running clock in a cell and use it value
to perform calculations? How? Thanks.

 

[Don Guillett]

from chip
Public Sub RunClock()'Chip Pearson

If RunWhen = 0 Then
Init
End If
SetSecondHand Second(Now)
SetMinuteHand Minute(Now)
SetHourHand Hour(Now) + (Minute(Now) / 60)
RunWhen = Now + TimeSerial(0, 0, 1)
Application.OnTime RunWhen, "RunClock", , True

End Sub
Public Sub StopClock()
On Error Resume Next
Application.OnTime RunWhen, "RunClock", , False
RunWhen = 0

End Sub

Sub Auto_Close()
StopClock
End Sub