Gesamtsicherheiten

Aviso/frmGesamtsicherheitenNEU.vb

@@ -554,6 +554,7 @@ Public Class frmGesamtsicherheitenNEU
                 ' alle anderen Eingaben unterdrücken
                 e.Handled = True
         End Select
+
     End Sub
 
 
@@ -805,7 +806,7 @@ Public Class frmGesamtsicherheitenNEU
     Public Function DateTimeString2DateTimeKonvertinator(datum As String, uhrzeit As String) As DateTime
         Try
             Dim a As Date = Date.ParseExact(datum, "dd.MM.yyyy", System.Globalization.DateTimeFormatInfo.InvariantInfo)
-            Dim b As Date = Date.ParseExact(uhrzeit, "HH:mm", System.Globalization.DateTimeFormatInfo.InvariantInfo)
+            Dim b As Date = Date.ParseExact(uhrzeit, "H:mm", System.Globalization.DateTimeFormatInfo.InvariantInfo)
 
             Dim ab As Date = a.AddHours(b.Hour).AddMinutes(b.Minute)
             Return ab