如何从此格式中仅提取excel-vba中的日期mm / dd / yyyy HH:mm:ss?
我需要以这种格式计算两个日期,但我只想知道这一天是否不同。
答案 0 :(得分: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()
返回两个日期之间的天数差异