음력 -> 양력 변환 함수 > 온라인강의

본문 바로가기
 
 
 
오늘 421
어제 2,038
최대 2,454
전체 3,144,019
비즈니스의 시작 비즈명함 ~ 가격, 품질, 배송 3가지 만족을 드리는 비즈명함 / 즉석명함 / 급행서비스 / 서울 전지역 수도권일부 3시간배송

온라인강좌 홈 > 온라인강좌 > 온라인강좌

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

페이지 정보

작성일2009-01-16 19:09 조회12,143회 댓글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 10건 1 페이지
온라인강의 목록
번호 제목
10
ASP.NET web.config 샘플 (write.2016-04-07)인기글  Hit.2169
9
8
7
6
ASP.NET Active Server Page.NET이란? (write.2013-02-18)인기글  Hit.4814
5
ASP.NET 서버 권한이 없습니다. (write.2012-09-09)인기글  Hit.4049
4
3
ASP.NET Session.Timeout 우선순위 (write.2012-05-18)인기글  Hit.6362
2
ASP.NET 회원가입 샘플 소스 (write.2012-03-21)인기글  Hit.7854
열람중
ASP.NET 음력 -> 양력 변환 함수 (write.2009-01-16)인기글  Hit.12144
게시물 검색
 
 
상호: 해피정닷컴 대표:정창용 사업자등록번호: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
 
모바일 버전으로 보기