Question

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

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

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天

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

mm / dd / yyyy HH：mm：ss如何提取日期？

1 个答案: