tmpmo:= @Month(@Today);
tmpyr:= @Year(@Today);
tmplastyr:= tmpyr - 1;
tmpcurqtr:= @If(tmpmo <4; 1; tmpmo <7; 2; tmpmo <10; 3; 4);
REM {Build list};
tmp:= @If(tmpcurqtr=1; ("Q1-" + @Text(tmplastyr)) : ("Q2-" + @Text(tmplastyr)) : ("Q3-" + @Text(tmplastyr)) : ("Q4-" + @Text(tmplastyr));
tmpcurqtr=2; ("Q2-" + @Text(tmplastyr)) : ("Q3-" + @Text(tmplastyr)) : ("Q4-" + @Text(tmplastyr)) : ("Q1-" + @Text(tmpyr));
tmpcurqtr=3; ("Q3-" + @Text(tmplastyr)) : ("Q4-" + @Text(tmplastyr)) : ("Q1-" + @Text(tmpyr)) : ("Q2-" + @Text(tmpyr));
("Q4-" + @Text(tmplastyr)) : ("Q1-" + @Text(tmpyr)) : ("Q2-" + @Text(tmpyr)) : ("Q3-" + @Text(tmpyr)) );

"-- Select --" : tmp