Timestamping

[raven1124]

Hello Everyone,

Seeking for your assistance to fix how timestamping should work

I tried different ways of using Now() to store the time but when I try to it sometimes, it doesn't provide my ideal difference in (hh:mm:ss)

Or sometimes it gives me the actual time. please help

Sub timeinout()


Time1 As Date
Time2 As Date
TimeDifference As Date




If Sheet1.Shapes(Application.Caller).TextFrame.Characters.Text = "IN" Then
    Sheet1.Shapes(Application.Caller).TextFrame.Characters.Text = "OUT"
    Time1 = Format(DateTime.Now, "hh:mm:ss")


ElseIf Sheet1.Shapes(Application.Caller).TextFrame.Characters.Text = "OUT" Then
    Sheet1.Shapes(Application.Caller).TextFrame.Characters.Text = "IN"
    Time2 = Format(DateTime.Now, "hh:mm:ss")
    TimeDifference = Time1 - Time2
    
    MsgBox (TimeDifference)
    
Else
    'DO nothing
End If


End Sub

 

[ranman256]

Just use NOW() ,no format. You want the entire Date-time in case the clock goes past midnight.

Time1=now()
msgbox(DateDiff("m",time1,time2)

this gives the elapsed time in minutes. You can do hours (or whatever),by changing the 1st param.

 

[raven1124]

Hello Ranman,

I tried to check your recommendation and it worked!

My only question here is how can I convert the result into readable minutes or seconds?