Как вычислять дату в Word?

Question

[esy1993]

Всем привет!

Необходимо в строке документа MS Word реализовать вставку текущей даты + 90 дней.
Использовал поле Label (Надпись). Ковырялся с модулем надписи:

Private_Sub вычисляемая_дата_Click()
Dim d As Date
вычисляемая_дата.Value = d + 90
End Sub

Ошибок не выдает, но выводит в надписи 01.01.1900.
Подскажите, как правильно это сделать?

Answer 1

[Антон Федорян]

Вам нужна функция DateAdd():

Sub test()
    Dim d As Date
    d = DateAdd("d", 90, Now)
    Selection.TypeText (d)
End Sub

Comments

[h8nor]

Только вместо Now надо писать Date чтобы не отображать текущее время.

Answer 2

[esy1993]

Спасибо!