how to weather xml in classic asp / how to weather api in classic asp / how to weather in asp / how to weather api in javascript / how to 비동기 날씨가져오기 in classic asp / how to weather ap in jquery

어디 넣어야할지 몰라서 우선 개발을  classic ASP 로 했으니 ㅎㅎ 여기 넣어야겠다

사용 설명 : 날씨의 지역을 선택하면 하단의 3일간의 날씨가 비동기로 변경된다.

※ 아래 소스는 PC버전을 이용하셔야 보입니다.

날짜를 선택한다.   ▶▶ 선택시 ▶▶      해당 지역의 날짜(3일간)을 표현한다.

1. 보여줄 페이지 (weather.asp)

 참고 : jquery1.10을 사용했습니다.

javascript

function callPage() { var weatherKey = $( "#search_area").val(); var url = './weather_rss.asp'; var divWeather = $(".left_weatherWrap"); var tdiv = ""; $.ajax({ type: "POST", url: url, data:{weatherKey:weatherKey}, success: function(response){ $(".weather_txt").remove(); for (var i in response.weatherData) { tdiv = "<div class='weather_txt'><img src='"+response.weatherData[i].imgWeather+"' alt='"+response.weatherData[i].wfKor+"' /><div class='weather_tw'><span class='txt01'>" + response.weatherData[i].time +"</span><span class='txt02'><span class='txt'>"+ response.weatherData[i].wfKor +"</span><strong>" + response.weatherData[i].temp + " C</strong>("+response.weatherData[i].tmx +"/"+response.weatherData[i].tmn +")</span></div></div>"; divWeather.append(tdiv) } }, dataType: "json" }); }

HTML

<!--//날씨정보 시작--> <div class="left_weatherWrap"> <h4>날씨정보</h4> <select name="sido" id="search_area" class="region" onchange="callPage();"> <option value="4200000000" <%If strKey = "4200000000" Then%>selected="selected" <%End if%>>강원</option> <option value="4100000000" <%If strKey = "4100000000" Then%>selected="selected" <%End if%>>경기</option> <option value="4800000000" <%If strKey = "4800000000" Then%>selected="selected" <%End if%>>경남</option> <option value="4700000000" <%If strKey = "4700000000" Then%>selected="selected" <%End if%>>경북</option> <option value="2900000000" <%If strKey = "2900000000" Then%>selected="selected" <%End if%>>광주</option> <option value="2700000000" <%If strKey = "2700000000" Then%>selected="selected" <%End if%>>대구</option> <option value="3000000000" <%If strKey = "3000000000" Then%>selected="selected" <%End if%>>대전</option> <option value="2600000000" <%If strKey = "2600000000" Then%>selected="selected" <%End if%>>부산</option> <option value="1100000000" <%If strKey = "1100000000" Then%>selected="selected" <%End if%>>서울</option> <option value="3600000000" <%If strKey = "3600000000" Then%>selected="selected" <%End if%>>세종</option> <option value="3100000000" <%If strKey = "3100000000" Then%>selected="selected" <%End if%>>울산</option> <option value="2800000000" <%If strKey = "2800000000" Then%>selected="selected" <%End if%>>인천</option> <option value="4600000000" <%If strKey = "4600000000" Then%>selected="selected" <%End if%>>전남</option> <option value="4500000000" <%If strKey = "4500000000" Then%>selected="selected" <%End if%>>전북</option> <option value="5000000000" <%If strKey = "5000000000" Then%>selected="selected" <%End if%>>제주</option> <option value="4400000000" <%If strKey = "4400000000" Then%>selected="selected" <%End if%>>충남</option> <option value="4300000000" <%If strKey = "4300000000" Then%>selected="selected" <%End if%>>충북</option> </select> <div ID="WeatherDiv"> </div> </div> <!--//날씨정보-->

how to weather xml in classic asp / how to weather api in classic asp / how to weather in asp / how to weather api in javascript / how to 비동기 날씨가져오기 in classic asp / how to weather ap in jquery

2. 비동기 데이터 호출 페이지 (weather_rss.asp)

참고: aspJSON1파일(ASP문 JSON 변환)은 다운로드 받으세요.  출처 : http://www.aspjson.com/

