LEE 께서 말씀하시기를...

> 예를들어 '19990630' 이라는 날짜가 있는데 (Text File 로 저장된 Data)

> 2달전의 날짜부터 현제 까지를 보여주고 싶은데

> 날짜를 빼거나 더해주는 함수가 없는지 궁금하구요

> 없으면 혹시 만들어 쓰시는 함수가 있으면 부탁 드립니다.

>



안녕하세요 김영대입니다

말씀하시는게 이건지 모르겠는데 비슷할것 같아서 올립니다

그리고 제 홈페이지(http://myhome.shinbiro.com/~cozykyd/index.htm)의

델파이 팁,트릭 에서 "날짜" 로 검색해 보시면 날짜와 관련된

팁이 몇개 있으니 참고해 보세요



function DateSer(y, m, d: Integer): TDateTime;

const

mj: array[1..12] of Integer=(31,28,31,30,31,30,31,31,30,31,30,31);

var

add: Integer;

begin

While (true) do

begin

y := y + (m-1) div 12;

m := (m-1) mod 12 +1;



if m <= 0 then

begin

Inc(m, 12);

Dec(y);

end;



if ((y mod 4 = 0) and

((y mod 100 <> 0) or (y mod 400 = 0))) and

(m = 2)

then

add:=1 //add one day in February

else

add:=0;



if (d > 0) and (d <= (mj[m] + add)) then

break;

if d > 0 then

begin

Dec(d, mj[m]+add);

Inc(m);

end

else

begin

Inc(d, mj[m]+add);

Dec(m);

end;

end;

Result := EncodeDate(y, m, d);

end;



// 사용예제

DecodeDate(Date, y, m, d);

NewDate := DateSer(y-4, m+254, d+1234);