• Home
 · 
• Math/Dates
 · 
• This function will return a string: listing Days, Hours, and Minutes, when given a total number of

This function will return a string: listing Days, Hours, and Minutes, when given a total number of

This function will return a string: listing Days, Hours, and Minutes, when given a total number of minutes.

Rate This function will return a string: listing Days, Hours, and Minutes, when given a total number of

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

  
  ' Created by Don Mays  3-29-01
  ' RDM Custom Computing,  Grand Island, NE
  ' [email protected]

  ' This function will return a string listing
  '   the number of hours, days, and minutes
  '   such as '4 days; 15 hours; 27 minutes'
  '   when passed a value of TOTAL MINUTES.
  ' The datediff() function can be used to pass a value to this.

  Dim minz, hrz, dayz As Long
  Dim daytime, hourtime, mintime, eltime As String

  minz = 0 : hrz = 0 : dayz = 0

  hrz = Int(mins / 60)		' Returns the number of hours
 
  If hrz > 23 Then
    dayz = Int(hrz / 24)	' Returns the number of days
    If dayz = 1 Then
      daytime = "1 day; "	' Set proper 'days' string
    Else
      If dayz = 0 Then
        daytime = ""
      Else
        daytime = dayz & " days; "
      End If
    End If
    hrz = hrz - (dayz * 24)
  End If
 
  ' Set proper 'hours' string  
  If hrz = 1 Then hourtime = "1 hour; " Else hourtime = hrz & " hours; "

  mins = mins - (dayz * 1440)	' Subtract 1440 minutes for each full day
  minz = mins Mod 60

  ' Set proper 'minutes' string  
  If minz = 1 Then mintime = "1 minute" Else mintime = minz & " minutes"

  ' Combine the 3 parts to build complete string
  elapsed = daytime & hourtime & mintime

End Function