function DayOfTheMonth(const AValue: TDateTime): Word;
解决方案 »
- 程序终止用Application.Terminate; 后主窗体要闪一下?
- delphi中fsmdiform总是显示在最前面
- 关于grid动态显示的问题.
- SQL问题!
- InfoPower 4000 的使用
- Kylix是不是可以安装在Linux上,有什么版本限制吗?
- 请问两个函数,sqr和sqrt!对不起,可用分不多,只能给10分
- 关于TDBChart控件的问题
- 十再没法,公司的开发部只有我一个,而且还再做比设,只有来在请教了,问部完的问题呀!
- 请问:有没有pagecontrol1.ActivePageIndex中的ActivePageIndex属性?
- 如何在同一台机器上同时安装Delphi5.0和Delphi6.0 ,而相互不影响
- 怎样用DELPHI来创建COM+?
Month_Days: array[False..True, 1..12] of Word
= ((31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31),
(31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31));Days := Month_Days[IsLeapYear(AYear), AMonth];
1,3,5,7,8,10,12:days:=31;
4,6,9,11:days:=30;
2:begin
if year mod 4 then days:=29 else days:=28;
end;
1,3,5,7,8,10,12:day:=31;
4,6,9,11:day:=30;
else
begin
if year mod 4=0 then//判断是29天还是28天
day:=29
else
day:=28;
end