教えて!gooにおける不適切な投稿への対応について

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

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

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

よろしくお願いします

gooドクター

A 回答 (1件)

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
「VBA 日付の比較」の回答画像1
    • good
    • 0
この回答へのお礼

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

非常に助かります

ありがとうございます

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

gooドクター

このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング