确定今天是星期一

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

我会使用SELECT CASE语句而不是使用IF语句：

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