안녕하세요.

델파이세상(http://www.freechal.com/delphiworld)에 최석기입니다.



님이 한 코딩은 오늘 날짜와 이번달은 제대로 출력 되지만 다음달 출력부분이 잘못됐네요..



Now-1의 의미는 어제 날짜를 리턴합니다.



그러므로 다음달을 리턴 받으시려면 조금 코드를 수정하셔야 겠네요..



procedure TForm1.Button3Click(Sender: TObject);

begin

edit2.Text:= '다음달은' + FormatDateTime('MM',IncMonth(Now,1));

end;





zizi76 wrote:

> 오늘날짜 출력하고 다음 오늘 날짜중 달만 출력하고 다음에 그 다음달을 출력하려고 합니다 물론 년,일은 빼고여 그러니까 달변환입니다. 제 임의대로 해봤는데 잘안되는 군여.

>

> procedure TForm1.Button1Click(Sender: TObject);

> begin

> edit1.text:= '오늘은' + datetoStr(now);

> end;

>

> procedure TForm1.Button2Click(Sender: TObject);

> begin

> edit2.text:= '이번달은 ' + FormatDateTime('MM',now);

> end;

>

> procedure TForm1.Button3Click(Sender: TObject);

> begin

> edit2.Text:= '다음달은' + FormatDateTime('MM',now-1);

> end;

>

> end.

>