KonBon
Aktives Mitglied
Thread Starter
- Dabei seit
- 11.02.2003
- Beiträge
- 4.691
- Reaktionspunkte
- 21
Warum schreibt das Programm nicht das Ergebnis aus Bis-Von nicht in das Feld Stunden? Ist irgendwas falsch deklariert?
In den Von und Bis Feldern stehen Werte zw. 0 und 24
mit bis zu zwei Nachkommastellen (25,50,75)
Ich sitze schon ne Stunde dran und find den Fehler nicht, hatte erst auch Probleme mit der MsgBox aber die habe ich behoben bekommen.
In den Von und Bis Feldern stehen Werte zw. 0 und 24
mit bis zu zwei Nachkommastellen (25,50,75)
Ich sitze schon ne Stunde dran und find den Fehler nicht, hatte erst auch Probleme mit der MsgBox aber die habe ich behoben bekommen.
Code:
Dim Von As Double = val(txtVon.Text)
Dim Bis As Double = val(txtBis.Text)
Dim Stunden As Double = val(labStunden.Caption)
If Von > 24 then
Msgbox ("Achtung, die eingegebende Uhrzeit ist fehlerhaft"+ EndOfLine +EndOfLine +"Achten sie darauf das die Zeit zwischen 0 und 24 Uhr liegt")
Elseif bis > 24 then
Msgbox ("Achtung, die eingegebende Uhrzeit ist fehlerhaft"+ EndOfLine +EndOfLine +"Achten sie darauf das die Zeit zwischen 0 und 24 Uhr liegt")
End if
Stunden = Bis - Von