function LastDayCurrMon: TDate;
begin
result := EncodeDate(YearOf(Now),MonthOf(Now), DaysInMonth(Now)) ;
end;
begin
result := EncodeDate(YearOf(Now),MonthOf(Now), DaysInMonth(Now)) ;
end;
本文介绍了一个简单的函数,用于获取当前月份最后一天的具体日期。通过使用Delphi中的内置函数YearOf、MonthOf和DaysInMonth,该函数能够准确地计算出每个月份的最大天数。

被折叠的 条评论
为什么被折叠?