获取上一季度的最后一天

DateAdd("m", -(Month(Date) - 1) Mod 3 - 1, Date) 

这给了我20150630而我需要20150630 。 我可以在格式部分工作，但不知道如何得到上一季度的最后一天，而不是上个季度的今天。

Answer 1

这应该适用于VBA。 它只是确定当前季度的第一天，然后减去一天。

 Debug.Print DateAdd("q", DatePart("q", Date) - 1, "1/1/" & Year(Date)) - 1