Q&A

  • 기간 월 구하기

델파이 초보입니다.

 

DateTimePicker1, DateTimePicker2

 

2012-01-01    ~       2012-03-05        

 

위 기간으로 버튼을 누르면 아래 그리드처럼 나오게끔 하려고 합니다.

어떻게 해야할지 잘 모르겠습니다..ㅠ

고수님들의 도움이 절실히 필요합니다~!!

 

     

1월

2월

3월

 

1  COMMENTS
  • Profile
    zeliard 2012.03.06 02:23

    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;