VBA代码，用于上个月的名称

Question

我已将文字添加到我的电子邮件中，如：

＆＃34;请提供MMMM月末的数字＆＃34; - MMMM是上个月的名称。

所以今天四月，MMMM将展示三月。

我有以下代码：

Dim newDate: newDate = DateAdd("M", -1, Now)

但结果却是27/03/2017 16:37:58

我想让它显示三月。

有什么建议吗？

Answer 1

将报表格式设为"MMMM"：

Dim newDate: newDate = Format(DateAdd("M", -1, Now), "MMMM")

Answer 2

如果设置为True，则月份名称缩写为例如四月

newDate = MonthName(Month(DateAdd("m", -1, Date)), False)