var Date1, Date2: TDate; Current: TDate; begin Current := StartOfTheMonth(DateTimePicker1.Date); while Current <= DateTimePicker2.Date do begin Memo1.Lines.Add(FormatDateTime('mm 월', Current)); Current := StartOfTheMonth(IncDay(EndOfTheMonth(Current))); end;
Memo1를 StringGrid로 적당히 옮겨서 쓰세요.
uses
DateUtils;
var
Date1, Date2: TDate;
Current: TDate;
begin
Current := StartOfTheMonth(DateTimePicker1.Date);
while Current <= DateTimePicker2.Date do
begin
Memo1.Lines.Add(FormatDateTime('mm 월', Current));
Current := StartOfTheMonth(IncDay(EndOfTheMonth(Current)));
end;