[ASP.NET] 음력 -> 양력 변환 함수 > 기술자료

• 목록

.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