确定如果今天是星期一

Question

我将如何，如果我是想说

IF the date today is equal to Monday THEN 

    Have Outlook prepare 3 emails 

ELSE 

    Have Outlook prepare 2 emails 

END IF 

我只需要代码中的IF语句“如果今天日期等于星期一”。

Answer 1

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

Answer 2

您可以：

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

Answer 3

VBA您提供多种日期函数。您需要使用Date函数来获取实际日期，并使用Weekday函数获取给定日期的工作日。

你的条件将不得不像

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

Answer 4

而不是使用一个IF语句，我会使用SELECT CASE语句来代替：

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

    Case vbTuesday  
     'Create 2 emails 

    Case Else  
     'Do something else 

End Select