今天参考6个月，参考今天

Question

需要帮助显示过去6个月的参考日期。例如，当月是6月。下面是代码，但是给出1，我需要得到1月。

MsgBox ("Cheques would be checked for issue Month of  " & (Month(Date)-5))

Answer 1

 MsgBox ("your date is " & DateAdd("m", -6, Date()))