vba - mm/dd/yyyy HH:mm:ss どうすれば日付を抽出できますか?

Question

この形式mm/dd/yyyy HH:mm:ssからExcel-vbaの日付のみを抽出するにはどうすればよいですか?

この形式で 2 つの日付を比較する必要がありますが、日が異なるかどうかだけを知りたいです。

Answer 1

セル A1 = 2013 年 4 月 16 日 10:28:12 の場合

それをセルB2に入れます

=DATE(YEAR(A1),MONTH(A1),DAY(A1))

または、別の順序が必要な場合はコンポーネントを連結します。

為にmm/dd/yyyy

=MONTH(A1) & "/" & DAY(A1) & "/" & YEAR(A1)

---

さらに比較に

このようなもの？

Sub Main()

    Dim myDate As Date
    myDate = Now
    Debug.Print myDate

    Dim newDate As Date
    newDate = DateAdd("d", 2, myDate)
    Debug.Print newDate

    Select Case DateDiff("d", myDate, newDate)
        Case Is > 0
            Debug.Print "newDate is newer"
        Case 0
            Debug.Print "dates are the same"
        Case Is < 0
            Debug.Print "newDate is older"
    End Select

End Sub

マクロを実行してImmediate Window CTRL+G

DateAdd()newDate に 2 日を追加します

DateDiff()2 つの日付の差を日数で返します