vba - mm/dd/yyyy HH:mm:ss 如何提取日期？

Question

如何从这种格式 mm/dd/yyyy HH:mm:ss 中仅提取 excel-vba 中的日期？

我需要以这种格式比较两个日期，但我只想知道这一天是否不同。

Answer 1

如果单元格 A1 = 04/16/2013 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()将 2 天添加到 newDate

DateDiff()返回两个日期之间的天数差