解説
　　月末を求めるには、翌月の１日を求め 1 引くことにより
　当月末を求めます。

function Last_Day(sdate:TDateTime):TDateTime;
var
  yyyy,mm,dd:Word;
begin
  DecodeDate(sdate,yyyy,mm,dd);
  if mm = 12 then
  begin
    yyyy := yyyy + 1;
    mm := 1;
  end
  else
    mm := mm + 1;
  try
    Result := EncodeDate(yyyy,mm,1) - 1;
  except
    ShowMessage('日付が変換できません');
    Result := sdate;
  end;
end;


                                                               森井　忠重

Original document by 森井　忠重      氏 ID:(KYQ03515)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。