Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Private Function DecToHHMM(NumVal As Single)
Dim HH As String
Dim MM As String
NumVal = 23.5
HH = Int(NumVal)
MM = Int(60 * ((NumVal / 1) - Int(NumVal)))
DecToHHMM = Format(HH & ":" & MM, "hh:mm")
End Function