서지현 wrote:

> 안냐세요...고수님들

>

> 생년 := StrToInt( Copy( 주민등록번호, 1,2 ) ) + 1900;

> 이렇게 하면 예를들어 76년생이라면 76****-*******이라는 주민번호를 가지는데

> 위와 같이 하면 1976년생이란 것은 나옵니다.

> 그런 뒤에 나이를 계산하기에 알맞는 코딩은 ??????

> 그런후 새로 만든 age라는 필드에 넣어 두려면 ???

>

> 제가 워낙 돌이라서..히히히

> 쉽게 쉽게 감사드리겠습니다.

>

>

> 안녕하세요.

지나가다 들렸어요.



어떻게 나이를 구할 것인가가 문제이군요..

생일무시or 생일Check를 해서 나이를 구할지....

여하튼

1. 문제는 현재년도에서 주민등록상의 태어난 년도를 빼서 +1을 해준다

설명) DeCodeDate사용방법(일자를 년도, 월, 일로 나누는 작업)

1) 변수선언

YY1,MM1,DD1 : Word // 년도,월,일의 변수라고 선언 했다고 하자...

-- DecodeDate(Date,YY1,MM1,DD1)이라고 하면 현재일자가 각각

YY1에 년도, MM1에 월, DD1에 일이 들어간다..

2) 태어난 년도 구해오기

BirYear : Integer // 태어난 년도

BirYear := StrToInt( Copy( 주민등록번호, 1,2 ) ) + 1900

=> 본인이 쓴것을 이용...

3) 계산..

나이 := YY1-BirYear+1

시간이 없어서 이만 가야겠네요..

약속이 있어서

자세한 내용은 나중에 기회 있을때에..

서지현 wrote:

> 안냐세요...고수님들

>

> 생년 := StrToInt( Copy( 주민등록번호, 1,2 ) ) + 1900;

> 이렇게 하면 예를들어 76년생이라면 76****-*******이라는 주민번호를 가지는데

> 위와 같이 하면 1976년생이란 것은 나옵니다.

> 그런 뒤에 나이를 계산하기에 알맞는 코딩은 ??????

> 그런후 새로 만든 age라는 필드에 넣어 두려면 ???

>

> 제가 워낙 돌이라서..히히히

> 쉽게 쉽게 감사드리겠습니다.

>

>

>



안녕하세요.. 참고로 저는 고수가 아닙니다...헉

나이라는게 현재 연도에서 생년을 빼면 되나요? 그럼 now라던가 SystemTimeToDateTime같은 것을 이용하신 후 year값만 decode해서 가져와서 생년을 빼면 되지 않을까요.

그리고 Y2K문제도 있으니 주민번호에서 7번짼가 남1,여2 이것을 꼭 확인하세요. 만약2000년도 이후 출생했다면 남3,여4 (확실치 않음...)니까 생년구할때 2000을 더해야겠죠.

그리고 새로 만든 age라는 필드가 calculatefield를 말씀하신다면, 그 쿼리의 oncalculate event에 위의 계산함수를 적용하면 될 것 같습니다...

쓰다보니 땀이 좀 나는군요..

도움이 되실지 모르겠네요. 좋은 하루 되세요.