Checkboxen funktionieren nicht
22.12.2014 11:33:10
J.Pisters
Ich habe ein kleines Programm geschrieben, was meine Arbeitskollegen auf der Arbeit schon mal gebrauchen können. Und zwar war mein Gedanke, eine Userform zu programmieren, wo man seine Komm- und Gehzeiten eingeben kann und man die Arbeitszeit in Industriestunden ausgegeben bekommt. Zudem war mein Gedanke Frühstückspause und Mittagspause von dieser Zeit abzuziehen. Dieses habe ich in Checkboxen programmiert. Das funktioniert auch alles super, ausser die Gehzeit ist kleiner als die Kommzeit (zb in der Nachtschicht: 22:00 Uhr kommen und 06:00 gehen). Da ich durch die Datediff eine negative Zahl raus bekomme bei dieser Konstellation, muss ich ja 24 Stunden dabei rechnen um wieder das richtige Ergebnis raus zu bekommen. Das Funktioniert auch alles, ausser wenn ich beide Checkboxen anklicke, dann nimmt der das nicht an. Jeweils zwar die einzelnen, nur bei der negativ ausführung, wenn beide angeklickt sind, dann nimmt der unerklärlicherweise nur die Frühstückspause. Und finde den Fehler dafür nicht.
Hier ist der Code:
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click, Button8. _ Enter Dim KZeit As Date = MaskedTextBox1.Text Dim Gzeit As Date = MaskedTextBox2.Text Dim InZeit As String = Label24.Text Label24.Text = Math.Round(DateDiff(DateInterval.Minute, KZeit, Gzeit, ) / 60, 2) If CheckBox5.Checked Then Label24.Text = Math.Round(DateDiff(DateInterval.Minute, KZeit, Gzeit, ) / 60 - 0.25, _ 2) End If If CheckBox3.Checked Then Label24.Text = Math.Round(DateDiff(DateInterval.Minute, KZeit, Gzeit, ) / 60 - 0.5, _ 2) End If If CheckBox3.Checked And CheckBox5.Checked Then Label24.Text = Math.Round(DateDiff(DateInterval.Minute, KZeit, Gzeit, ) / 60 - 0.75, _ 2) End If If Label24.Text Danke für eure Hilfe
Gruß
Julian