我有以下内容:
firstDate = InputBox("Insert the first report's date desired to obtain", "Report Information - Start", "YYYY-MM-DD")
所以用户插入日期,让我们说:2015-04-17
我试图找到一种方法来增加特定位置的日期值(day-> DD),例如:
dateIncrease = Mid(firstDate, 9, 2)+1
我期待以上回复18(17 + 1)
如何增加日期值?请帮忙。如果我不够清楚,请告诉我。感谢。
答案 0 :(得分:2)
这就是你要找的东西:
firstDate = "2015-04-17"
dateIncrease = DatePart("d", DateAdd("d", 1, DateValue(firstDate )))
答案 1 :(得分:2)
从@Uri开始,你也可以使用这些语句来增加日期的任何部分
Dim firstDate As String
Dim dateIncrease As Integer
firstDate = "2015-04-17"
'Increment the day part
dateIncrease = DatePart("d", DateAdd("d", 1, DateValue(firstDate)))
'Increment the month part
dateIncrease = DatePart("m", DateAdd("m", 1, DateValue(firstDate)))
'Increment the year part
dateIncrease = DatePart("yyyy", DateAdd("yyyy", 1, DateValue(firstDate)))