Elapsed times 24hrs
--How do you enter the date/time in B6. Through code or how?
--The date/time entered in B6 should be excel date/time format? Is that so?
--Try this test
In B4 enter date (Ctrl+ semicolon)
In B5 enter time (Ctrl + Shift + semicolon)
In B6 enter formula =B4+B5
Now try the code
If this post helps click Yes
---------------
Jacob Skaria
"NDBC" wrote:
Jacob, I have saved the date and time in b6 but it is still giving me errors.
I was posting this when you replied
Another update. I saved the start time in b6 using now and the format
"d/mm/yyyy hh:mm:ss". When i run the timer it now starts at 2832:00:00.
2832/24 = 118. Now I am very confused as I can't work out where this is
coming from. We are up to day 216 in the current year. I'm out of suggestions.
Thanks
"Jacob Skaria" wrote:
You will have to save the date and time in B6 to substract from Now..If you
want to handle a blank entry in B6 use another variable
Sub RClock1()
Dim varTemp
varTemp = Sheets("Timing Sheet").Range("B6")
If varTemp = 0 then varTemp = Now
UserForm1.RaceClock1.Text = Worksheetfunction.text(Now - _
varTemp,"[h]:mm:ss")
NextTick = Now + TimeValue("00:00:01")
Application.OnTime NextTick, "RClock1"
End Sub
If this post helps click Yes
---------------
Jacob Skaria
"NDBC" wrote:
Sorry Jacob, I didn't make myself clear. I never run the form without having
a time in cell b6. I had just reset the time in b6 so when i started the form
i was expecting a time of say 00:00:10 or less but got 960696:00:10. i save
the time in cell b6 using the format "hh:mm:ss". Maybe I need to save the
date as well. Could that be it.
Thanks.
"Jacob Skaria" wrote:
May be we will have to handle the 0 value.
If Sheets("Timing Sheet").Range("B6").Value 0 Then
UserForm1.RaceClock1.Text = WorksheetFunction.Text(Now - _
Sheets("Timing Sheet").Range("B6"), "[h]:mm:ss")
End If
If this post helps click Yes
---------------
Jacob Skaria
"NDBC" wrote:
Jacob, I think it is almost there. the minutes and seconds now start at zero
but the hours (are shown) start at 960696. So at time zero the timer shows
960696:00:00.
Thanks for you efforts.
"Jacob Skaria" wrote:
Try
Sub RClock1()
Watch = Now - Sheets("Timing Sheet").Range("B6")
UserForm1.RaceClock1.Text = Worksheetfunction.text(Now - _
Sheets("Timing Sheet").Range("B6"),"[h]:mm:ss")
NextTick = Now + TimeValue("00:00:01")
Application.OnTime NextTick, "RClock1"
End Sub
If this post helps click Yes
---------------
Jacob Skaria
"NDBC" wrote:
I have the following code for a timer on a form. the time in cell b6 is the
start time of the race. I want it to work for races that go for than 24
hours. I have tried formatting it as "[hh]:mm:ss" but the hours disappear and
the timer starts at 8 minutes for some reason regardless of what the start
time is. Any ideas.
Thanks
Sub RClock1()
Watch = Now - Sheets("Timing Sheet").Range("B6")
UserForm1.RaceClock1.Text = Format(Watch, "hh:mm:ss")
NextTick = Now + TimeValue("00:00:01")
Application.OnTime NextTick, "RClock1"
End Sub
|