本文整理自网络,侵删。
uses DateUtils;方法1:function DaysInAMonth(const AYear, AMonth: Word): Word;
方法2:
function GetDays(Year, Month): Word;beginResult := MonthDays[IsLeapYear(Year), Month];end;
Word 相当于 integer
相关阅读 >>
Delphi firemonkey app 如何获得当前系统语言设置
更多相关阅读请进入《Delphi》频道 >>