本文整理自网络,侵删。
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 官方 processmessages 用法代码例子
Delphi 读取图像文件base64编码加载到image组件显示图片
Delphi使用ixmlhttprequest 简单获取网页源代码
更多相关阅读请进入《Delphi》频道 >>