Вторник, Май 26, 2020

Конструкция If - Then

'If условие Then инструкции_истина [Else инструкции_ложь]
Sub GreetMe1()
  If Time < 0.5 Then MsgBox "Доброе утро"
End Sub


 

Sub GreetMe1a()
  If Time < 0.5 Then
     MsgBox "Доброе утро"
  End If
End Sub


 

Sub GreetMe2()
  If Time < 0.5 Then MsgBox "Доброе утро"
  If Time >= 0.5 Then MsgBox "Добрый день"
End Sub


 

Sub GreetMe3()
  If Time < 0.5 Then MsgBox "Доброе утро" Else _
    MsgBox "Добрый день"
End Sub


 

Sub GreetMe3a()
  If Time < 0.5 Then
     MsgBox "Доброе утро"
  Else
    MsgBox "Добрый день"
  End If
End Sub


 

Sub GreetMe4()
  If Time < 0.5 Then MsgBox "Доброе утро"
  If Time >= 0.5 And Time < 0.75 Then MsgBox "Добрый день"
  If Time >= 0.75 Then MsgBox "Добрый вечер"
End Sub


 

'If условие Then
'[инструкции_истина ]
'[ElseIf условие-n Then
'[альтернативные_инструкции]]
'[Else
'[операторы_по_ умолчанию ]]
'End If
Sub GreetMe5()
   If Time < 0.5 Then
      MsgBox "Доброе утро"
   ElseIf Time >= 0.5 And Time < 0.75 Then
      MsgBox "Добрый день"
   Else
      MsgBox "Добрый вечер"
   End If
End Sub


 

Sub GreetMe6()
   If Time < 0.5 Then
      MsgBox "Доброе утро"
   Else
      If Time >= 0.5 And Time < 0.75 Then
         MsgBox "Добрый день"
      Else
         If Time >= 0.75 Then
            MsgBox "Добрый вечер"
         End If
      End If
   End If
End Sub


 

Sub Discount1()
   Dim Quantity As Variant
   Dim Discount As Double
   Quantity = InputBox("Введите значение: ")
   If Quantity = " " Then Exit Sub
   If Quantity >= 0 Then Discount = 0.1
   If Quantity >= 25 Then Discount = 0.15
   If Quantity >= 50 Then Discount = 0.2
   If Quantity >= 75 Then Discount = 0.25
   MsgBox "Скидка: " & Discount
End Sub


 

Sub Discount1()
   Dim Quantity As Variant
   Dim Discount As Double
   Quantity = InputBox("Введите значение: ")
   If Quantity >= 0 And Quantity < 25 Then
      Discount = 0.1
   ElseIf Quantity < 50 Then
      Discount = 0.15
   ElseIf Quantity < 75 Then
      Discount = 0.2
   Else
      Discount = 0.25
   End If
   MsgBox "Скидка: " & Discount
End Sub


Sub Discount1()
   MsgBox IIf(Range("A1") = 0, "Нуль", "Не нуль")
End Sub


Back to Top