如何返回当月的最大天数 如何返回当月的最大天数,如六月是30,七月是31 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 use 语句中加入DateUtils单元EndOfTheMonth函数 function GetDays(Year, Month: Word): Integer;begin Result := MonthDays[IsLeapYear(Year), Month];end;procedure TForm1.Button1Click(Sender: TObject);begin Caption := IntToStr(GetDays(2006, 12));end; 判断与服务器的连接成功与否 DBGrid如何让显示的数据居中,靠左或者靠右 ehlib自带例子DEMO1中是如果实现鼠标滑轮翻页的? 一个有关线程的问题。 急!!! 要毕业设计,大家说选什么课题好? 关于用delphi写的active form的一个简单问题 用Database Desktop生成的表(db)怎么有那么多文件? delphi加密 十万火急!!!如何在DELPHI5中编写出模拟PERSONAL SERVER环境的程序 delphi不支持法语怎么办呀 在DBChart中series中有gallerychanged3D()的方法或事件吗?
function GetDays(Year, Month: Word): Integer;
begin
Result := MonthDays[IsLeapYear(Year), Month];
end;procedure TForm1.Button1Click(Sender: TObject);
begin
Caption := IntToStr(GetDays(2006, 12));
end;