How to calculate date in Word?

Question

Macros

Hello!
It is necessary to implement the insertion of the current date + 90 days in the MS Word document line.
Used the field Label (Inscription). Poking around with the inscription module:

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

It does not give errors, but it displays 01/01/1900 in the inscription.
Tell me how to do it right?

Answer 1

You need the DateAdd() function :

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

Answer 2

Thank you!