<!--#include virtual="/include/aspJSON1.13.asp" --> Set oJSON = New aspJSON strKey = request("weatherKey") 'strKey = request("sido") If strKey = "" Then strKey = "1100000000" End If 'RSS사이트의 주소입니다. RSSUrl = "http://www.kma.go.kr/wid/queryDFSRSS.jsp?zone="& strKey 'RSS주소에서 text를추출합니다. 아래 Function참고하세요. RSSData = GetXmlHttp(RSSUrl) 'DOM을 생성합니다. Set xmlDoc = Server.CreateObject("MSXML2.DOMDOCUMENT.4.0") xmlDoc.async = false xmlDoc.loadXml RSSData '위에서 받은 text를 로드합니다. '전체뉴스중 랜덤으로 추출하기 위해서 item노드의 갯수를 구한다. newsLength = xmlDoc.selectNodes("//data").length Set SelectNodes = xmlDoc.SelectNodes("//data") '전체 뉴스의 리스트 Dim strTemp Dim strWeather ' oJSON.data("weatherData") = strKey Set oJSON.data("weatherData") = oJSON.Collection() For x = 0 To newsLength-1 If SelectNodes(x).selectSingleNode("day").Text > 0 then If SelectNodes(x).selectSingleNode("hour").Text = 12 Then Set newitem = oJSON.AddToCollection(oJSON.data("weatherData")) newitem.add "hour", SelectNodes(x).selectSingleNode("hour").Text newitem.add "day", SelectNodes(x).selectSingleNode("day").Text newitem.add "temp", fn_Weather_Cal(SelectNodes(x).selectSingleNode("temp").Text) newitem.add "tmx", fn_Weather_Cal(SelectNodes(x).selectSingleNode("tmx").Text) newitem.add "tmn", fn_Weather_Cal(SelectNodes(x).selectSingleNode("tmn").Text) newitem.add "sky", SelectNodes(x).selectSingleNode("sky").Text newitem.add "pty", SelectNodes(x).selectSingleNode("pty").Text newitem.add "wfKor", SelectNodes(x).selectSingleNode("wfKor").Text newitem.add "wfEn", SelectNodes(x).selectSingleNode("wfEn").Text newitem.add "pop", SelectNodes(x).selectSingleNode("pop").Text newitem.add "time", FormatDateTime(DateAdd("d",SelectNodes(x).selectSingleNode("day").text,now()),1) & " " &SelectNodes(x).selectSingleNode("hour").Text & "시" newitem.add "imgWeather", fn_Weather_img(SelectNodes(x).selectSingleNode("wfKor").text, SelectNodes(x).selectSingleNode("wfEn").text) ' CreateNewsLink(SelectNodes(x)) End if Else If strTemp = "chk" Then Else Set newitem = oJSON.AddToCollection(oJSON.data("weatherData")) newitem.add "hour", SelectNodes(x).selectSingleNode("hour").Text newitem.add "day", SelectNodes(x).selectSingleNode("day").Text newitem.add "temp", fn_Weather_Cal(SelectNodes(x).selectSingleNode("temp").Text) newitem.add "tmx", fn_Weather_Cal(SelectNodes(x).selectSingleNode("tmx").Text) newitem.add "tmn", fn_Weather_Cal(SelectNodes(x).selectSingleNode("tmn").Text) newitem.add "sky", SelectNodes(x).selectSingleNode("sky").Text newitem.add "pty", SelectNodes(x).selectSingleNode("pty").Text newitem.add "wfKor", SelectNodes(x).selectSingleNode("wfKor").Text newitem.add "wfEn", SelectNodes(x).selectSingleNode("wfEn").Text newitem.add "pop", SelectNodes(x).selectSingleNode("pop").Text newitem.add "time", FormatDateTime(DateAdd("d",SelectNodes(x).selectSingleNode("day").text,now()),1) & " " &SelectNodes(x).selectSingleNode("hour").Text & "시" newitem.add "imgWeather", fn_Weather_img(SelectNodes(x).selectSingleNode("wfKor").text, SelectNodes(x).selectSingleNode("wfEn").text) ' CreateNewsLink(SelectNodes(x)) strTemp = "chk" End if End If Next '객체를 소멸시킨다 Set SelectNodes = Nothing 'DOM을 소멸시킨다. Set xmlDoc = Nothing 'XMLHTTP로 원격지 서버의 정보를 긁어오기 Function GetXmlHttp(XMLURL) Set xmlHttp = Server.CreateObject("MSXML2.ServerXMLHTTP") xmlHttp.Open "POST", XMLURL, False xmlHttp.Send GetXmlHttp = xmlHttp.responseText Set xmlHttp = Nothing End Function Function fn_Weather_Cal(strTemp) Dim strCal strCal = "-" select case strTemp case "-999.0" strCal = "-" Case Else strCal = strTemp End Select fn_Weather_Cal = strCal End Function Function fn_Weather_img(strKor, strEn) select case strEn case "Clear" fn_Weather_img = "http://www.kma.go.kr/images/icon/NW/NB01.png" case "Partly Cloudy" fn_Weather_img = "http://www.kma.go.kr/images/icon/NW/NB02.png" case "Mostly Cloudy" fn_Weather_img = "http://www.kma.go.kr/images/icon/NW/NB03.png" case "Cloudy" fn_Weather_img = "http://www.kma.go.kr/images/icon/NW/NB04.png" case "Rain" fn_Weather_img = "http://www.kma.go.kr/images/icon/NW/NB08.png" case "Snow" fn_Weather_img = "http://www.kma.go.kr/images/icon/NW/NB11.png" case "Snow/Rain" fn_Weather_img = "http://www.kma.go.kr/images/icon/NW/NB12.png" case "Rain/Snow" fn_Weather_img = "http://www.kma.go.kr/images/icon/NW/NB13.png" case "구름많고 비" fn_Weather_img = "http://www.kma.go.kr/images/icon/NW/NB20.png" case "구름많고 눈" fn_Weather_img = "http://www.kma.go.kr/images/icon/NW/NB21.png" case "구름많고 눈/비" fn_Weather_img = "http://www.kma.go.kr/images/icon/NW/NB22.png" case "구름많고 비/눈" fn_Weather_img = "http://www.kma.go.kr/images/icon/NW/NB23.png" case "" fn_Weather_img = "NoImage" case else fn_Weather_img = "NoImage" end select End Function 'Return the object Response.ContentType = "application/json" Response.Write oJSON.JSONoutput()

