求已知某年、某月的最大日期 各位大侠,谁能帮我写一个函数,求已知某年、某月的最大日期?function maxdate(year,month:word):Tdatetime;非常感谢! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 uses DateUtils;DaysInAMonth函数 function maxdate(year,month:word):Tdatetime; var day: word; begin day := DaysInAMonth(year, month); Result := StrToDate(format('%d-%d-%d', [year, month, day])); end; UnitDateUtilsfunction EndOfAMonth(const AYear, AMonth: Word): TDateTime; 郁闷,竟然没注意到有EndOfAMonth函数,呵呵 如果根据记录的值隐藏cxGrid中的CheckBox Fastreport 3 win98 中文列印亂碼 分单打印的问题,各位大峡请进来看一下!! 时间参数问题,有点急,在线等! 多文档程序的子窗口有个“下一个”的菜单,怎样屏蔽掉? 各位大虾,怎样把数据库的东西导入文本文件???(在线等待) DELPHI7安装有问题? .dat文件怎样读写,修改,特急!谢谢! 编译出错,请问如何解决! 有人知道ORBIT这个多语言开发平台吗? 听说可以快速开发自已的DELPHI应用。 谁进来帮帮我把 怎样象WORD操作图形一样使用鼠标?
var day: word;
begin
day := DaysInAMonth(year, month);
Result := StrToDate(format('%d-%d-%d', [year, month, day]));
end;
DateUtilsfunction EndOfAMonth(const AYear, AMonth: Word): TDateTime;