vba, excel - как добавить 3 месяца к сокращенной дате

Question

Я ужасен с датами кодирования - я хотел бы добавить 3 месяца к сокращенной дате. Как бы я go об этом? Пример кодирования ниже

Dim AuStart As String
Dim AuEnd As String

AuStart = Trim(HE.CurrentHost.TextRC(10, 19, 8)) 'this would be for example 12/09/19
AuEnd = ??? 'this for example if the AuStart = 12/09/19 should be 3/09/19

HE.CurrentHost.PutText AuEnd, 10, 45

Спасибо всем

Answer 1

Вот так ...

AuEnd = Format(DateAdd("m", 3, DateValue(AuStart)))

---

Обновление

Вы можете добавить числовой формат для даты в конце ...

AuEnd = Format(DateAdd("m", 3, DateValue(AuStart)),"mm/dd/yyyy")