• Home
 · 
• Math/Dates
 · 
• Calculate hours, Minutes or time in and out.

Calculate hours, Minutes or time in and out.

Calculate hours, Minutes or time in and out.

Rate Calculate hours, Minutes or time in and out.

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

' Calculate user logged time in and out.

' ssno ===> User social security number or User assigned ID
' TimeIn ===> actual Date and Time in by user e.g. 08-11-2005 10:21:45 AM
' TimeOut ===> Actual Date and Time out by user E.G. 08-13-2005 04:10:14 PM

Function TOTALTIME(ssno As String, TimeIn, TimeOut)
    Dim xTime_in, xTime_out
    Dim Over_All_In_Minute As Double
    If Not IsEmpty(ssno) Or Not IsNull(ssno) Then
        Calculate_TimeIn = CDate(TimeIn)
        Calculate_TimeOut = CDate(TimeOut)
          
        Number_Of_Hour_Worked = DateDiff("h", Calculate_TimeIn, _
              Calculate_TimeOut)
         
        ' Calculate minute
        Minutecalculatedx = DateDiff("n", TimeIn, TimeOut)
            
        Over_All_In_Minute = Round((Minutecalculatedx Mod 60), 2)
                  
        ' Calculate total hour worked
        ' ============================================
        TotalHourWorked = Val(Str(Number_Of_Hour_Worked)) & "." & Val(Str(Over_All_In_Minute))
         
        ' Calculate overtime hour worked
        ' ============================================
        If Val(TotalHourWorked) > 8 Then
           Overtime_Hour_Worked = (TotalHourWorked - 8)
        End If
            
        OvertimeHourvalue = Overtime_Hour_Worked
          
        ' Calculate regular hour worked
        ' ============================================
        'RegularHour = (TotalHourWorked - Overtime_Hour_Worked)
        TOTALTIME = TotalHourWorked
    End If
End Function