確定如果今天是星期一

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