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;
델파이 초보입니다. DateTimePicker1, DateTimePicker2 2012-01-01 ~ 2012-03-05 위 기간으로 버튼을 누르면 아래 그리드처럼 나오게끔 하려고 합니다. 어떻게 해야할지 잘 모르겠습니다..ㅠ 고수님들의 도움이 절실히 필요합니다~!! 1월 ...
zeliard
•
2012.03.06 02:23
Memo1를 StringGrid로 적당히 옮겨서 쓰세요.
uses
DateUtils;
var Date1, Dat...
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;