Yes, we have this class at my previous work. It's actually part of MereMortals framework (code by Kevin McNeish, so I don't think I can publish it here).

Here is this function description in Utility.prg

*----------------------------------------------------
* DateList()
* 		For a given date, this routine returns in
* 		the passed array the "to" and "from" dates for:
*		 	Current Week
*			Current Month
*			Current Quarter
*			Current Year
*			Month to Date
*			Quarter to Date
*			Year to Date
*        Last Week
*			Last Month
*			Last Quarter
*			Last Year
*			Life-to-Date
*			This Week

>Has anyone already done a class for this? It is inspired from QuickBooks for choosing a data range.
>
>I would like a dropdown listbox that will allow the user to choose:
>
>This Week
>This Month
>This Quarter
>This Year
>Last Week
>Last Month
>Last Quarter
>Last Year
>
>The class would store the dates in this.date1 and this.date2.
>
>
>The "Week" should run Monday - Sunday
>Month and quarter are the calendar month and qaurter.
>
>It sure would save me a ton of time.