time defference anyone?

[nxx7]

helohhh...

i want to know how to calculate diffrence between two time...

the situation is somewhat like this...

once you've enter the system... you'll be clocked in automatically... after an hour or so, you've decided to exit from the system

what can i do to get the difference between the clocked in time, and the clocked out time???

anyone who can help show me the code? i really appreciate it... thanks a lot

[MartinLiss]

Do a forum search for DateDiff and you'll find your answer.

[szlamany]

It is my understanding that the timer will not trigger more than 18 times a second.

The recommendation from MSDN is to check the system clock time for "time elapsed".

To test this setup a timer to trigger very fast and use a global counter to track how many times it does "really" trigger.

Use the system clock to run this for a set amount of time - lets say 10 seconds.

If in that 10 seconds the counter only goes up to 180 (18 * 10) then you know that the timer doesn't trigger more than the clock interval.

[doofusboy]

Here's some old code I had that will do what you want without a timer:

Option Explicit
Dim showTime As Boolean
Dim startHour As String
Dim startMinute As String
Dim startSecond As String
Dim startTotal As Long
Dim currentHour As String
Dim currentMinute As String
Dim currentSecond As String
Dim currentTotal As Long
Dim elapsedHour As Long
Dim elapsedMinute As Long
Dim elapsedSecond As Long
Dim elapsedTotal As Long
Dim startAmPm As String
Dim currentAmPm As String
Dim ampmFlag As Boolean
 
Private Sub cmdUpdateRunTime_Click()
Dim length As Long
    
    currentAmPm = Mid(Time, Len(Time) - 1, 2)
 
    'Set flag
    If (startAmPm = "AM" And currentAmPm = "AM") Or (startAmPm = "PM" And currentAmPm = "PM") Then
        ampmFlag = False
    Else
        ampmFlag = True
    End If
 
    length = HowLong(startHour, startMinute, startSecond)
    lblElapsedHours.Caption = elapsedHour
    lblElapsedMinutes.Caption = elapsedMinute
    lblElapsedSeconds.Caption = elapsedSecond
End Sub
 
Private Sub Form_Load()
 
    lblStartTime.Caption = Time
    startSecond = Mid$(lblStartTime.Caption, Len(lblStartTime.Caption) - 4, 2)
    startMinute = Mid$(lblStartTime.Caption, Len(lblStartTime.Caption) - 7, 2)
    If Len(lblStartTime.Caption) > 10 Then
        startHour = Mid$(lblStartTime.Caption, Len(lblStartTime.Caption) - 10, 2)
    Else
        startHour = Mid$(lblStartTime.Caption, Len(lblStartTime.Caption) - 9, 1)
    End If
    
    'Because of the way elapsed time is calculated, must keep
    'track of AM/PM portion of Start time for comparison when
    'elapsed time is eventually calculated
    startAmPm = Mid$(lblStartTime.Caption, Len(lblStartTime.Caption) - 1, 2)
    Me.Show
    DisplayTime
    
End Sub
 
Public Function HowLong(ByVal startHour As String, ByVal startMinute As String, ByVal startSecond As String) As Long
 
currentSecond = Mid$(Time, Len(Time) - 4, 2)
currentMinute = Mid$(Time, Len(Time) - 7, 2)
If Len(Time) > 10 Then
    currentHour = Mid$(Time, Len(Time) - 10, 2)
Else
    currentHour = Mid$(Time, Len(Time) - 9, 1)
End If
 
If ampmFlag = True And currentHour <> 12 Then
    currentHour = currentHour + 12
End If
    
startTotal = (startHour * 3600) + (startMinute * 60) + startSecond
currentTotal = (currentHour * 3600) + (currentMinute * 60) + currentSecond
elapsedTotal = currentTotal - startTotal
 
'Application is active less than 1 minute
If elapsedTotal < 60 Then
    elapsedHour = 0
    elapsedMinute = 0
    elapsedSecond = elapsedTotal
End If
 
'Application is active for more than 1 minute
'but less than 1 hour
If elapsedTotal >= 60 And elapsedTotal < 3600 Then
    elapsedHour = 0
    elapsedSecond = elapsedTotal Mod 60
    elapsedMinute = (elapsedTotal - elapsedSecond) / 60
End If
 
'Application is active for 1 hour or more
If elapsedTotal >= 3600 Then
    elapsedHour = (elapsedTotal - (elapsedTotal Mod 3600)) / 3600
    elapsedSecond = (elapsedTotal - (elapsedHour * 3600)) Mod 60
    elapsedMinute = (elapsedTotal - (elapsedHour * 3600) - elapsedSecond) / 60
End If
 
End Function
 
Private Sub DisplayTime()
Do While showTime = False
    lblCurrentTime = Time
    DoEvents
Loop
    
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    showTime = True
End Sub