>If objRollOfFilm.ExpDate < Date Then
MsgBox " Эта пленка не годится."
ElseIf objRollOfFilm.Type = "Слайдовая" Then
intСлайдовые = intСлайдовые + 1
ElseIf objRollOfFilm.Color Then
intЦветныеНегативные = intЦветныеНегативные + 1
Else intЧБНегативные = intЧБНегативные + 1
End If
Первый оператор сравнивает значение свойства ExpDate (срок хранения) с текущей датой.
Если дата окончания срока хранения уже прошла, программа отображает окно сообщения с соответствующей информацией, и это все. Только если пленка все еще годится (т.е. если первое условие принимает значение False), будет выполнен первый из операторов ElseIf. Этот оператор проверяет свойство Туре (тип) объекта, представляющего пленку. Если значением свойства является "Слайдовая", то следующий оператор увеличивает счетчик слайдовых пленок.
Если же пленка другого типа, программа переходит к следующему оператору ElseIf, в котором в качестве условия рассматривается свойство Color (без операций сравнения, в предположении, что это свойство может принимать только значения True или False).
Если значением свойства будет True, то пленка учитывается как цветная негативная, а если значение False, остается только перейти к выполнению Else - больше некуда- и учесть пленку как негативную черно-белую.
В структуре If. . . ElseIf выполняются только операторы, ассоциированные с первым принимающим значение True условием. После выполнения этих операторов все оставшиеся ElseIf и Else пропускаются.
Вложенные операторы If. . .Then в некотором смысле являются противоположностями операторов If. . .ElseIf. Используйте эти операторы, когда для принятия решения нужно проверить дополнительное условие, но только если первое условие принимает значение True. Вложение одного оператора If... Then в другой подобно высказыванию: "Если
X есть Истина и Y есть Истина, то я буду делать А, В и С".
Можно вкладывать один в другой операторы If. . .Then любых видов -
If. . .Then. . .Else, If. . .ElseIf и разнообразные If... Then - и в любой комбинации. Вот схематическое представление пары вложенных операторов If... Then:
>If условие! Then
If условие2 Then
(операторы, выполняющиеся, когда условие! и условие2 = True)
ElseIf условиеЗ Then
(операторы, выполняющиеся, когда условие! и условиеЗ = True, а условие2 = False)
(операторы, выполняющиеся, когда и условие1 и условие2 = False, а условиеЗ = True)
End If ' конец внутреннего блока If...Then
(другие операторы, выполняющиеся, когда условие! = True, независимо от того, чему равно условие2)