取到季度的起止日期

• 函数类型：　自定义函数

• 函数说明：

取到季度的起止日期

• 代码如下：

 function GetJiDuDate(dd: TDateTime): TDateArray;
var
  Y, M: Word;
begin
  Y := yearof(dd);
  M := MonthOf(dd);
  Dec(M, (M - 1) mod 3);
  Result[0] := DateOf(StartOfAMonth(Y, M));
  Result[1] := DateOf(EndOfAMonth(Y, M + 2));
end;

• 用法示例：

无　

《学习大师原创文档，请勿转载，侵权必究》