초보자 wrote:

> 스트링값 '20010101' 에서 50일 을 더한 날짜를 알고 싶은데 함수가 생각나지 않네요.

> 조언을 부탁 드립니다.



아래처럼 해주시면 됩니다..

한가지 주의할점은 입력 받을 스트링형식은 제어판에 국가별설정에 있는 날짜 형식과

같아야 합니다



그럼 즐프하세요..



Label1.caption := FormatDateTime('YYYYMMDD', StrToDate('2001-01-01') + 50);

초보자 wrote:

> 스트링값 '20010101' 에서 50일 을 더한 날짜를 알고 싶은데 함수가 생각나지 않네요.

> 조언을 부탁 드립니다.

/////////////////////////////////////////////////

아래것을 참조해보세요



procedure TForm1.Button1Click(Sender: TObject);

var

HYear, HMonth, HDay : Word;

HDate, NewDate: TDateTime;

str : string;

begin

//시작 날짜지정

str := '20010101';

HYear := StrToint(copy(str,1,4));

HMonth:= StrToint(copy(str,5,2));

HDay := StrToint(copy(str,7,2));

HDate := EncodeDate(HYear, HMonth, HDay);

//차이값지정 =>50일

NewDate := Trunc(ABS(HDate-50));

DecodeDate(NewDate,HYear, HMonth, HDay);

Edit1.Text := intToStr(HYear)+'-'+intToStr(HMonth)+'-'+intToStr(HDay);

//Edit1.Text := DateToStr(NewDate);

end;