초보 wrote:

> 예) 1996.03.01 - 1998.12.05 사이 일수 계산

> 2000.01.04 - 2001.05.04 사이 일수 계산

> 이렇게 각각 일수를 계산해서 더한값이 만약 3년이 넘는다고 가정하고

> 그 3년째가 되는 일수를 년월일로 알고 싶습니다. 날짜 사이의 공백기간은 제외하구요

> 물론 윤년계산해서요...



이렇게 해보면 안될까요?

좀 무식하긴 하지만....

그럼 즐프하세요....

var s_date,e_date,b_date : integer;

begin

{1996.03.01 - 1998.12.05 사이 일수 계산

2000.01.04 - 2001.05.04 사이 일수 계산

}

label1.Caption := IntToStr(Trunc(StrToDate('1998-12-05') - StrToDate('1996-03-01')+1));

label2.Caption := IntToStr(Trunc(StrToDate('2001-05-04') - StrToDate('2000-01-04')+1));



s_date := Trunc(StrToDate('1998-12-05') - StrToDate('1996-03-01')+1);

e_date := Trunc(StrToDate('2001-05-04') - StrToDate('2000-01-04')+1);





if s_date >= 1095 then //3년 365* 3 = 1095

begin

..

..

..

exit;

end

else

begin

b_date := 1095 - s_date;

label3.Caption := FormatDateTime('YYYYMMDD', StrToDate('2000-01-04')+ b_date);

end;



end;