в чем ошибка? пишет "end if without block if" и почему не рисуются автоматически трапеции в vba? [vba]
Код
Public Function TNI() If x <= A Or x >= D Then TNI = 0 If x >= B And x <= C Then TNI = 1 If x > A And x < B Then TNI = (x - A) / (B - A) If x > C And x < D Then TNI = (D - x) / (D - C) End Function
[/vba]
в чем ошибка? пишет "end if without block if" и почему не рисуются автоматически трапеции в vba? [vba]
Код
Public Function TNI() If x <= A Or x >= D Then TNI = 0 If x >= B And x <= C Then TNI = 1 If x > A And x < B Then TNI = (x - A) / (B - A) If x > C And x < D Then TNI = (D - x) / (D - C) End Function