Определите, если сегодня понедельник

Question

Как бы я написал оператор IF, если бы пытался сказать

IF the date today is equal to Monday THEN

    Have Outlook prepare 3 emails

ELSE 

    Have Outlook prepare 2 emails

END IF

Мне просто нужно «ЕСЛИ дата сегодня равна понедельнику».

Answer 1

If Weekday(Now()) = vbMonday Then
    MsgBox "Monday"
End If

Answer 2

Вместо использования оператора IF, я бы вместо этого использовал оператор SELECT CASE:

Select Case Weekday(Now())    
    Case vbMonday    
      'Create 3 emails

    Case vbTuesday    
      'Create 2 emails

    Case Else       
      'Do something else

End Select

Answer 3

VBA предлагает вам различные функции даты.Вам понадобится функция Date, чтобы получить фактическую дату, и функция Weekday, чтобы получить день недели от указанной даты.

Условие, которое вы быдолжен выглядеть как

If Weekday(Date) = vbMonday then
    ' create email
Else
End If

Answer 4

Вы можете:

if (Weekday(Date, vbSunday) = vbMonday) then
   ...
else
   ...
end if