VBA DateAdd Anomaly

[GlennL]

Hi,

I am trying to add 3 months and 1 day to a date. For some reason, I can not see why the add doesn't work. Thoughts?

debug.Print DateAdd("d", 1, now())+DateAdd("m", 1, now())
22/11/2142 8:55:48 PM 
debug.Print now()
26/05/2021 10:28:17 AM 
debug.Print DateAdd("d", 1, now())
27/05/2021 10:28:42 AM 
debug.Print DateAdd("m", 1, now())
26/06/2021 10:28:59 AM

 

[Osvaldo Palmeiro]

I am trying to add 3 months and 1 day to a date.

Try:
Debug.Print DateAdd("m", 3, DateAdd("d", 1, Now()))

or
Debug.Print DateAdd("d", 1, DateAdd("m", 3, Now()))