VBA 日付の比較

次の３つの方法によって入力されたものを比較したいのです
比較とは　何月何日であるか　というものです

①MsFormが吐き出したタイムスタンプ
　セルには 2021/4/22 11:20:46 という値が入っています
②関数で取得したもの　Format(Date, "yyyy/mm/dd")
変数には　"2021/04/23" と入っています
③セルに手入力したもの
　4/23と入ってます

変数はすべて「String」です
変数の入力値を見ると　同じなのですが
IF判定では　Falseが返ってきます

よろしくお願いします

No.1 ベストアンサー 回答者： めぐみん_ 回答日時： 2021/04/23 09:30

Sub megu()

Dim st(1 To 3) As String, v

st(1) = Format(Range("A1").Value, "m月d日")

st(2) = Format(Date, "m月d日")

v = Split(Range("B1").Text, "/")
st(3) = Join(v, "月") & "日"

MsgBox Join(Array(st(1) = st(2), st(2) = st(3), st(1) = st(3)), Chr(13))

End Sub

この回答へのお礼

日付けは難しいんですね・・・

非常に助かります

ありがとうございます

お礼日時：2021/04/23 09:32