Return quarter for give date in AX - 2009/D365FO (date2Qtr)

Class available in AX2009/D365 

Quarter date2Quarter(date _date)
{
    int     intQuarter = date2Qtr(_date);
    Quarter quarter;

    switch(intQuarter)
    {
        case 1:
            quarter = Quarter::Q1;
            break;
        case 2:
            quarter = Quarter::Q2;
            break;
        case 3:
            quarter = Quarter::Q3;
            break;
        case 4:
            quarter = Quarter::Q4;
            break;
    }

    return quarter;
}