EXCEL2000 VBA 1年前の今日の日付と曜日をメッセージボックスに表示

EXCEL2000 VBA  1年前の今日の日付と曜日をメッセージボックスに表示

 

Sub 一年前の今日()

'1年前の今日の日付　DateAdd("yyyy", -1, Date)

'曜日表示　Format(DateAdd("yyyy", -1, Date), "aaa")

 

MsgBox "1年前の今日の日付は " & vbCrLf & DateAdd("yyyy", -1, Date) _

& "(" & Format(DateAdd("yyyy", -1, Date), "aaa") & "曜日" & ")"

 

End Sub

 

タグ：Excel2000 VBA