سلامم خدمت دوستان من توی یه فرمی دو تا قیل دارم که میخوام از یکی (m) ورودی بگیرم و در صورت برقرار بودن هریک از شرطا نسبت به اون محاسبات رو انجام بده و در فیلد دوم (vkol) بیاره. با مدلی که وارد کردم بظاهر همه چی درسته اما با نتایج قاطی میشه و دزست در نمی یاد خواهشن اگه راهنمایی دارین دریغ نکنید. شدیدا ضروزی هست.
s = m
If s < 0 Or s > 1000000000000# Then
MsgBox "!""
ElseIf 0 < s <= 200000000 Then
Me.vkol = (s * 0.07)
ElseIf 200000000 < s <= 500000000 Then
Me.vkol = (200000000 * 0.07) + ((s - 200000000) * 0.05)
ElseIf 500000000 < s <= 1000000000 Then
Me.vkol = (200000000 * 0.07) + (300000000 * 0.05) + ((s - 500000000) * 0.04)
ElseIf 1000000000 < s <= 5000000000# Then
Me.vkol = (200000000 * 0.07) + (300000000 * 0.05) + (500000000 * 0.04) + ((s - 1000000000) * 0.03)
Else
End If
End Sub