我要如何取得當月的結束日,如8月份起始是1,

結束是31,

31有什麼方法可取得,

因為每個月份的日期都不相同

由下個月初,向前減一天即可取得

uses DateUtils;

procedure TForm1.Button1Click(Sender: TObject);
var
MfirstDay,MLastDay:TDatetime;
begin
MfirstDay:=IncDay(IncDay(StrToDateTime(FormatDateTime('yyyy/MM/01',Now))),-1),1);
MLastDay:=IncDay(IncMonth(MFirstDay,1),-1);
Edit1.Text:=FormatDateTime('yyyy/MM/dd',MfirstDay);
Edit2.Text:=FormatDateTime('yyyy/MM/dd',MLastDay);
end;

SysUtils裡就有宣告12個月的天數陣列, 參考看看
如果不想自己寫函式, 翻翻 DateUtils , 裡面應該有你要的

SysUtils裡就有宣告12個月的天數陣列, 參考看看
如果不想自己寫函式, 翻翻 DateUtils , 裡面應該有你要的