翌月の1日を代入し、そこから1日引くことで作成できる。
var
LastDay : TDate;
begin
LastDay := StrToDate(‘2011/11/1’);
LastDay := LastDay - 1;
ShowMessage DateToStr( LastDay );
end;Delphiで月末日を求める
太田アベル
・ 1分で読めます
当サイトの記事には一部に広告リンクが含まれる場合があります。
太田アベル
・ 1分で読めます
当サイトの記事には一部に広告リンクが含まれる場合があります。
翌月の1日を代入し、そこから1日引くことで作成できる。
var
LastDay : TDate;
begin
LastDay := StrToDate(‘2011/11/1’);
LastDay := LastDay - 1;
ShowMessage DateToStr( LastDay );
end;
