function QuarterOf(D: TDateTime): Word  

Возвращает номер квартала.

Параметры:

• D - значение дата/время.