Помогите найти ошибку

[Pirat_of]

Помогите в поиске ошибке ни как не могу понять че не правильно. В строке "DL 0.5 between 2 and Not poroda = "пх" выводит ошибку "Expected: end of statement" и вывеляет слово between

Function Vkroni(konus As Integer, zilindr As Integer, shar As Integer, poroda As String, DL As Double) As Double
If poroda = "пх" Then
Vkroni = konus
Else
If DL <= 0.5 And Not poroda = "пх" Then
Vkroni = zilindr
Else
DL 0.5 between 2 and Not poroda = "пх"
Vkroni = shar
End If
End If
End Function

[Serge_Bliznykov]

сейчас ломает Access запускать...

в любой случае прощено ключевое слово IF

Else
   if DL 0.5 between 2 and Not poroda = "пх" Then
     Vkroni = shar
   end if

если ошибка останется, попробуйте так:

Else
   if (DL >=0.5) and  (DL<= 2) and Not poroda = "пх" Then
     Vkroni = shar
   end if

p.s. т.к. в веточку ELSE после первого if попадаем только когда poroda <> "пх",
то можно условие Not poroda = "пх" безболезненно опустить... хотя, конечно, ошибке в этом нет!

[Pirat_of]

Во получилось) второй вариант помог. Пасиб огромное