函数类型: 自定义函数
函数说明:
取到季度的起止日期
代码如下:
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;
用法示例:
无
《学习大师原创文档,请勿转载,侵权必究》
|