won wrote:

> 한달뒤-1일 후의 날짜 구할 방법 좀..

> ex.

> 2000-02-02 의 한달뒤-1일 날짜는

> 2000-03-01 입니다.

>

>

>

Rxlib의 dateutil.pas에 좋은 루틴이 많습니다,

won wrote:

> 한달뒤-1일 후의 날짜 구할 방법 좀..

> ex.

> 2000-02-02 의 한달뒤-1일 날짜는

> 2000-03-01 입니다.

>

>

>

제가 사용하던 방법에서

간단한 부분만 발췌했습니다.

두가지 방법을 하나로 병합해서 사용하시면 될것같군요...

도움이 되길 바라면서......



//============================================================================//

// 하루전 일자를 구한다.

//============================================================================//

function gDayUpDownF(stDate:String):String;

var

CurDate : TDateTime;

begin

ShortDateFormat:='yyyymmdd';

CurDate := StrToDate(Copy(stDate,1,4) + '-' + Copy(stDate,5,2) + '-'

+ Copy(stDate,7,2));



CurDate := CurDate - 1; //하루전의 날짜를 구한다



Result := DateToStr(CurDate);

end;





//============================================================================//

// 하달전 일자를 구한다.

//============================================================================//

function gMonthUpDounF(stDate:String):String;

var

CurDate : TDateTime;

begin

ShortDateFormat:='yyyymmdd';

CurDate := strtoDate(Copy(stDate,1,4) + '-' + Copy(stDate,5,2) + '-'

+ Copy(stDate,7,2));



CurDate := incMonth(CurDate, -1); //한달전의 날짜를 구한다



Result := DateToStr(CurDate);

end;