워낙 쉬운 코드라 ... 올리기도 참 민망하지만

요즘 머리가 점점... 기억을 잃어 버려 ㅋㅋ 이렇게 적어놓아본다.

ASP 달력소스

  <% Dim str, d(7), cnt, end_date, st_date, t_date str = Date() d(0) = "일" d(1) = "월" d(2) = "화" d(3) = "수" d(4) = "목" d(5) = "금" d(6) = "토" '이번달 1일의 요일 st_date = Weekday(DateSerial(Year(str), Month(str), 1))-1 '이번달 마지막일 end_date = Day(DateSerial(Year(str), Month(str)+1, 1-1)) Response.write "<h2>" & Year(str) & "년 " & Month(str) & "월 </h2><br />" %> <table border="1"> <tr> <% For i=0 To 6 Step 1 Response.write "<td>"&d(i)&"</td>" Next Response.write "</tr>" For i=0 To st_date-1 Response.write "<td></td>" Next For i=1 To end_date t_date = Weekday(DateSerial(Year(str), Month(str), i))-1 Response.write "<td>" & i & "</td>" If(t_date = 6) Then Response.write "</tr><tr>" End if Next Response.write "</tr>" %> </table>

안녕하세요 똥's 입니다.

오늘은 예전에 어디선가 필요해서 가지고 있던 음력, 양력 변환 소스를 올릴꺼에요

출처는 알수 없고.. 라이센스도 없어서 필요하신 분은 사용하시면 되겠어요ㅎ

요즘은 프로그래머가 아니라도 네X버 , 구X 등을 찾으면 많이 나오네요 ;;; 저역시 개발보단

검색이 빠르더라고요; ㅋㅋㅋ

자~~ 그럼 아래 소스를공개 합니다.

음-양력 변환 프로그램 ver 1.1입니다. (2001년 7월 6일 작성)
데브에 올린 ver1.0은 음력 윤달처리가 안되어서.. 윤달처리버전.

사용법
  양력을 => 음력으로 바꿀때는 Sol2Lun함수를 
  음력을 => 양력으로 바꿀때는 Lun2Sol함수를 아래처럼 호출한다
  다음 사용은 음력은 lYEAR, lMONTH, lDAY, lGU 변수를, 양력은  sYEAR, sMONTH, sDAY 변수를 사용하면 된다.

 ☆ 양력에서 음력변환시 lGU가 "Y"면 윤달 "N"면 평달
 ☆ 음력에서 양력변환시 Lun2Sol() 함수의 4번째 인자로 윤달이면 "Y", 평달이면 "N"을 전달하면 됨
 많이 사용해주세요.

※해당 소스는 PC 버전을 이용하셔야 보입니다.

