Temat: Wybranie wartości z przedzialu

Witam Forumowiczów,

Prosiłbym o pomoc w poniższym kodzie:

Dim wybr As Integer
Dim dochod As Double
dochod = CDbl(Me.cur_Dochod_per_osoba)

If dochod <= (Placa_minimalna * 0.5) Then
wybr = 1

ElseIf (dochod <= ((Placa_minimalna * 0.5) + 1)) Or (dochod < (Placa_minimalna + 1)) Then
wybr = 2

ElseIf (dochod >= (Placa_minimalna + 1)) Or (dochod <= (Placa_minimalna * 1.5)) Then
wybr = 3

ElseIf dochod >= ((Placa_minimalna * 1.5) + 1) Then
wybr = 4
End If

Debug.Print "dochód: " & dochod & " " & "wybrany: " & wybr

W pierwszym i drugim przedziale wszystko dziala jak należy, natomiast w przypadku kolejnych już nie .
Przyjmując, że Placa_minimalna wynosi 2000 i wprowadzeniu wartości dochodu np. 4000 funkcja i tak zwraca mi 3.
Jakis element pomijam ale nie wiem jaki.

Temat: Wybranie wartości z przedzialu

Spamuję ale może komuś się przyda lub ktoś uprości mój kod

If dochod <= (Placa_minimalna * 0.5) Then
wybr = 1
ElseIf (dochod <= ((Placa_minimalna * 0.5) + 1)) Or (dochod < (Placa_minimalna + 1)) Then
wybr = 2
ElseIf (dochod >= (Placa_minimalna + 1)) Then
If (dochod >= (Placa_minimalna * 1.5) + 1) Then
wybr = 4
Else
wybr = 3
End If
End If