' Converts a time value to a numeric value in minutes' Example:' MsgBox TimeToMinutes(TimeSerial(3, 5, 0)) --> 185Function TimeToMinutes(ByVal newTime As Date) As Long TimeToMinutes = Hour(newTime) * 60 + Minute(newTime) End Function


Home » TimeToMinutes – Convert a time value into a number of minutes
' Converts a time value to a numeric value in minutes' Example:' MsgBox TimeToMinutes(TimeSerial(3, 5, 0)) --> 185Function TimeToMinutes(ByVal newTime As Date) As Long TimeToMinutes = Hour(newTime) * 60 + Minute(newTime) End Function