Response.Buffer = True Response.Expires = 0 Response.AddHeader "Pragma", "no-cache" call Sol2Lun(2001, 6, 15) response.write lYEAR & "-" & lMONTH & "-" & lDAY & " - " & lGU & "<br>" ' 처리 결과 : 2001-4-24 - Y call Sol2Lun(2001, 5, 15) response.write lYEAR & "-" & lMONTH & "-" & lDAY & " - " & lGU & "<br>" ' 처리 결과 : 2001-4-22 - N call Lun2Sol(2001, 4, 16, "Y") response.write sYEAR & "-" & sMONTH & "-" & sDAY & "<br>" ' 처리 결과 : 2001-6-7 call Lun2Sol(2001, 4, 16, "N") response.write sYEAR & "-" & sMONTH & "-" & sDAY & "<br>" ' 처리 결과 : 2001-5-9 '--------------------------------------------------------------------------- ' 처리가능 기간 1841 - 2043년 dim kk '1841 kk = "1,2,4,1,1,2,1,2,1,2,2,1," kk = kk & "2,2,1,2,1,1,2,1,2,1,2,1," kk = kk & "2,2,2,1,2,1,4,1,2,1,2,1," kk = kk & "2,2,1,2,1,2,1,2,1,2,1,2," kk = kk & "1,2,1,2,2,1,2,1,2,1,2,1," kk = kk & "2,1,2,1,5,2,1,2,2,1,2,1," kk = kk & "2,1,1,2,1,2,1,2,2,2,1,2," kk = kk & "1,2,1,1,2,1,2,1,2,2,2,1," kk = kk & "2,1,2,3,2,1,2,1,2,1,2,2," kk = kk & "2,1,2,1,1,2,1,1,2,2,1,2," '1851 kk = kk & "2,2,1,2,1,1,2,1,2,1,5,2," kk = kk & "2,1,2,2,1,1,2,1,2,1,1,2," kk = kk & "2,1,2,2,1,2,1,2,1,2,1,2," kk = kk & "1,2,1,2,1,2,5,2,1,2,1,2," kk = kk & "1,1,2,1,2,2,1,2,2,1,2,1," kk = kk & "2,1,1,2,1,2,1,2,2,2,1,2," kk = kk & "1,2,1,1,5,2,1,2,1,2,2,2," kk = kk & "1,2,1,1,2,1,1,2,2,1,2,2," kk = kk & "2,1,2,1,1,2,1,1,2,1,2,2," kk = kk & "2,1,6,1,1,2,1,1,2,1,2,2," '1861 kk = kk & "1,2,2,1,2,1,2,1,2,1,1,2," kk = kk & "2,1,2,1,2,2,1,2,2,3,1,2," kk = kk & "1,2,2,1,2,1,2,2,1,2,1,2," kk = kk & "1,1,2,1,2,1,2,2,1,2,2,1," kk = kk & "2,1,1,2,4,1,2,2,1,2,2,1," kk = kk & "2,1,1,2,1,1,2,2,1,2,2,2," kk = kk & "1,2,1,1,2,1,1,2,1,2,2,2," kk = kk & "1,2,2,3,2,1,1,2,1,2,2,1," kk = kk & "2,2,2,1,1,2,1,1,2,1,2,1," kk = kk & "2,2,2,1,2,1,2,1,1,5,2,1," '1871 kk = kk & "2,2,1,2,2,1,2,1,2,1,1,2," kk = kk & "1,2,1,2,2,1,2,1,2,2,1,2," kk = kk & "1,1,2,1,2,4,2,1,2,2,1,2," kk = kk & "1,1,2,1,2,1,2,1,2,2,2,1," kk = kk & "2,1,1,2,1,1,2,1,2,2,2,1," kk = kk & "2,2,1,1,5,1,2,1,2,2,1,2," kk = kk & "2,2,1,1,2,1,1,2,1,2,1,2," kk = kk & "2,2,1,2,1,2,1,1,2,1,2,1," kk = kk & "2,2,4,2,1,2,1,1,2,1,2,1," kk = kk & "2,1,2,2,1,2,2,1,2,1,1,2," '1881 kk = kk & "1,2,1,2,1,2,5,2,2,1,2,1," kk = kk & "1,2,1,2,1,2,1,2,2,1,2,2," kk = kk & "1,1,2,1,1,2,1,2,2,2,1,2," kk = kk & "2,1,1,2,3,2,1,2,2,1,2,2," kk = kk & "2,1,1,2,1,1,2,1,2,1,2,2," kk = kk & "2,1,2,1,2,1,1,2,1,2,1,2," kk = kk & "2,2,1,5,2,1,1,2,1,2,1,2," kk = kk & "2,1,2,2,1,2,1,1,2,1,2,1," kk = kk & "2,1,2,2,1,2,1,2,1,2,1,2," kk = kk & "1,5,2,1,2,2,1,2,1,2,1,2," '1891 kk = kk & "1,2,1,2,1,2,1,2,2,1,2,2," kk = kk & "1,1,2,1,1,5,2,2,1,2,2,2," kk = kk & "1,1,2,1,1,2,1,2,1,2,2,2," kk = kk & "1,2,1,2,1,1,2,1,2,1,2,2," kk = kk & "2,1,2,1,5,1,2,1,2,1,2,1," kk = kk & "2,2,2,1,2,1,1,2,1,2,1,2," kk = kk & "1,2,2,1,2,1,2,1,2,1,2,1," kk = kk & "2,1,5,2,2,1,2,1,2,1,2,1," kk = kk & "2,1,2,1,2,1,2,2,1,2,1,2," kk = kk & "1,2,1,1,2,1,2,5,2,2,1,2," '1901 kk = kk & "1,2,1,1,2,1,2,1,2,2,2,1," kk = kk & "2,1,2,1,1,2,1,2,1,2,2,2," kk = kk & "1,2,1,2,3,2,1,1,2,2,1,2," kk = kk & "2,2,1,2,1,1,2,1,1,2,2,1," kk = kk & "2,2,1,2,2,1,1,2,1,2,1,2," kk = kk & "1,2,2,4,1,2,1,2,1,2,1,2," kk = kk & "1,2,1,2,1,2,2,1,2,1,2,1," kk = kk & "2,1,1,2,2,1,2,1,2,2,1,2," kk = kk & "1,5,1,2,1,2,1,2,2,2,1,2," kk = kk & "1,2,1,1,2,1,2,1,2,2,2,1," '1911 kk = kk & "2,1,2,1,1,5,1,2,2,1,2,2," kk = kk & "2,1,2,1,1,2,1,1,2,2,1,2," kk = kk & "2,2,1,2,1,1,2,1,1,2,1,2," kk = kk & "2,2,1,2,5,1,2,1,2,1,1,2," kk = kk & "2,1,2,2,1,2,1,2,1,2,1,2," kk = kk & "1,2,1,2,1,2,2,1,2,1,2,1," kk = kk & "2,3,2,1,2,2,1,2,2,1,2,1," kk = kk & "2,1,1,2,1,2,1,2,2,2,1,2," kk = kk & "1,2,1,1,2,1,5,2,2,1,2,2," kk = kk & "1,2,1,1,2,1,1,2,2,1,2,2," '1921 kk = kk & "2,1,2,1,1,2,1,1,2,1,2,2," kk = kk & "2,1,2,2,3,2,1,1,2,1,2,2," kk = kk & "1,2,2,1,2,1,2,1,2,1,1,2," kk = kk & "2,1,2,1,2,2,1,2,1,2,1,1," kk = kk & "2,1,2,5,2,1,2,2,1,2,1,2," kk = kk & "1,1,2,1,2,1,2,2,1,2,2,1," kk = kk & "2,1,1,2,1,2,1,2,2,1,2,2," kk = kk & "1,5,1,2,1,1,2,2,1,2,2,2," kk = kk & "1,2,1,1,2,1,1,2,1,2,2,2," kk = kk & "1,2,2,1,1,5,1,2,1,2,2,1," '1931 kk = kk & "2,2,2,1,1,2,1,1,2,1,2,1," kk = kk & "2,2,2,1,2,1,2,1,1,2,1,2," kk = kk & "1,2,2,1,6,1,2,1,2,1,1,2," kk = kk & "1,2,1,2,2,1,2,2,1,2,1,2," kk = kk & "1,1,2,1,2,1,2,2,1,2,2,1," kk = kk & "2,1,4,1,2,1,2,1,2,2,2,1," kk = kk & "2,1,1,2,1,1,2,1,2,2,2,1," kk = kk & "2,2,1,1,2,1,4,1,2,2,1,2," kk = kk & "2,2,1,1,2,1,1,2,1,2,1,2," kk = kk & "2,2,1,2,1,2,1,1,2,1,2,1," '1941 kk = kk & "2,2,1,2,2,4,1,1,2,1,2,1," kk = kk & "2,1,2,2,1,2,2,1,2,1,1,2," kk = kk & "1,2,1,2,1,2,2,1,2,2,1,2," kk = kk & "1,1,2,4,1,2,1,2,2,1,2,2," kk = kk & "1,1,2,1,1,2,1,2,2,2,1,2," kk = kk & "2,1,1,2,1,1,2,1,2,2,1,2," kk = kk & "2,5,1,2,1,1,2,1,2,1,2,2," kk = kk & "2,1,2,1,2,1,1,2,1,2,1,2," kk = kk & "2,2,1,2,1,2,3,2,1,2,1,2," kk = kk & "2,1,2,2,1,2,1,1,2,1,2,1," '1951 kk = kk & "2,1,2,2,1,2,1,2,1,2,1,2," kk = kk & "1,2,1,2,4,2,1,2,1,2,1,2," kk = kk & "1,2,1,1,2,2,1,2,2,1,2,2," kk = kk & "1,1,2,1,1,2,1,2,2,1,2,2," kk = kk & "2,1,4,1,1,2,1,2,1,2,2,2," kk = kk & "1,2,1,2,1,1,2,1,2,1,2,2," kk = kk & "2,1,2,1,2,1,1,5,2,1,2,2," kk = kk & "1,2,2,1,2,1,1,2,1,2,1,2," kk = kk & "1,2,2,1,2,1,2,1,2,1,2,1," kk = kk & "2,1,2,1,2,5,2,1,2,1,2,1," '1961 kk = kk & "2,1,2,1,2,1,2,2,1,2,1,2," kk = kk & "1,2,1,1,2,1,2,2,1,2,2,1," kk = kk & "2,1,2,3,2,1,2,1,2,2,2,1," kk = kk & "2,1,2,1,1,2,1,2,1,2,2,2," kk = kk & "1,2,1,2,1,1,2,1,1,2,2,1," kk = kk & "2,2,5,2,1,1,2,1,1,2,2,1," kk = kk & "2,2,1,2,2,1,1,2,1,2,1,2," kk = kk & "1,2,2,1,2,1,5,2,1,2,1,2," kk = kk & "1,2,1,2,1,2,2,1,2,1,2,1," kk = kk & "2,1,1,2,2,1,2,1,2,2,1,2," '1971 kk = kk & "1,2,1,1,5,2,1,2,2,2,1,2," kk = kk & "1,2,1,1,2,1,2,1,2,2,2,1," kk = kk & "2,1,2,1,1,2,1,1,2,2,2,1," kk = kk & "2,2,1,5,1,2,1,1,2,2,1,2," kk = kk & "2,2,1,2,1,1,2,1,1,2,1,2," kk = kk & "2,2,1,2,1,2,1,5,2,1,1,2," kk = kk & "2,1,2,2,1,2,1,2,1,2,1,1," kk = kk & "2,2,1,2,1,2,2,1,2,1,2,1," kk = kk & "2,1,1,2,1,6,1,2,2,1,2,1," kk = kk & "2,1,1,2,1,2,1,2,2,1,2,2," '1981 kk = kk & "1,2,1,1,2,1,1,2,2,1,2,2," kk = kk & "2,1,2,3,2,1,1,2,2,1,2,2," kk = kk & "2,1,2,1,1,2,1,1,2,1,2,2," kk = kk & "2,1,2,2,1,1,2,1,1,5,2,2," kk = kk & "1,2,2,1,2,1,2,1,1,2,1,2," kk = kk & "1,2,2,1,2,2,1,2,1,2,1,1," kk = kk & "2,1,2,2,1,5,2,2,1,2,1,2," kk = kk & "1,1,2,1,2,1,2,2,1,2,2,1," kk = kk & "2,1,1,2,1,2,1,2,2,1,2,2," kk = kk & "1,2,1,1,5,1,2,1,2,2,2,2," '1991 kk = kk & "1,2,1,1,2,1,1,2,1,2,2,2," kk = kk & "1,2,2,1,1,2,1,1,2,1,2,2," kk = kk & "1,2,5,2,1,2,1,1,2,1,2,1," kk = kk & "2,2,2,1,2,1,2,1,1,2,1,2," kk = kk & "1,2,2,1,2,2,1,5,2,1,1,2," kk = kk & "1,2,1,2,2,1,2,1,2,2,1,2," kk = kk & "1,1,2,1,2,1,2,2,1,2,2,1," kk = kk & "2,1,1,2,3,2,2,1,2,2,2,1," kk = kk & "2,1,1,2,1,1,2,1,2,2,2,1," kk = kk & "2,2,1,1,2,1,1,2,1,2,2,1," '2001 kk = kk & "2,2,2,3,2,1,1,2,1,2,1,2," kk = kk & "2,2,1,2,1,2,1,1,2,1,2,1," kk = kk & "2,2,1,2,2,1,2,1,1,2,1,2," kk = kk & "1,5,2,2,1,2,1,2,2,1,1,2," kk = kk & "1,2,1,2,1,2,2,1,2,2,1,2," kk = kk & "1,1,2,1,2,1,5,2,2,1,2,2," kk = kk & "1,1,2,1,1,2,1,2,2,2,1,2," kk = kk & "2,1,1,2,1,1,2,1,2,2,1,2," kk = kk & "2,2,1,1,5,1,2,1,2,1,2,2," kk = kk & "2,1,2,1,2,1,1,2,1,2,1,2," '2011 kk = kk & "2,1,2,2,1,2,1,1,2,1,2,1," kk = kk & "2,1,6,2,1,2,1,1,2,1,2,1," kk = kk & "2,1,2,2,1,2,1,2,1,2,1,2," kk = kk & "1,2,1,2,1,2,1,2,5,2,1,2," kk = kk & "1,2,1,1,2,1,2,2,2,1,2,2," kk = kk & "1,1,2,1,1,2,1,2,2,1,2,2," kk = kk & "2,1,1,2,3,2,1,2,1,2,2,2," kk = kk & "1,2,1,2,1,1,2,1,2,1,2,2," kk = kk & "2,1,2,1,2,1,1,2,1,2,1,2," kk = kk & "2,1,2,5,2,1,1,2,1,2,1,2," '2021 kk = kk & "1,2,2,1,2,1,2,1,2,1,2,1," kk = kk & "2,1,2,1,2,2,1,2,1,2,1,2," kk = kk & "1,5,2,1,2,1,2,2,1,2,1,2," kk = kk & "1,2,1,1,2,1,2,2,1,2,2,1," kk = kk & "2,1,2,1,1,5,2,1,2,2,2,1," kk = kk & "2,1,2,1,1,2,1,2,1,2,2,2," kk = kk & "1,2,1,2,1,1,2,1,1,2,2,2," kk = kk & "1,2,2,1,5,1,2,1,1,2,2,1," kk = kk & "2,2,1,2,2,1,1,2,1,1,2,2," kk = kk & "1,2,1,2,2,1,2,1,2,1,2,1," '2031 kk = kk & "2,1,5,2,1,2,2,1,2,1,2,1," kk = kk & "2,1,1,2,1,2,2,1,2,2,1,2," kk = kk & "1,2,1,1,2,1,5,2,2,2,1,2," kk = kk & "1,2,1,1,2,1,2,1,2,2,2,1," kk = kk & "2,1,2,1,1,2,1,1,2,2,1,2," kk = kk & "2,2,1,2,1,4,1,1,2,1,2,2," kk = kk & "2,2,1,2,1,1,2,1,1,2,1,2," kk = kk & "2,2,1,2,1,2,1,2,1,1,2,1," kk = kk & "2,2,1,2,5,2,1,2,1,2,1,1," kk = kk & "2,1,2,2,1,2,2,1,2,1,2,1," '2041 kk = kk & "2,1,1,2,1,2,2,1,2,2,1,2," kk = kk & "1,5,1,2,1,2,1,2,2,2,1,2," kk = kk & "1,2,1,1,2,1,1,2,2,1,2,2" dim tweek, tmd, akk, aweek, amd, leap tweek = "일,월,화,수,목,금,토" tmd = "31,0,31,30,31,30,31,31,30,31,30,31" akk = split(kk, ",") aweek = split(tweek, ",") amd = split(tmd, ",") Dim sYEAR, sMONTH, sDAY ' 양력일자를 저장할 변수 Dim lYEAR, lMONTH, lDAY, lGU ' 음력일자를 저장할 변수 Dim YoonYN ' 윤년 여부를 저장하는 변수 1=윤년, 0=평년 Function siYoon(yy) ' 윤년인지를 판단하는 함수 if yy mod 4 <> 0 then YoonYN = 0 elseif yy mod 100 <> 0 then YoonYN = 1 elseif yy mod 400 <> 0 then YoonYN = 0 else YoonYN = 1 end if End Function Function Sol2Lun(y, m, d) dim dt() ' 매년의 음력일수를 저장할 배열 변수 dim td ' 음력일을 계산하기 위해 양력일과의 차이를 저장할 변수 dim td1 ' 1840년까지의 날수 dim td2 ' 현재까지의 날수 dim sy, sm, sd ' 전해온 양력 인자값을 저장할 년, 월, 일 임시변수 dim mm ' 임시변수 dim ly, lm, ld ' 계산된 음력 년, 월, 일을 저장할 변수 dim yoon ' 현재월이 윤달임을 표시 td1 = 672069 ' 672069 = 1840 * 365 + 1840/4 - 1840/100 + 1840/400 + 23 //1840년까지 날수 sy = y sm = m sd = d siYoon(sy) ' 윤달여부를 체크 if YoonYn = 1 then amd(1) = 29 else amd(1) = 28 end if ' 1841년부터 작년까지의 날수 td2 = (sy - 1) * 365 + int((sy - 1)/4) - int((sy - 1)/100) + int((sy - 1)/400) ' 전월까지의 날수를 더함 for i = 0 to sm - 2 td2 = td2 + int(amd(i)) next ' 현재일까지의 날수를 더함 td2 = td2 + sd ' 양력현재일과 음력 1840년까지의 날수의 차이 td = td2 - td1 + 1 ' 1841년부터 음력날수를 계산 redim dt(sy-1841) for i = 0 to sy - 1841 dt(i) = 0 for j = 0 to 11 select case int(akk(i*12 + j)) case 1 : mm = 29 case 2 : mm = 30 case 3 : mm = 58 ' 29 + 29 case 4 : mm = 59 ' 29 + 30 case 5 : mm = 59 ' 30 + 29 case 6 : mm = 60 ' 30 + 30 end select dt(i) = dt(i) + mm next next ' 1840년 이후의 년도를 계산 - 현재까지의 일수에서 위에서 계산된 1841년부터의 매년 음력일수를 빼가면수 년도를 계산 ly = 0 do while(td > dt(ly)) td = td - dt(ly) ly = ly + 1 loop lm = 0 yoon = "N" ' 현재월이 윤달임을 표시할 변수 - 기본값 평달 do while(1) if int(akk(ly*12 + lm)) <= 2 then mm = int(akk(ly*12 + lm)) + 28 if td > mm then td = td - mm lm = lm + 1 else exit do end if else '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' select case int(akk(ly*12 + lm)) case 3 : m1 = 29 m2 = 29 case 4 : m1 = 29 m2 = 30 case 5 : m1 = 30 m2 = 29 case 6 : m1 = 30 m2 = 30 end select if td > m1 then td = td - m1 if td > m2 then td = td - m2 lm = lm + 1 else yoon = "Y" end if else exit do end if end if loop ly = ly + 1841 lm = lm + 1 ld = td lYEAR = ly lMONTH = lm lDAY = ld lGU = yoon End Function Function Lun2Sol(y, m, d, g) dim ly, lm, ld, lg ' 전해온 음력 인자값을 저장할 년, 월, 일, 윤달여부 임시변수 dim sy, sm, sd ' 계산된 양력 년, 월, 일을 저장할 변수 dim y1, m1, i, j, y2, y3 ' 임시변수 ly = y lm = m ld = d lg = g y1 = ly - 1841 m1 = lm - 1 leap = 0 if int(akk(y1*12 + m1)) > 2 then siYoon(ly) leap = YoonYN end if if leap = 1 then select case int(akk(y1*12 + m1)) case 3 : mm = 29 case 4 : mm = 30 case 5 : mm = 29 case 6 : mm = 30 end select else select case int(akk(y1*12 + m1)) case 1 : mm = 29 case 2 : mm = 30 case 3 : mm = 29 case 4 : mm = 29 case 5 : mm = 30 case 6 : mm = 30 end select end if td = 0 for i = 0 to y1 - 1 for j = 0 to 11 select case int(akk(i*12 + j)) case 1 : td = td + 29 case 2 : td = td + 30 case 3 : td = td + 58 case 4 : td = td + 59 case 5 : td = td + 59 case 6 : td = td + 60 end select next next for j = 0 to m1 - 1 select case int(akk(y1*12 + j)) case 1 : td = td + 29 case 2 : td = td + 30 case 3 : td = td + 58 case 4 : td = td + 59 case 5 : td = td + 59 case 6 : td = td + 60 end select next if leap = 1 then select case int(akk(y1*12 + m1)) case 3 : mm = 29 case 4 : mm = 29 case 5 : mm = 30 case 6 : mm = 30 end select end if td = td + ld + 22 if lg = "Y" then select case int(akk(y1*12 + m1)) case 3 : td = td + 29 case 4 : td = td + 30 case 5 : td = td + 29 case 6 : td = td + 30 end select end if y1 = 1840 do while(true) y1 = y1 + 1 siYoon(y1) leap = YoonYN if leap = 1 then y2 = 366 else y2 = 365 end if if td <= y2 then exit do end if td = td - y2 loop sy = y1 amd(1) = y2 - 337 m1 = 0 do while(true) m1 = m1 + 1 if td <= int(amd(m1-1)) then exit do end if td = td - int(amd(m1-1)) loop sm = m1 sd = td y3 = sy td = y3 * 365 + int(y3/4) - int(y3/100) + int(y3/400) for i = 0 to sm - 1 td = td + int(amd(i)) next td = td + sd sYEAR = y3 sMONTH = sm sDAY = sd End Function