VBA 上个月名称代码

Question

我在我的电子邮件中添加了这样的文本：

"please provide numbers for MMMM month end" - 其中 MMMM 是上个月的名称。

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

我有以下代码：

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

但是结果是27/03/201716:37:58

我想让它显示三月。

有什么建议吗？

Answer 1

将 return 格式化为 "MMMM":

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

Answer 2

如果设置为 True，月份名称将被缩写，例如4月

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

Answer 3

这将确保月份在 English 中，而不管计算机上的区域设置如何。这将有助于那些正在全球发布 Excel VBA 工具的人。

previousmonth = WorksheetFunction.Text(DateAdd("m", -1, Date), "[$-409]mmmm")

对于缩写月份eg: Apr使用

previousmonth = WorksheetFunction.Text(DateAdd("m", -1, Date), "[$-409]mmm")

VBA Code for name of previous month