음-양력 변환 프로그램

안녕하세요 똥'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 버전을 이용하셔야 보입니다.

 

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519

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