今日の日付を判定したい。

excel　マクロで　今日の日付を判定したい。
2022/1/1　を　IF　で年を関係なしに1月1日であるかどうか判定したい。

　その年の最初の日の判定でも良い。

　IF　a= 1月1日　どのような式にしたら良いかわかりません。

No.6 ベストアンサー 回答者： めぐみん_ 回答日時： 2022/06/04 09:20

No.5です。

a が日付型変数なら

Sub try()
Dim a As Date

a = #1/1/2025# '仮の日付を代入

If Format(a, "m月d日") = "1月1日" Then
MsgBox ("元日")
Else
MsgBox ("その他の日")
End If

End Sub

No.7 回答者： めぐみん_ 回答日時： 2022/06/04 09:23

No.6です。

あ、今日でしたね。

Sub try()

If Format(Date, "m月d日") = "1月1日" Then
MsgBox ("元日")
Else
MsgBox ("その他の日")
End If

End Sub

No.5 回答者： めぐみん_ 回答日時： 2022/06/04 09:13

a が文字列型変数なら

Sub try()
Dim a As String

a = "1月1日"

If a = Format(DateSerial(Year(Date), 1, 1), "m月d日") Then
MsgBox ("元日")
Else
MsgBox ("その他の日")
End If

End Sub

No.4 回答者： tatsumaru77 回答日時： 2022/06/04 08:51

本日の日付はDateステートメントで取得できます。

その日付の月を取得するのはMonth関数です。
その日付の日を取得するのはday関数です。
以下のマクロを1月１日に実行すると、年を関係なしに
メッセージボックスに「１月１日です」が表示されます。
1月１日でない場合は、表示されません。

Dim dt As Date
dt = Date '本日の日付取得
If Month(dt) = 1 And day(dt) = 1 Then
MsgBox ("1月1日です")
End If

No.3 回答者： chonami 回答日時： 2022/06/04 07:57

式だと

=TEXT(TODAY(),"mmdd")="0101"

みたいな感じですかね。

No.2 回答者： satouhiroshi 回答日時： 2022/06/04 07:02

下記のURLの記事を御覧下さい。

エクセルの関数・DAY(日付)を使います。DAY(日付)を使った結果が1であれば、年や月に無関係にその日が1日である事が判ります。
https://www.tipsfound.com/excel/04yearmonthday

No.1 回答者： 宇宙少年ソラン 回答日時： 2022/06/04 07:01

＜判定＞の意味がわかりませんが

普通に表示形式で表せるのでは。

マクロでというのもわかりませんが
TODAY　でいいのでは。
内部時計が正確ならば間違いありません。