해당 월의 처음과 끝 날짜 알아오기

해당 월의 처음과 끝 날짜 알아오기

uses DateUtils

 

var

  firstDay, lastDay: TDate;

begin

  firstDay := StartOfTheMonth(DateTimePicker.Date);

  lastDay := EndOfTheMonth(DateTimePicker.Date);

 

  Edit1.Text := FormatDateTime('dd',firstDay);

  Edit2.Text := FormatDateTime('dd',lastDay);

end;