1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49
| If Form6.TextBox10.Text <= 0.036 Then
Form6.TextBox14.Text = "3,75"
ElseIf Form6.TextBox10.Text >= 0.036 And Form6.TextBox10.Text < 0.035 Then
Form6.TextBox14.Text = "4"
ElseIf Form6.TextBox10.Text >= 0.035 And Form6.TextBox10.Text < 0.0335 Then
Form6.TextBox14.Text = "4.25"
ElseIf Form6.TextBox10.Text >= 0.0335 And Form6.TextBox10.Text < 0.032 Then
Form6.TextBox14.Text = "4.5"
ElseIf Form6.TextBox10.Text >= 0.032 And Form6.TextBox10.Text < 0.0315 Then
Form6.TextBox14.Text = "4.75"
ElseIf Form6.TextBox10.Text >= 0.0315 And Form6.TextBox10.Text < 0.029 Then
Form6.TextBox14.Text = "5"
ElseIf Form6.TextBox10.Text >= 0.029 And Form6.TextBox10.Text < 0.028 Then
Form6.TextBox14.Text = "5.25"
ElseIf Form6.TextBox10.Text >= 0.028 And Form6.TextBox10.Text < 0.027 Then
Form6.TextBox14.Text = "5.5"
ElseIf Form6.TextBox10.Text >= 0.027 And Form6.TextBox10.Text < 0.026 Then
Form6.TextBox14.Text = "5.75"
ElseIf Form6.TextBox10.Text >= 0.026 And Form6.TextBox10.Text < 0.025 Then
Form6.TextBox14.Text = "6"
ElseIf Form6.TextBox10.Text >= 0.025 And Form6.TextBox10.Text < 0.023 Then
Form6.TextBox14.Text = "6.25"
ElseIf Form6.TextBox10.Text >= 0.023 Then
Form6.TextBox14.Text = "6.5"
End If |