by Agbon M. Aitanun (2 Submissions)
Category: Math/Dates
Compatability: Visual Basic 4.0 (32-bit)
Difficulty: Unknown Difficulty
Originally Published: Tue 16th August 2005
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Calculate hours, Minutes or time in and out.
VBcoders
' 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
