Function Display Time

Function DisplayTime: MS Access Put this function in the Module of Access Output format will look like:   100 Hours 50 Minutes You can use this function in form, query or report Function DisplayTime(startDate As Date, endDate As Date, fmt As String)  Dim Hours As Long, Minutes As Long, totalSeconds As Long, SecondLeft As Long ‘format the differance of 2 dates or times totalSeconds = DateDiff(“s”, startDate, endDate) Hours = Int(totalSeconds / 3600) SecondLeft = totalSeconds Mod 3600 Minutes = Int(SecondLeft / 60) Select Case fmt    ‘ format = 100 Hours…

Read More