Hallo,
Ich habe ein Problem mit meinem If/Else If rechner.
Es ist so das wenn ich
If Personen <= 1 Then
ElseIf Tage <= 4 Then
Gebühr = 45 * Personen * Tage
ElseIf Tage <= 7 Then
Gebühr = 45 * Personen * Tage * 0.85
Else
MsgBox "Diese Jugendherberge bietet max. 7 Übernachtungen an", vbExclamation, "DJB-Gebührenrechner"
txtTage = " "
txtTage.SetFocus
End If
If Personen <= 2 Then
ElseIf Tage <= 4 Then
Gebühr = 40 * Personen * Tage
ElseIf Tage <= 7 Then
Gebühr = 40 * Personen * Tage * 0.85
Else
MsgBox "Diese Jugendherberge bietet max. 7 Übernachtungen an", vbExclamation, "DJB-Gebührenrechner"
txtTage = " "
txtTage.SetFocus
End If
Eingebe und bei Personen und bei Tagen 1 rein schreibe bei meinem Rechner das Ergebnis 0 wird.
Ich kann es nur dann lösen wenn ich das < bei If Personen <= 1/2 then entferne. Aber dann passiert so das es bei 1 *40 rechnet und bei 2 *45 Rechnet.
Kann mir einer so schnell wie möglich helfen ?
Ich habe ein Problem mit meinem If/Else If rechner.
Es ist so das wenn ich
If Personen <= 1 Then
ElseIf Tage <= 4 Then
Gebühr = 45 * Personen * Tage
ElseIf Tage <= 7 Then
Gebühr = 45 * Personen * Tage * 0.85
Else
MsgBox "Diese Jugendherberge bietet max. 7 Übernachtungen an", vbExclamation, "DJB-Gebührenrechner"
txtTage = " "
txtTage.SetFocus
End If
If Personen <= 2 Then
ElseIf Tage <= 4 Then
Gebühr = 40 * Personen * Tage
ElseIf Tage <= 7 Then
Gebühr = 40 * Personen * Tage * 0.85
Else
MsgBox "Diese Jugendherberge bietet max. 7 Übernachtungen an", vbExclamation, "DJB-Gebührenrechner"
txtTage = " "
txtTage.SetFocus
End If
Eingebe und bei Personen und bei Tagen 1 rein schreibe bei meinem Rechner das Ergebnis 0 wird.
Ich kann es nur dann lösen wenn ich das < bei If Personen <= 1/2 then entferne. Aber dann passiert so das es bei 1 *40 rechnet und bei 2 *45 Rechnet.
Kann mir einer so schnell wie möglich helfen ?