Quarters of the calendar year

[jayo17]

I have searched the forum and read some manuals but i cant figure the best way to do this.

All i want to know is what the best way to organize things by quarter. would it be best to use a date and have some code that determines what quarter it should be labeled as? or should i have a table that does this and reference the table through relationships? The format i am looking for is Q107 for example (first quarter and 2007).

jay
access 2003/xp

[missinglinq]

I'm a little fuzzy on exactly what it is you're trying to do, but

QuarterYear = "Quarter " & DatePart("q",YourDate) & " of " & DatePart("yyyy",YourDate)

will yield, if the date were today

Quarter 3 of 2007

Good Luck and Welcome to TheScripts!

Linq ;0)>

[Scott Price]

A slight change to Linq's code will yield your Q307 format: This code assigns the value to a label, can be used on either form or report:

Dim qtr As String
Dim qtrDate As String
Dim qtrYear As String
Dim qtrDateYear As String
 
qtr = DatePart("q", "January 30") ' returns the Quarter for the date specified
qtrDate = "Q" & qtr  ' concatenates Q with #'ed quarter
qtrYear = Right(DatePart("yyyy", "January 30"), 2) ' returns last 2 digits of the current year
qtrDateYear = qtrDate & qtrYear 'concatenates Q# with 2 digit year
 
labelDateQuarter.Caption = "Quarter is: " & qtrDateYear ' assigns value to label caption
 

Not quite as neat as Linq's code, either, but it will assign this message to the caption: "Quarter is: Q107"

Regards,
Scott