[ASP.NET] 음력 -> 양력 변환 함수 > 온라인강의

본문 바로가기
 
 
 
오늘 889
어제 1,706
최대 2,526
전체 3,395,408

최근 방문자

1011
1853
1775
1756
1706
889
18 19 20 21 22 23
비즈니스의 시작 비즈명함 ~ 가격, 품질, 배송 3가지 만족을 드리는 비즈명함 / 즉석명함 / 급행서비스 / 서울 전지역 수도권일부 3시간배송

select * from g5_menu where me_use = '1' and me_link like '%lecture%'
온라인강좌 홈 > 온라인강좌 > 온라인강좌

.NET | [ASP.NET] 음력 -> 양력 변환 함수

페이지 정보

작성일2009-01-16 19:09 조회12,486회 댓글0건

본문

.NET 2.0 부터는 음력양력 변환함수를 제공합니다.
사용방법은 다음과 같습니다.
---------------------------------------------------------------------------
'양력을 음력으로 변환하는 로직
---------------------------------------------------------------------------
Dim kLunar As New System.Globalization.KoreanLunisolarCalendar
Dim nLeapMonth As Integer '윤월
Dim bLeapMonth As Boolean '변환하고자 하는 월이 윤월인가?
Dim nYear As Integer '변환하고자 하는 음력 년도
Dim nMonth As Integer '변환하고자 하는 음력 월
Dim nDay As Integer '변환하고자 하는 음력 일
Dim dTemp As Date
'음력은 윤월이 있을경우 월을 1 에서 13 사이의 숫자로 반환하는데
'예를들어 윤월이 8월이라면 첫번째 8월은 8로 윤월 8월은 9 로 9월은 10으로
'나타낸다. 따라서 윤월여부를 확인하여 표시하여야 한다.
'양력 1970-1-1을 음력으로 환산하려면
nYear = 1970
nMonth = 1
nDay = 1
dTemp = nYear & "-" & nMonth & "-" & nDay
nYear = kLunar.GetYear(dTemp) '음력 년
nMonth = kLunar.GetMonth(dTemp) '음력 월
nDay = kLunar.GetDayOfMonth(dTemp) '음력 일
'윤월이 있으면 월이 13 임
If kLunar.GetMonthsInYear(nYear) > 12 Then
nLeapMonth = kLunar.GetLeapMonth(nYear) '윤월
bLeapMonth = kLunar.IsLeapMonth(nYear, nMonth)
If bLeapMonth = True Then
'변환하고자 하는 월이 윤월이면 월에 1을 뺀다
nMonth -= 1
ElseIf nMonth > nLeapMonth Then
nMonth -= 1
End If
End If
MsgBox(nYear & "-" & nMonth & "-" & nDay)


참고사이트
http://blog.empas.com/twoofus/19698196 
  • 페이스북으로 보내기
  • 트위터로 보내기
  • 구글플러스로 보내기

댓글목록

등록된 댓글이 없습니다.


목록

Total 2,005건 1 페이지
온라인강의 목록
번호 제목
2005
2004
2003
2002
2001
2000
1999
1998
1997
1996
1995
1994
1993
1992
1991
1990
1989
1988
1987
1986
1985
1984
1983
1982
1981
게시물 검색
 
 
상호: 해피정닷컴 대표:정창용 사업자등록번호:119-05-36414 (08394) 서울시 구로구 디지털로 242 한화비즈메트로1차 1502호
전화: 070-7600-3500 팩스:02-865-3528 개인정보관리:정창용 mail@happyjung.com 에스크로확인
개인정보취급방침
COPYRIGHT 2001~2017 해피정닷컴. All rights reserved. 부가통신사업신고:서울체신청-1217 통신판매신고:2014-서울구로-0074
 
모바일 버전으로 보기