안녕하세요 김동원입니다.



아직도 해결하지 못하셨군요..

이 방법을 써 보세요..

Edit1.Text := FormatDateTime( '오늘은 yyyy년 mm월 dd일 입니다.', Now );

Edit1.Text := FormatDateTime( '어제는 yyyy년 mm월 dd일 입니다.', Now-1 );

Edit1.Text := FormatDateTime( '그제는 yyyy년 mm월 dd일 입니다.', Now-2 );



아래소스를 보면

-------------------------------------------------------

edit1.text:= '어제는' + IncMonth(Date: TDateTime;

NumberOfMonths: Integer): Date;

---------------------------------------------------------

요기=> IncMonth(Date: TDateTime;NumberOfMonths: Integer): Date;

위 함수에서 넘겨주는 형식을 넣는 것이 아니라. 값을 넣어 주어야 합니다.

edit1.text:= '어제는' + IncMonth(Now, 1); 이런 식으로요..

이부분은 직접 작성하신 함수인것 같네요... 리턴값이 TDate형인가요???????

위와 같이 코딩하시려면 리턴값이 문자형이어야 겠네요...

"edit1.text:= '어제는' + " 이 부분 다음에는 문자형이 와야 하기 때문이죠



문제를 정확히 말씀해 주세요...

소스의 문제점은 찾아드릴 수 있지만 정확한 질문이 없어서 의도하는 프로그램

형식에 맞게 답변하기가 어렵네요..



도움이 되셨기를...





mickyblue wrote:

> 날짜 변환입니다

> 뭐가 틀렸는지...

> procedure TForm1.Button1Click(Sender: TObject);

> begin

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

> end;

>

> procedure TForm1.Button2Click(Sender: TObject);

> begin

> edit1.text:= '어제는' + IncMonth(Date: TDateTime;

> NumberOfMonths: Integer): Date;

>

> end;

>

> procedure TForm1.Button3Click(Sender: TObject);

> begin

> edit1.text:= '어제 그제는' + IncMonth(Date: TDateTime;

> NumberOfMonths: Integer): Date;

> end;

>

> end.

>

mickyblue wrote:

> 날짜 변환입니다

> 뭐가 틀렸는지...

> procedure TForm1.Button1Click(Sender: TObject);

> begin

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

> end;

>

> procedure TForm1.Button2Click(Sender: TObject);

> begin

> edit1.text:= '어제는' + IncMonth(Date: TDateTime;

> NumberOfMonths: Integer): Date;

>

> end;

>



> procedure TForm1.Button3Click(Sender: TObject);

> begin

> edit1.text:= '어제 그제는' + IncMonth(Date: TDateTime;

> NumberOfMonths: Integer): Date;

> end;

>

> end.

>



그냥 이렇게 하는게 편할거 같네여



Edit1.Text:= '오늘은 ' + DateToStr(Now);

Edit1.Text:= '어제는 ' + DateToStr(Now-1);

Edit1.Text:= '그제는 ' + DateToStr(Now-2);



그럼 즐거운 프로그래밍 하시길~