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

Compare commits

base: edv:9cf52e7f2c7ff3c2fde8b9c6f28615d8eeb39562
Branches Tags
edv:master
...
compare: edv:master
Branches Tags
edv:master

1 Commits
9cf52e7f2c ... master

Author SHA1 Message Date
d.breimaier
063ac2b73c Parkzeitimport 2025-11-10 15:49:11 +01:00
1 changed files with 5 additions and 1 deletions
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.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.KartenNr = SQL.isleernothing(currentRow(0)).ToString