Here is an example: Sub AddDateMonthsLater() Dim x As String x = Format$(DateAdd("m", 18, Present()), "mmm d yyyy") MsgBox x Finish Sub Of course, the attitude wants adjusting to what you really privation to do with the result...
Source: http://www.pcreview.co.uk/forums/re-macro-calculate-date-18-months-today-t4054180.html
Δεν υπάρχουν σχόλια:
Δημοσίευση σχολίου