Nachkommastellen Dienstplan

This commit is contained in:
2023-12-18 09:43:46 +01:00
parent ea2a2e7803
commit d23bb31812

View File

@@ -744,7 +744,7 @@ Public Class frmDiestAddMa
If dgvAbwWStd.CurrentRow.Cells("dstaw_std").Value IsNot Nothing AndAlso IsNumeric(dgvAbwWStd.CurrentRow.Cells("dstaw_std").Value) Then
If Math.Floor(dgvAbwWStd.CurrentRow.Cells("dstaw_std").Value) <> 0 Then
If dgvAbwWStd.CurrentRow.Cells("dstaw_std").Value Mod 1 <> 0.5 Then
If dgvAbwWStd.CurrentRow.Cells("dstaw_std").Value Mod 1 <> 0.5 And dgvAbwWStd.CurrentRow.Cells("dstaw_std").Value Mod 1 <> 0 Then
MsgBox("Fehler, nur 0.5 als Nachkommastelle erlaubt")
btnOK.Enabled = False
Else