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

Question

比如某一天是“2003年2月5日”
这一天所在月份的最后一天是“2003年2月28日”
请问有什么好方法可以得到“2003年2月28日”？
Delphi中有这样的日期函数吗？
谢谢

Answer 1

写个函数：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;

Answer 2

更正：
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;

Answer 3

谢谢 disney(编程乐园) ，你真聪明！

Answer 4

to zleeway(杂草) :
我用的是Delphi5，好象没有这个函数