word vba date overflow

Question

Я создаю макрос для автоматизации создания счетов-фактур. Одна вещь, которую он будет делать, это присвоить сегодняшнюю дату полю формы в счете-фактуре и рассчитать дату платежа, добавив дни (вставленные пользователем в поле формы как целое число) на сегодняшнюю дату.

Я получаю очень простую ошибку на макрос, где следующий код работает в «ошибки 6: переполнение»:

dim invDate as Date, dueDate as Date 
dim days as Integer 
dim invDateFF as Formfield, dueDateFF as Formfield, daysFF as Formfield 

set invDateFF = Activedocument.Formfields("Date") 
set dueDateFF = Activedocument.Formfields("DueDate") 
set daysFF = Activedocument.Formfields("Days") 

invDate = Format(Now, "dd/MM/yyyy") 
days = daysFF.Result 
dueDate = DateAdd("d", days, invDate) 
invDateFF.Result = invDate 

Обе переменные (invDate и DueDate) переполнены ...

Поля формы являются текстовыми полями формы и имеют тип даты. Есть ли что-то очевидное, что мне не хватает?

Благодаря

Answer 1

Я отправил это как ответ, так как механизм Комментарии слишком неудобно. Конечно, это не ответ на все проблемы, с которыми вы столкнулись, но, возможно, вы можете использовать его в качестве основы для дальнейшего обсуждения.

invDate = Format(Now, "dd/MM/yyyy") 

Проблема в том, что результатом «Формат» является строка, но invDate имеет тип даты. Таким образом, вы полагаетесь на Word, чтобы принудить дату в строчном формате к значению даты, что не является хорошей идеей в общем случае. Кроме того, я бы предположил, что основная причина, по которой вы это делаете, - избавиться от временной части результата функции «Сейчас». Если это так, вы можете использовать свойство Date VBA.DateTime, например,

invDate = Date 

или

invDate = VBA.Date 

Тогда следующие утверждения должны сделать правильную вещь:

days = daysFF.Result 
dueDate = DateAdd("d", days, invDate) 

Но теперь то, что вы, вероятно, хотите, чтобы подключить результат обратно в форму, которая будет необходимо

dueDateFF.Result = format(dueDate,"DD/MM/YYYY") 

и/или вы можете использовать свойства FormField, чтобы установить формат даты на тот, который вы хотите видеть (и быть принятым - Word обладает некоторой гибкостью в этой области).

Лично я хотел бы попытаться сосредоточиться на том, чтобы код выполнял то, что я хотел - проблема, которую вы описываете с помощью значения переменной «дней», конечно, немного странная, но, возможно, чтобы добиться успеха в форме.