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

Parkzeitimport

Browse Source
This commit is contained in:
d.breimaier
2025-11-10 15:49:11 +01:00
parent 9cf52e7f2c
commit 063ac2b73c
1 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Parkzeit/frmParkzeitImport.vb
View File

@@ -112,8 +112,12 @@ Public Class frmParkzeitImport
PARKZEIT.Bereich = SQL.isleernothing(currentRow(1)).ToString PARKZEIT.Bereich = SQL.isleernothing(currentRow(1)).ToString
PARKZEIT.Dauer_Minuten = CInt(SQL.isleernothing(currentRow(5))) PARKZEIT.Dauer_Minuten = CInt(SQL.isleernothing(currentRow(5)))
Dim totalHours = Math.Floor(PARKZEIT.Dauer_Minuten / 60)
Dim minutes = PARKZEIT.Dauer_Minuten Mod 60
PARKZEIT.Dauer = $"{totalHours:D2}:{minutes:D2}"
'PARKZEIT.Dauer = Minutes2Time(PARKZEIT.Dauer_Minuten).ToString("hh\:mm")
PARKZEIT.Dauer = Minutes2Time(PARKZEIT.Dauer_Minuten).ToString("hh\:mm")
PARKZEIT.TarifArt = "VERAG" PARKZEIT.TarifArt = "VERAG"
PARKZEIT.KartenNr = SQL.isleernothing(currentRow(0)).ToString PARKZEIT.KartenNr = SQL.isleernothing(currentRow(0)).ToString