If ... End If Kod Kısaltma

[pNouma]

Kıymetli Hocalarım merhaba,
Aşağıdaki kodu daha kısa yazmak mümkündür,

0 - 0,25 : 0
0,25 - 0,50 : 1
0,50 - 0,75 : 2
0,75 - 1,0 : 3

buradaki 0,25 lik aralık dilimini 0,20 gibi azaltmak istiyorum fakat; bu durumda If .. ElseIF .. End If bloğu çok uzayacak

daha pratik ve dinamik bir yol bulmaya çalışıyorum, desteğiniz için şimdiden teşekkürler.

If rm < 0.25 Then
    drm = 0
ElseIf rm < 0.5 Then
    drm = 1
ElseIf rm < 0.75 Then
    drm = 2
ElseIf rm <= 1 Then
    drm = 3
End If

iyi Akşamlar.

 

[Korhan Ayhan]

Merhaba,

Katsayılarınız uygunsa aşağıdaki gibi bir matematiksel işlemle sonuç alabilirsiniz.

Option Explicit

Sub Test()
    Dim rm
    
    rm = 0.5
    
    MsgBox Int(rm / 0.25 - 1)
End Sub