edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Gesamtsicherheiten

Browse Source
This commit is contained in:
d.breimaier
2023-09-20 10:37:35 +02:00
parent e525487c5e
commit 58a2f4fba3
2 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Aviso/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("3.9.1.8")> <Assembly: AssemblyVersion("3.9.1.9")>
<Assembly: AssemblyFileVersion("3.9.1.8")> <Assembly: AssemblyFileVersion("3.9.1.9")>

3
Aviso/frmGesamtsicherheitenNEU.vb
View File

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