Find previous quarter and display as Q3 or Q4

571202 · Nov 14, 2019

Hi, I would like to be able to determine the previous quarter from the current date and display as Q2 or Q3 or Q4 etc.<o

></o

>
<o

> </o

>
I have the code to find and display the previous month (see below) but am unable to find a similar one for quarter. Thanks in advance.<o

></o

>

Code:

Range("A4") = Format(DateAdd("m", -1, Date), " mmm yy")

Scott Huish · Nov 14, 2019

Code:

Sub test()
Dim dt As Date
dt = DateAdd("m", -1, Date)
Range("A4") = Format(dt, " mmm yy")
Range("A5") = "Q" & -Int(-Month(dt) / 3)
End Sub