请问如何获得某一天所在的月份的最后一天?

junerr 2003-05-02 12:49:16
比如某一天是“2003年2月5日”
这一天所在月份的最后一天是“2003年2月28日”
请问有什么好方法可以得到“2003年2月28日”?
Delphi中有这样的日期函数吗?
谢谢
...全文
49 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
disney 2003-05-02
  • 打赏
  • 举报
回复
写个函数:

function lastday(aday:tdatetime):tdatetime;
var y,m,d:word;
begin
decodedate(aday,y,m,d);
result:=encodedate(y,m mod 12 +1,1)-1;
end;
junerr 2003-05-02
  • 打赏
  • 举报
回复
揭贴
junerr 2003-05-02
  • 打赏
  • 举报
回复
to zleeway(杂草) :
我用的是Delphi5,好象没有这个函数
junerr 2003-05-02
  • 打赏
  • 举报
回复
谢谢 disney(编程乐园) ,你真聪明!
disney 2003-05-02
  • 打赏
  • 举报
回复
只是D7有吧,D5就没有
zleeway 2003-05-02
  • 打赏
  • 举报
回复
有这样的函数

EndOfTheMonth
Dhammacakkhu 2003-05-02
  • 打赏
  • 举报
回复
mark
disney 2003-05-02
  • 打赏
  • 举报
回复
更正:
function lastday(aday:tdatetime):tdatetime;
var y,m,d:word;
begin
decodedate(aday,y,m,d);
result:=encodedate(y+m div 12,m mod 12 +1,1)-1;
end;

5,379

社区成员

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

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