주민번호 이용하여 만 나이 구하기 > 기술자료

• 목록
• 게시판 리스트 옵션
  • 검색

<%

' 연령 관련 설정
dim yyyy, mm, dd, BYear, FullDate, Age, NowAgeDate, age_area
yyyy = Left(jumin1,2)
mm  = Mid(jumin1,3,2)
dd  = right(jumin1,2)

'생년을 구합니다
If CInt(Left(jumin2, 1)) < 3 Then
  BYear = "19"& Left(jumin1, 2)
Else
  BYear = "20"& Left(jumin1, 2)
End If

'완전한 Date형식을 만듭니다.
FullDate = BYear &"-"& Mid(jumin1, 3, 2) &"-"& Right(jumin1, 2)

'나이를 구합니다
Age = Year(Now()) - BYear

'생년에 나이를 더하여 현재 날짜(연도)와 맞춤)
NowAgeDate = DateAdd("yyyy", Age, FullDate)

'현재 날짜가 생년 날짜를 비교하여 현재 날짜가 더 작을 경우 생일이 지나지 않은것임
If DateDiff("d", NowAgeDate, Date()) < 0 Then
  Age = Age - 1
End If

if 15 <= age and age < 30 then
  age_area = "20대"
elseif 30 <= age and age  < 40 then
  age_area = "30대"
elseif 40 <= age and age  < 50 then
  age_area = "40대"
elseif 50 <= age then
  age_area = "50대"
else
  age_area = "10대"
end if
response.write ("age = "& age &"<br />")
response.write ("age_area = "& age_area &"<br />")

%>

자료인용
http://kin.naver.com/detail/detail.php?dir_id=10112&eid=HGMcu4gYGswsOfK3JHW8OkszSpzhE26x&qb=YXNwIOyjvOuvvOuyiO2YuCDrp4wg64KY7J20