밑에 답변도 맞습니다만 이 방법은 어떨지?



함수중에

function IsLeapYear(Year: Word): Boolean;



요걸 쓰시면 2월이 윤년인지 그냥 나오죠?



델초보 ... wrote:

> 매월마지막 날짜를 체크하고 싶습니다.

> 도와주세요...

>

>

> Ex) 1월 ... 31

> 2월 ... 29

> 3월 ... 31

밑에 답변도 맞습니다만 이 방법은 어떨지?



함수중에

function IsLeapYear(Year: Word): Boolean;



요걸 쓰시면 2월이 윤년인지 그냥 나오죠?



델초보 ... wrote:

> 매월마지막 날짜를 체크하고 싶습니다.

> 도와주세요...

>

>

> Ex) 1월 ... 31

> 2월 ... 29

> 3월 ... 31

델초보 ... wrote:

> 매월마지막 날짜를 체크하고 싶습니다.

> 도와주세요...

>

>

> Ex) 1월 ... 31

> 2월 ... 29

> 3월 ... 31



일년중 마지막 날짜가 변하는 달은 2월달 뿐입니다.

그러므로 나머지 달들은 배열에 저장하고,

2월은 29일이 되는 해(윤년)만만 찾아내어 2월이 자리할 배열에 삽입하면

간단히 해결될거 같네요.

평년과 윤년은 아신다고 생각하고 윤년을 찾아내는

간단한 수식과 간단한 작성법을 해보면..



Var aYear: Integer;

const

Months: array[1..12] of Integer =

(31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);

begin

Year:= 2000; //2000년은 윤년입니다.

if (aYear mod 4 = 0) and ((aYear mod 100 <> 0) or (aYear mod 400 = 0))then

Months[2]:= 29 //윤년

else Months[2]:= 28; //평년

end;

음...이런 형태가 될거 같네요..



그럼.. 즐거운 프로그래밍이 되시길..