哪位朋友有获取任意月份有多少天的算法或控件?如有算法,请贴之。谢谢!

ccll 2000-08-16 01:22:00
...全文
118 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
balaschen 2000-08-18
  • 打赏
  • 举报
回复
用SysUtils.pas 单元中定义的数组MonthDays和函数IsLeapYear即可。如:
var
Nums:Integer;
begin
Nums:=MonthDays[IsLeapYear(Year),Month];//Year为年份,Month为月份
end;
wwwunix 2000-08-16
  • 打赏
  • 举报
回复
int month;
int year;
if ((month==1)||(month==3)||(month==5)||(month==7)||(month==8)||(month==10)||(month==12))
return 31;
else if ((month==4)||(month==6)||(month==9)||(month==11))
return 30;
else if ((((year mod 4)==0 )&&((year mod 100)!=0))||((year mod 400)==0)
return 29;
else
return 28;
huntout 2000-08-16
  • 打赏
  • 举报
回复
1、每月的天數︰31,28/29(閏年),31,30,31,30,31,31,30,31,30,31
2、閏年的算法︰((能被4整除 and 不能被100整除) or 能被400整除)

5,386

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