怎么算本月的最后一天？？？？？？？

[jgmcy2]

怎么算本月的最后一天？？？？？？？

[chechy]

var
a, b, c: Word;
function GetLastDay: TDateTime;
decodeDate(IncMonth(Date), a, b, c);
Result := EncodeDate(a, b, 1) - 1;
end;

[NewStarSE]

什么意思？30？31？

[hnsyf]

下个月第一天减一。

[netlib]

得到下一月的1月1日，
这月的最后一天你就能得到了。

[lastleo]

赞同楼上的楼上的楼上

[王集鹄]

uses DateUtils; //for Delphi6

function StartOfTheMonth(const AValue: TDateTime): TDateTime;
function EndOfTheMonth(const AValue: TDateTime): TDateTime;
function StartOfAMonth(const AYear, AMonth: Word): TDateTime;
function EndOfAMonth(const AYear, AMonth: Word): TDateTime;

[jgmcy2]

我用的是5，象上面说的到12月怎么办？

[lanbada]

strtodatetime('2003-01-01')-1
再DECODE

[hingman]

同意 chechy(我爱洁洁) 的答复！

[王集鹄]

to jgmcy2:
什么比得上事实更能说明问题！
调试调试chechy的代码不就知道了

嘻嘻嘻事实大于雄辩嘻嘻嘻嘻

[武哥博文]

chechy(我爱洁洁) 写得很好，只是在delphi5下有一个小错误
改正如下：
var
a, b, c: Word;
function GetLastDay: TDateTime;
decodeDate(IncMonth(Date,1), a, b, c);
Result := EncodeDate(a, b, 1) - 1;
end;

[华南虎哥]

第一天又如何得到？？？