dateutils.pas 파일을 열어보세요
여러가지 날짜 계산함수가 들어 있습니다

사용자 함수입니다.
GetPlusDay('20020704','365') 하면
20030704를  후다닥 뱉어냅니다.

//********** 주어진일자 + 더할일수를 계산 ***************/
function GetPlusDay(vp_Date, vp_Plus : String) : String;
var
    vdtTempDate : TDateTime;
    vsYY, vsMM, vsDD : Word;
begin
  Result := '';
  vsYY := StrToInt(copy(vp_Date,1,4));
  vsMM := StrToInt(copy(vp_Date,5,2));
  vsDD := StrToInt(copy(vp_Date,7,2));
  vdtTempDate := EnCodeDate(vsYY,vsMM,vsDD);

  vdtTempDate := vdtTempDate + StrToInt(vp_Plus);
  DeCodeDate(vdtTempDate, vsYY, vsMM, vsDD);

  Result := IntToStr(vsYY);

  if vsMM < 10 then
    Result := Result + '0'+ IntToStr(vsMM)
  else
    Result := Result +  IntToStr(vsMM);

  if vsDD < 10 then
    Result := Result + '0'+ IntToStr(vsDD)
  else
    Result := Result +  IntToStr(vsDD);

end;

오늘 날짜에다가 31을 더하고 Copy문을 사용하여 년도와 월까지 복사하신후
10일을 붙으면 됩니다.

sDate : String;

sDate := Copy(DateToStr(Date + 31), 1, 8) + '10';

그럼 즐코하세요

명선님~
님께서 만드신 코드가 1월 29(윤년이 아닌경우), 30, 31일인 경우엔 오류가 발생 할 것 같은데여~(현재 Delphi가 없어서 확인은 못했거는여~ 지송!!!)
^.^;