neu

Aviso/cProgramFunctions.vb

@@ -112,6 +112,8 @@ Public Class cProgramFunctions
     Public Function MinToTime2(ByRef rMinute As Long) As String
         Dim m_TimeSpan As TimeSpan = New TimeSpan(0, rMinute, 0)
         Select Case rMinute
+            Case Is < 0
+                MinToTime2 = "-"
             Case Is < 60
                 MinToTime2 = Format(m_TimeSpan.Minutes) & " min"
             Case Is < 1440