Добавить дней в формате «YYYYMMDD»

Question

В VB6 я пытаюсь добавить дни к дате, которая находится в формате «YYYYMMDD». Я могу добавить дни, как это:

Pull_Date = Need_Date + Val(txtLeadTime.Text) 

, который работает, до результирующих дней больше, чем количество дней в месяце. Я попытался использовать DateAdd, но он не принимает формат YYYYMMDD - также нет CDate.

Answer 1

Вам нужно преобразовать строку даты к дате, так что вы можете использовать DateAdd function:

Dim Need_Date As String 
Dim Pull_Date As Date 
Dim tmpDate As Date 

Need_Date = "20141113" 
tmpDate = CDate(Mid$(Need_Date, 5, 2) & "/" & Right$(Need_Date, 2) & "/" & Left$(Need_Date, 4)) 

Pull_Date = DateAdd("d", Val(txtLeadTime.Text), tmpDate) 
MsgBox Format$(Pull_Date, "yyyymmdd") '// if LeadTime is 25 days, displays 20141208 

Пожалуйста, обратите внимание, что разбор ваш Need_Date по характеру позиция может взорвать, если он не отформатирован точно так, как ожидалось.

Answer 2

После углубиться в этот старый код, я обнаружил, что функция преобразования была уже создана:

Public Function Date_Format_YYYYMMDD(ByVal sDate As String) As String 
    If IsDate(sDate) Then 
     sDate = Format(sDate, "YYYYMMDD") 
    End If 

    Date_Format_YYYYMMDD = sDate 
End Function 

С помощью этой функции, это очень легко:

Pull_Date = Date_Format_YYYYMMDD(Need_Date) + Val(txtLeadTime.Text) 

Единственное, что я не» t понять почему

Pull_Date = Format(Need_Date, "YYYYMMDD") + Val(txtLeadTime.Text) 

не работает. Похоже, что он выполняет ту же функцию, что и функция.