计算指定月的最后一天

字体大小: 中小 标准 ->行高大小: 标准 中 大 
下面的函数返回指定日期的所在月的最后一天的日期： 
function LastDayOfMonth(Dat: TDate): TDate;

var

D, M, Y : Word;

begin

DecodeDate(IncMonth(Dat, 1), Y, M, D);

Result := EncodeDate(Y, M, 1) - 1;

end;

此文章由 http://www.ositren.com 收集整理 ,地址为: http://www.ositren.com/htmls/67976.html