Question

我有以下内容：

firstDate = InputBox("Insert the first report's date desired to obtain", "Report Information - Start", "YYYY-MM-DD")

所以用户插入日期，让我们说：2015-04-17

我试图找到一种方法来增加特定位置的日期值（day-＆gt; DD），例如：

dateIncrease = Mid(firstDate, 9, 2)+1

我期待以上回复18（17 + 1）

如何增加日期值？请帮忙。如果我不够清楚，请告诉我。感谢。

Answer 1

这就是你要找的东西：

firstDate  = "2015-04-17"
dateIncrease = DatePart("d", DateAdd("d", 1, DateValue(firstDate )))

Answer 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)))

VBScript - 增加变量的值

2 个答案: