전체 소스 입니다.



근데.. 델초보님

답변 해주신 분한테, 공부좀 더하라는 말은 좀 심한듯 합니다.

그분은 나름대로 시간을 내서 답변을 한건데 말씀입니다.



procedure TForm1.Button1Click(Sender: TObject);

var

d1, d2: TDateTime;

begin

d1 := strtodate('1999-11-01');

d2 := strToDate('2001-03-01');

showmessage(intToStr(GetMonthNumBetweenDate(d1, d2)));

end;



function TForm1.GetMonthNumBetweenDate(const Date1, Date2 : TDateTime): integer;

var

tempDate : TDateTime;

MonthBetween : integer;

Year, Month, Day : word;

AddDayNum : integer;

const DayNum : array[1..12] of integer = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);



begin

tempDate := Date1;

MonthBetween := 0;



while ( tempDate <= Date2 ) do

begin

DecodeDate(tempDate, Year, Month, Day);

if ( (Month = 2) and (IsLeapYear(Year)) ) then

begin

AddDayNum := 29;

end

else

begin

AddDayNum := DayNum[Month];

end;

tempDate := tempDate + AddDayNum;

MonthBetween := MonthBetween+1;

end;

Result := MonthBetween;

end;

end.





델초보 wrote:

> 안녕하세요.

> 초보라 어려움이 많아 고수님들께 질문을 드립니다.

> 두날짜사이의 달수를 계산하고 싶어요

>

> 예) '2001-03-01' - '1999-11-01' = 17개월

>

> 뺄셈 제대로 했죠? 이렇게 하고 싶어요

>

> 고수님들 도움을 부탁드립니다.

>

> 다른 컴포넌트 쓰지말고 코딩으로요...

>

> 헤헤 그럼 잘 부탁드립니다.

델초보 wrote:

> 안녕하세요.

> 초보라 어려움이 많아 고수님들께 질문을 드립니다.

> 두날짜사이의 달수를 계산하고 싶어요

>

> 예) '2001-03-01' - '1999-11-01' = 17개월

>

> 뺄셈 제대로 했죠? 이렇게 하고 싶어요

>

> 고수님들 도움을 부탁드립니다.

>

> 다른 컴포넌트 쓰지말고 코딩으로요...

>

> 헤헤 그럼 잘 부탁드립니다.



참고하세요.



procedure TForm1.Button1Click(Sender: TObject);

var

d1, d2, d3: TDateTime;

begin

d1 := strToDate(edit1.text);

d2 := strtodate(edit2.text);

d3 := d2-d1;

showmessage('차이는 ' + formatdatetime('mm', d3) + '개월');

end;

> procedure TForm1.Button1Click(Sender: TObject);

> var

> d1, d2, d3: TDateTime;

> begin

> d1 := strToDate(edit1.text);

> d2 := strtodate(edit2.text);

> d3 := d2-d1;

> showmessage('차이는 ' + formatdatetime('mm', d3) + '개월');

> end;



이렇게 하면 17개월이 아니라 8개월이 된다는 사실을 님은 아십니까?

확인해 보고 써야죠... 저도 이정도는 압니다.

죄송하지만 공부를...

델초보 wrote:

> > procedure TForm1.Button1Click(Sender: TObject);

> > var

> > d1, d2, d3: TDateTime;

> > begin

> > d1 := strToDate(edit1.text);

> > d2 := strtodate(edit2.text);

> > d3 := d2-d1;

> > showmessage('차이는 ' + formatdatetime('mm', d3) + '개월');

> > end;

>

> 이렇게 하면 17개월이 아니라 8개월이 된다는 사실을 님은 아십니까?

> 확인해 보고 써야죠... 저도 이정도는 압니다.

> 죄송하지만 공부를...



이정도의 힌트를 드렸으면 님도 약간의 노력을 기울여서 해결해야죠.

날로 먹을려구 하면 안될텐데.....



약간만 응용하면 금방 나올텐데....



죄송하지만 공부를....

년을 날짜로 환산해 보세요. 1년은 365일 이니까 환산한 값으로 뺀후 몫만 취하고 나머지는 버립니다.



주의사항 : 윤년계산을 하세요.

----------------------------------------------------------------------------------

델초보 wrote:

> 안녕하세요.

> 초보라 어려움이 많아 고수님들께 질문을 드립니다.

> 두날짜사이의 달수를 계산하고 싶어요

>

> 예) '2001-03-01' - '1999-11-01' = 17개월

>

> 뺄셈 제대로 했죠? 이렇게 하고 싶어요

>

> 고수님들 도움을 부탁드립니다.

>

> 다른 컴포넌트 쓰지말고 코딩으로요...

>

> 헤헤 그럼 잘 부탁드립니다.