양력을 음력으로 변환하는 로직

            '    ---------------------------------------------------------------------------

            '    '양력을 음력으로 변환하는 로직

            '---------------------------------------------------------------------------

            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

            nYear = Now.Year

            nMonth = Now.Month

            nDay = Now.Day

            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

            Dim 음력생일확인 As String = nYear & "-" & nMonth & "-" & nDay

            Dim 음력날짜변환 As Date = 음력생일확인

            Label39.Text = Format(음력날짜변환, "MMdd")