GetKyuurekiDay(日付)

指定項目 内 容
 日付  旧暦の日付を取得する日を指定します。

戻り値  旧暦の日付

         対象範囲 2000年12月26日 〜 2031年02月21日

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        Dim w As New ChoiKits.Day

        MsgBox("今日は、 " & Today() & " です。 " & vbCrLf & vbCrLf & "旧暦は、 " _
               & w.GetKyuurekiDay(Today()) & " です。  ", , "旧暦の日付を取得する")

    End Sub)

      

      サンプルプログラムダウンロード

   Public Function GetKyuurekiDay(ByVal wrk_day As Date) As Date

        '【旧暦】を取得する

        Dim i As Integer

        Dim wrk_DayTable(2, 375) As Date

        '新暦 & 旧暦の朔日の設定 変換表

        '新暦

        wrk_DayTable(1, 1) = "2000/12/26"
        wrk_DayTable(1, 2) = "2001/01/24"
        wrk_DayTable(1, 3) = "2001/02/23"
        wrk_DayTable(1, 4) = "2001/03/25"
        wrk_DayTable(1, 5) = "2001/04/24"
        wrk_DayTable(1, 6) = "2001/05/23"
        wrk_DayTable(1, 7) = "2001/06/21"
        wrk_DayTable(1, 8) = "2001/07/21"
        wrk_DayTable(1, 9) = "2001/08/19"
        wrk_DayTable(1, 10) = "2001/09/17"
        wrk_DayTable(1, 11) = "2001/10/17"
        wrk_DayTable(1, 12) = "2001/11/15"
        wrk_DayTable(1, 13) = "2001/12/15"
        wrk_DayTable(1, 14) = "2002/01/13"
        wrk_DayTable(1, 15) = "2002/02/12"
        wrk_DayTable(1, 16) = "2002/03/14"
        wrk_DayTable(1, 17) = "2002/04/13"
        wrk_DayTable(1, 18) = "2002/05/12"
        wrk_DayTable(1, 19) = "2002/06/11"
        wrk_DayTable(1, 20) = "2002/07/10"
        wrk_DayTable(1, 21) = "2002/08/09"
        wrk_DayTable(1, 22) = "2002/09/07"
        wrk_DayTable(1, 23) = "2002/10/06"
        wrk_DayTable(1, 24) = "2002/11/05"
        wrk_DayTable(1, 25) = "2002/12/04"
        wrk_DayTable(1, 26) = "2003/01/03"
        wrk_DayTable(1, 27) = "2003/02/01"
        wrk_DayTable(1, 28) = "2003/03/03"
        wrk_DayTable(1, 29) = "2003/04/02"
        wrk_DayTable(1, 30) = "2003/05/01"
        wrk_DayTable(1, 31) = "2003/05/31"
        wrk_DayTable(1, 32) = "2003/06/30"
        wrk_DayTable(1, 33) = "2003/07/29"
        wrk_DayTable(1, 34) = "2003/08/28"
        wrk_DayTable(1, 35) = "2003/09/26"
        wrk_DayTable(1, 36) = "2003/10/25"
        wrk_DayTable(1, 37) = "2003/11/24"
        wrk_DayTable(1, 38) = "2003/12/23"
        wrk_DayTable(1, 39) = "2004/01/22"
        wrk_DayTable(1, 40) = "2004/02/20"
        wrk_DayTable(1, 41) = "2004/03/21"
        wrk_DayTable(1, 42) = "2004/04/19"
        wrk_DayTable(1, 43) = "2004/05/19"
        wrk_DayTable(1, 44) = "2004/06/18"
        wrk_DayTable(1, 45) = "2004/07/17"
        wrk_DayTable(1, 46) = "2004/08/16"
        wrk_DayTable(1, 47) = "2004/09/14"
        wrk_DayTable(1, 48) = "2004/10/14"
        wrk_DayTable(1, 49) = "2004/11/12"
        wrk_DayTable(1, 50) = "2004/12/12"
        wrk_DayTable(1, 51) = "2005/01/10"
        wrk_DayTable(1, 52) = "2005/02/09"
        wrk_DayTable(1, 53) = "2005/03/10"
        wrk_DayTable(1, 54) = "2005/04/09"
        wrk_DayTable(1, 55) = "2005/05/08"
        wrk_DayTable(1, 56) = "2005/06/07"
        wrk_DayTable(1, 57) = "2005/07/06"
        wrk_DayTable(1, 58) = "2005/08/05"
        wrk_DayTable(1, 59) = "2005/09/04"
        wrk_DayTable(1, 60) = "2005/10/03"
        wrk_DayTable(1, 61) = "2005/11/02"
        wrk_DayTable(1, 62) = "2005/12/02"
        wrk_DayTable(1, 63) = "2005/12/31"
        wrk_DayTable(1, 64) = "2006/01/29"
        wrk_DayTable(1, 65) = "2006/02/28"
        wrk_DayTable(1, 66) = "2006/03/29"
        wrk_DayTable(1, 67) = "2006/04/28"
        wrk_DayTable(1, 68) = "2006/05/27"
        wrk_DayTable(1, 69) = "2006/06/26"
        wrk_DayTable(1, 70) = "2006/07/25"
        wrk_DayTable(1, 71) = "2006/08/24"
        wrk_DayTable(1, 72) = "2006/09/22"
        wrk_DayTable(1, 73) = "2006/10/22"
        wrk_DayTable(1, 74) = "2006/11/21"
        wrk_DayTable(1, 75) = "2006/12/20"
        wrk_DayTable(1, 76) = "2007/01/19"
        wrk_DayTable(1, 77) = "2007/02/18"
        wrk_DayTable(1, 78) = "2007/03/19"
        wrk_DayTable(1, 79) = "2007/04/17"
        wrk_DayTable(1, 80) = "2007/05/17"
        wrk_DayTable(1, 81) = "2007/06/15"
        wrk_DayTable(1, 82) = "2007/07/14"
        wrk_DayTable(1, 83) = "2007/08/13"
        wrk_DayTable(1, 84) = "2007/09/11"
        wrk_DayTable(1, 85) = "2007/10/11"
        wrk_DayTable(1, 86) = "2007/11/10"
        wrk_DayTable(1, 87) = "2007/12/10"
        wrk_DayTable(1, 88) = "2008/01/08"
        wrk_DayTable(1, 89) = "2008/02/07"
        wrk_DayTable(1, 90) = "2008/03/08"
        wrk_DayTable(1, 91) = "2008/04/06"
        wrk_DayTable(1, 92) = "2008/05/05"
        wrk_DayTable(1, 93) = "2008/06/04"
        wrk_DayTable(1, 94) = "2008/07/03"
        wrk_DayTable(1, 95) = "2008/08/01"
        wrk_DayTable(1, 96) = "2008/08/31"
        wrk_DayTable(1, 97) = "2008/09/29"
        wrk_DayTable(1, 98) = "2008/10/29"
        wrk_DayTable(1, 99) = "2008/11/28"
        wrk_DayTable(1, 100) = "2008/12/27"
        wrk_DayTable(1, 101) = "2009/01/26"
        wrk_DayTable(1, 102) = "2009/02/25"
        wrk_DayTable(1, 103) = "2009/03/27"
        wrk_DayTable(1, 104) = "2009/04/25"
        wrk_DayTable(1, 105) = "2009/05/24"
        wrk_DayTable(1, 106) = "2009/06/23"
        wrk_DayTable(1, 107) = "2009/07/22"
        wrk_DayTable(1, 108) = "2009/08/20"
        wrk_DayTable(1, 109) = "2009/09/19"
        wrk_DayTable(1, 110) = "2009/10/18"
        wrk_DayTable(1, 111) = "2009/11/17"
        wrk_DayTable(1, 112) = "2009/12/16"
        wrk_DayTable(1, 113) = "2010/01/15"
        wrk_DayTable(1, 114) = "2010/02/14"
        wrk_DayTable(1, 115) = "2010/03/16"
        wrk_DayTable(1, 116) = "2010/04/14"
        wrk_DayTable(1, 117) = "2010/05/14"
        wrk_DayTable(1, 118) = "2010/06/12"
        wrk_DayTable(1, 119) = "2010/07/12"
        wrk_DayTable(1, 120) = "2010/08/10"
        wrk_DayTable(1, 121) = "2010/09/08"
        wrk_DayTable(1, 122) = "2010/10/08"
        wrk_DayTable(1, 123) = "2010/11/06"
        wrk_DayTable(1, 124) = "2010/12/06"
        wrk_DayTable(1, 125) = "2011/01/04"
        wrk_DayTable(1, 126) = "2011/02/03"
        wrk_DayTable(1, 127) = "2011/03/05"
        wrk_DayTable(1, 128) = "2011/04/03"
        wrk_DayTable(1, 129) = "2011/05/03"
        wrk_DayTable(1, 130) = "2011/06/02"
        wrk_DayTable(1, 131) = "2011/07/01"
        wrk_DayTable(1, 132) = "2011/07/31"
        wrk_DayTable(1, 133) = "2011/08/29"
        wrk_DayTable(1, 134) = "2011/09/27"
        wrk_DayTable(1, 135) = "2011/10/27"
        wrk_DayTable(1, 136) = "2011/11/25"
        wrk_DayTable(1, 137) = "2011/12/25"
        wrk_DayTable(1, 138) = "2012/01/23"
        wrk_DayTable(1, 139) = "2012/02/22"
        wrk_DayTable(1, 140) = "2012/03/22"
        wrk_DayTable(1, 141) = "2012/04/21"
        wrk_DayTable(1, 142) = "2012/05/21"
        wrk_DayTable(1, 143) = "2012/06/20"
        wrk_DayTable(1, 144) = "2012/07/19"
        wrk_DayTable(1, 145) = "2012/08/18"
        wrk_DayTable(1, 146) = "2012/09/16"
        wrk_DayTable(1, 147) = "2012/10/15"
        wrk_DayTable(1, 148) = "2012/11/14"
        wrk_DayTable(1, 149) = "2012/12/13"
        wrk_DayTable(1, 150) = "2013/01/12"
        wrk_DayTable(1, 151) = "2013/02/10"
        wrk_DayTable(1, 152) = "2013/03/12"
        wrk_DayTable(1, 153) = "2013/04/10"
        wrk_DayTable(1, 154) = "2013/05/10"
        wrk_DayTable(1, 155) = "2013/05/10"
        wrk_DayTable(1, 156) = "2013/06/09"
        wrk_DayTable(1, 157) = "2013/07/08"
        wrk_DayTable(1, 158) = "2013/08/07"
        wrk_DayTable(1, 159) = "2013/09/05"
        wrk_DayTable(1, 160) = "2013/10/05"
        wrk_DayTable(1, 161) = "2013/11/03"
        wrk_DayTable(1, 162) = "2013/12/03"
        wrk_DayTable(1, 163) = "2014/01/01"
        wrk_DayTable(1, 164) = "2014/01/31"
        wrk_DayTable(1, 165) = "2014/03/01"
        wrk_DayTable(1, 166) = "2014/03/31"
        wrk_DayTable(1, 167) = "2014/04/29"
        wrk_DayTable(1, 168) = "2014/05/29"
        wrk_DayTable(1, 169) = "2014/06/27"
        wrk_DayTable(1, 170) = "2014/07/27"
        wrk_DayTable(1, 171) = "2014/08/25"
        wrk_DayTable(1, 172) = "2014/09/24"
        wrk_DayTable(1, 173) = "2014/10/24"
        wrk_DayTable(1, 174) = "2014/11/22"
        wrk_DayTable(1, 175) = "2014/12/22"
        wrk_DayTable(1, 176) = "2015/01/20"
        wrk_DayTable(1, 177) = "2015/02/19"
        wrk_DayTable(1, 178) = "2015/03/20"
        wrk_DayTable(1, 179) = "2015/04/19"
        wrk_DayTable(1, 180) = "2015/05/18"
        wrk_DayTable(1, 181) = "2015/06/16"
        wrk_DayTable(1, 182) = "2015/07/16"
        wrk_DayTable(1, 183) = "2015/08/14"
        wrk_DayTable(1, 184) = "2015/09/13"
        wrk_DayTable(1, 185) = "2015/10/13"
        wrk_DayTable(1, 186) = "2015/11/12"
        wrk_DayTable(1, 187) = "2015/12/11"
        wrk_DayTable(1, 188) = "2016/01/10"
        wrk_DayTable(1, 189) = "2016/02/08"
        wrk_DayTable(1, 190) = "2016/03/09"
        wrk_DayTable(1, 191) = "2016/04/07"
        wrk_DayTable(1, 192) = "2016/05/07"
        wrk_DayTable(1, 193) = "2016/06/05"
        wrk_DayTable(1, 194) = "2016/07/04"
        wrk_DayTable(1, 195) = "2016/08/03"
        wrk_DayTable(1, 196) = "2016/09/01"
        wrk_DayTable(1, 197) = "2016/10/01"
        wrk_DayTable(1, 198) = "2016/10/31"
        wrk_DayTable(1, 199) = "2016/11/29"
        wrk_DayTable(1, 200) = "2016/12/29"
        wrk_DayTable(1, 201) = "2017/01/28"
        wrk_DayTable(1, 202) = "2017/02/27"
        wrk_DayTable(1, 203) = "2017/03/28"
        wrk_DayTable(1, 204) = "2017/04/26"
        wrk_DayTable(1, 205) = "2017/05/26"
        wrk_DayTable(1, 206) = "2017/06/24"
        wrk_DayTable(1, 207) = "2017/07/23"
        wrk_DayTable(1, 208) = "2017/08/22"
        wrk_DayTable(1, 209) = "2017/09/20"
        wrk_DayTable(1, 210) = "2017/10/20"
        wrk_DayTable(1, 211) = "2017/11/18"
        wrk_DayTable(1, 212) = "2017/12/18"
        wrk_DayTable(1, 213) = "2018/01/17"
        wrk_DayTable(1, 214) = "2018/02/16"
        wrk_DayTable(1, 215) = "2018/03/17"
        wrk_DayTable(1, 216) = "2018/04/16"
        wrk_DayTable(1, 217) = "2018/05/15"
        wrk_DayTable(1, 218) = "2018/06/14"
        wrk_DayTable(1, 219) = "2018/07/13"
        wrk_DayTable(1, 220) = "2018/08/11"
        wrk_DayTable(1, 221) = "2018/09/10"
        wrk_DayTable(1, 222) = "2018/10/09"
        wrk_DayTable(1, 223) = "2018/11/08"
        wrk_DayTable(1, 224) = "2018/12/07"
        wrk_DayTable(1, 225) = "2019/01/06"
        wrk_DayTable(1, 226) = "2019/02/05"
        wrk_DayTable(1, 227) = "2019/03/07"
        wrk_DayTable(1, 228) = "2019/04/05"
        wrk_DayTable(1, 229) = "2019/05/05"
        wrk_DayTable(1, 230) = "2019/06/03"
        wrk_DayTable(1, 231) = "2019/07/03"
        wrk_DayTable(1, 232) = "2019/08/01"
        wrk_DayTable(1, 233) = "2019/08/30"
        wrk_DayTable(1, 234) = "2019/09/29"
        wrk_DayTable(1, 235) = "2019/10/28"
        wrk_DayTable(1, 236) = "2019/11/27"
        wrk_DayTable(1, 237) = "2019/12/26"
        wrk_DayTable(1, 238) = "2020/01/25"
        wrk_DayTable(1, 239) = "2020/02/24"
        wrk_DayTable(1, 240) = "2020/03/24"
        wrk_DayTable(1, 241) = "2020/04/23"
        wrk_DayTable(1, 242) = "2020/05/23"
        wrk_DayTable(1, 243) = "2020/06/21"
        wrk_DayTable(1, 244) = "2020/07/21"
        wrk_DayTable(1, 245) = "2020/08/19"
        wrk_DayTable(1, 246) = "2020/09/17"
        wrk_DayTable(1, 247) = "2020/10/17"
        wrk_DayTable(1, 248) = "2020/11/15"
        wrk_DayTable(1, 249) = "2020/12/15"
        wrk_DayTable(1, 250) = "2021/01/13"
        wrk_DayTable(1, 251) = "2021/02/12"
        wrk_DayTable(1, 252) = "2021/03/13"
        wrk_DayTable(1, 253) = "2021/04/12"
        wrk_DayTable(1, 254) = "2021/05/12"
        wrk_DayTable(1, 255) = "2021/06/10"
        wrk_DayTable(1, 256) = "2021/07/10"
        wrk_DayTable(1, 257) = "2021/08/08"
        wrk_DayTable(1, 258) = "2021/09/07"
        wrk_DayTable(1, 259) = "2021/10/06"
        wrk_DayTable(1, 260) = "2021/11/05"
        wrk_DayTable(1, 261) = "2021/12/04"
        wrk_DayTable(1, 262) = "2022/01/03"
        wrk_DayTable(1, 263) = "2022/02/01"
        wrk_DayTable(1, 264) = "2022/03/03"
        wrk_DayTable(1, 265) = "2022/04/01"
        wrk_DayTable(1, 266) = "2022/05/01"
        wrk_DayTable(1, 267) = "2022/05/30"
        wrk_DayTable(1, 268) = "2022/06/29"
        wrk_DayTable(1, 269) = "2022/07/29"
        wrk_DayTable(1, 270) = "2022/08/27"
        wrk_DayTable(1, 271) = "2022/09/26"
        wrk_DayTable(1, 272) = "2022/10/25"
        wrk_DayTable(1, 273) = "2022/11/24"
        wrk_DayTable(1, 274) = "2022/12/23"
        wrk_DayTable(1, 275) = "2023/01/22"
        wrk_DayTable(1, 276) = "2023/02/20"
        wrk_DayTable(1, 277) = "2023/03/22"
        wrk_DayTable(1, 278) = "2023/04/20"
        wrk_DayTable(1, 279) = "2023/05/20"
        wrk_DayTable(1, 280) = "2023/06/18"
        wrk_DayTable(1, 281) = "2023/07/18"
        wrk_DayTable(1, 282) = "2023/08/16"
        wrk_DayTable(1, 283) = "2023/09/15"
        wrk_DayTable(1, 284) = "2023/10/15"
        wrk_DayTable(1, 285) = "2023/11/13"
        wrk_DayTable(1, 286) = "2023/12/13"
        wrk_DayTable(1, 287) = "2024/01/11"
        wrk_DayTable(1, 288) = "2024/02/10"
        wrk_DayTable(1, 289) = "2024/03/10"
        wrk_DayTable(1, 290) = "2024/04/09"
        wrk_DayTable(1, 291) = "2024/05/08"
        wrk_DayTable(1, 292) = "2024/06/06"
        wrk_DayTable(1, 293) = "2024/07/06"
        wrk_DayTable(1, 294) = "2024/08/04"
        wrk_DayTable(1, 295) = "2024/09/03"
        wrk_DayTable(1, 296) = "2024/10/03"
        wrk_DayTable(1, 297) = "2024/11/01"
        wrk_DayTable(1, 298) = "2024/12/01"
        wrk_DayTable(1, 299) = "2024/12/31"
        wrk_DayTable(1, 300) = "2025/01/29"
        wrk_DayTable(1, 301) = "2025/02/28"
        wrk_DayTable(1, 302) = "2025/03/29"
        wrk_DayTable(1, 303) = "2025/04/28"
        wrk_DayTable(1, 304) = "2025/05/27"
        wrk_DayTable(1, 305) = "2025/06/25"
        wrk_DayTable(1, 306) = "2025/07/25"
        wrk_DayTable(1, 307) = "2025/08/23"
        wrk_DayTable(1, 308) = "2025/09/22"
        wrk_DayTable(1, 309) = "2025/10/21"
        wrk_DayTable(1, 310) = "2025/11/20"
        wrk_DayTable(1, 311) = "2025/12/20"
        wrk_DayTable(1, 312) = "2026/01/19"
        wrk_DayTable(1, 313) = "2026/02/17"
        wrk_DayTable(1, 314) = "2026/03/19"
        wrk_DayTable(1, 315) = "2026/04/17"
        wrk_DayTable(1, 316) = "2026/05/17"
        wrk_DayTable(1, 317) = "2026/06/15"
        wrk_DayTable(1, 318) = "2026/07/14"
        wrk_DayTable(1, 319) = "2026/08/13"
        wrk_DayTable(1, 320) = "2026/09/11"
        wrk_DayTable(1, 321) = "2026/10/11"
        wrk_DayTable(1, 322) = "2026/11/09"
        wrk_DayTable(1, 323) = "2026/12/09"
        wrk_DayTable(1, 324) = "2027/01/08"
        wrk_DayTable(1, 325) = "2027/02/07"
        wrk_DayTable(1, 326) = "2027/03/08"
        wrk_DayTable(1, 327) = "2027/04/07"
        wrk_DayTable(1, 328) = "2027/05/06"
        wrk_DayTable(1, 329) = "2027/06/05"
        wrk_DayTable(1, 330) = "2027/07/04"
        wrk_DayTable(1, 331) = "2027/08/02"
        wrk_DayTable(1, 332) = "2027/09/01"
        wrk_DayTable(1, 333) = "2027/09/30"
        wrk_DayTable(1, 334) = "2027/10/29"
        wrk_DayTable(1, 335) = "2027/11/28"
        wrk_DayTable(1, 336) = "2027/12/28"
        wrk_DayTable(1, 337) = "2028/01/27"
        wrk_DayTable(1, 338) = "2028/02/25"
        wrk_DayTable(1, 339) = "2028/03/26"
        wrk_DayTable(1, 340) = "2028/04/25"
        wrk_DayTable(1, 341) = "2028/05/24"
        wrk_DayTable(1, 342) = "2028/06/23"
        wrk_DayTable(1, 343) = "2028/07/22"
        wrk_DayTable(1, 344) = "2028/08/20"
        wrk_DayTable(1, 345) = "2028/09/19"
        wrk_DayTable(1, 346) = "2028/10/18"
        wrk_DayTable(1, 347) = "2028/11/16"
        wrk_DayTable(1, 348) = "2028/12/16"
        wrk_DayTable(1, 349) = "2029/01/15"
        wrk_DayTable(1, 350) = "2029/02/13"
        wrk_DayTable(1, 351) = "2029/03/15"
        wrk_DayTable(1, 352) = "2029/04/14"
        wrk_DayTable(1, 353) = "2029/05/13"
        wrk_DayTable(1, 354) = "2029/06/12"
        wrk_DayTable(1, 355) = "2029/07/12"
        wrk_DayTable(1, 356) = "2029/08/10"
        wrk_DayTable(1, 357) = "2029/09/08"
        wrk_DayTable(1, 358) = "2029/10/08"
        wrk_DayTable(1, 359) = "2029/11/06"
        wrk_DayTable(1, 360) = "2029/12/05"
        wrk_DayTable(1, 361) = "2030/01/04"
        wrk_DayTable(1, 362) = "2030/02/03"
        wrk_DayTable(1, 363) = "2030/03/04"
        wrk_DayTable(1, 364) = "2030/04/03"
        wrk_DayTable(1, 365) = "2030/05/02"
        wrk_DayTable(1, 366) = "2030/06/01"
        wrk_DayTable(1, 367) = "2030/07/01"
        wrk_DayTable(1, 368) = "2030/07/30"
        wrk_DayTable(1, 369) = "2030/08/29"
        wrk_DayTable(1, 370) = "2030/09/27"
        wrk_DayTable(1, 371) = "2030/10/27"
        wrk_DayTable(1, 372) = "2030/11/25"
        wrk_DayTable(1, 373) = "2030/12/25"
        wrk_DayTable(1, 374) = "2031/01/23"
        wrk_DayTable(1, 375) = "2031/02/22"

        '旧暦の朔日

        wrk_DayTable(2, 1) = "2000/12/01"
        wrk_DayTable(2, 2) = "2001/01/01"
        wrk_DayTable(2, 3) = "2001/02/01"
        wrk_DayTable(2, 4) = "2001/03/01"
        wrk_DayTable(2, 5) = "2001/04/01"
        wrk_DayTable(2, 6) = "2001/04/01"
        wrk_DayTable(2, 7) = "2001/05/01"
        wrk_DayTable(2, 8) = "2001/06/01"
        wrk_DayTable(2, 9) = "2001/07/01"
        wrk_DayTable(2, 10) = "2001/08/01"
        wrk_DayTable(2, 11) = "2001/09/01"
        wrk_DayTable(2, 12) = "2001/10/01"
        wrk_DayTable(2, 13) = "2001/11/01"
        wrk_DayTable(2, 14) = "2001/12/01"
        wrk_DayTable(2, 15) = "2002/01/01"
        wrk_DayTable(2, 16) = "2002/02/01"
        wrk_DayTable(2, 17) = "2002/03/01"
        wrk_DayTable(2, 18) = "2002/04/01"
        wrk_DayTable(2, 19) = "2002/05/01"
        wrk_DayTable(2, 20) = "2002/06/01"
        wrk_DayTable(2, 21) = "2002/07/01"
        wrk_DayTable(2, 22) = "2002/08/01"
        wrk_DayTable(2, 23) = "2002/09/01"
        wrk_DayTable(2, 24) = "2002/10/01"
        wrk_DayTable(2, 25) = "2002/11/01"
        wrk_DayTable(2, 26) = "2002/12/01"
        wrk_DayTable(2, 27) = "2003/01/01"
        wrk_DayTable(2, 28) = "2003/02/01"
        wrk_DayTable(2, 29) = "2003/03/01"
        wrk_DayTable(2, 30) = "2003/04/01"
        wrk_DayTable(2, 31) = "2003/05/01"
        wrk_DayTable(2, 32) = "2003/06/01"
        wrk_DayTable(2, 33) = "2003/07/01"
        wrk_DayTable(2, 34) = "2003/08/01"
        wrk_DayTable(2, 35) = "2003/09/01"
        wrk_DayTable(2, 36) = "2003/10/01"
        wrk_DayTable(2, 37) = "2003/11/01"
        wrk_DayTable(2, 38) = "2003/12/01"
        wrk_DayTable(2, 39) = "2004/01/01"
        wrk_DayTable(2, 40) = "2004/02/01"
        wrk_DayTable(2, 41) = "2004/02/01"
        wrk_DayTable(2, 42) = "2004/03/01"
        wrk_DayTable(2, 43) = "2004/04/01"
        wrk_DayTable(2, 44) = "2004/05/01"
        wrk_DayTable(2, 45) = "2004/06/01"
        wrk_DayTable(2, 46) = "2004/07/01"
        wrk_DayTable(2, 47) = "2004/08/01"
        wrk_DayTable(2, 48) = "2004/09/01"
        wrk_DayTable(2, 49) = "2004/10/01"
        wrk_DayTable(2, 50) = "2004/11/01"
        wrk_DayTable(2, 51) = "2004/12/01"
        wrk_DayTable(2, 52) = "2005/01/01"
        wrk_DayTable(2, 53) = "2005/02/01"
        wrk_DayTable(2, 54) = "2005/03/01"
        wrk_DayTable(2, 55) = "2005/04/01"
        wrk_DayTable(2, 56) = "2005/05/01"
        wrk_DayTable(2, 57) = "2005/06/01"
        wrk_DayTable(2, 58) = "2005/07/01"
        wrk_DayTable(2, 59) = "2005/08/01"
        wrk_DayTable(2, 60) = "2005/09/01"
        wrk_DayTable(2, 61) = "2005/10/01"
        wrk_DayTable(2, 62) = "2005/11/01"
        wrk_DayTable(2, 63) = "2005/12/01"
        wrk_DayTable(2, 64) = "2006/01/01"
        wrk_DayTable(2, 65) = "2006/02/01"
        wrk_DayTable(2, 66) = "2006/03/01"
        wrk_DayTable(2, 67) = "2006/04/01"
        wrk_DayTable(2, 68) = "2006/05/01"
        wrk_DayTable(2, 69) = "2006/06/01"
        wrk_DayTable(2, 70) = "2006/07/01"
        wrk_DayTable(2, 71) = "2006/07/01"
        wrk_DayTable(2, 72) = "2006/08/01"
        wrk_DayTable(2, 73) = "2006/09/01"
        wrk_DayTable(2, 74) = "2006/10/01"
        wrk_DayTable(2, 75) = "2006/11/01"
        wrk_DayTable(2, 76) = "2006/12/01"
        wrk_DayTable(2, 77) = "2007/01/01"
        wrk_DayTable(2, 78) = "2007/02/01"
        wrk_DayTable(2, 79) = "2007/03/01"
        wrk_DayTable(2, 80) = "2007/04/01"
        wrk_DayTable(2, 81) = "2007/05/01"
        wrk_DayTable(2, 82) = "2007/06/01"
        wrk_DayTable(2, 83) = "2007/07/01"
        wrk_DayTable(2, 84) = "2007/08/01"
        wrk_DayTable(2, 85) = "2007/09/01"
        wrk_DayTable(2, 86) = "2007/10/01"
        wrk_DayTable(2, 87) = "2007/11/01"
        wrk_DayTable(2, 88) = "2007/12/01"
        wrk_DayTable(2, 89) = "2008/01/01"
        wrk_DayTable(2, 90) = "2008/02/01"
        wrk_DayTable(2, 91) = "2008/03/01"
        wrk_DayTable(2, 92) = "2008/04/01"
        wrk_DayTable(2, 93) = "2008/05/01"
        wrk_DayTable(2, 94) = "2008/06/01"
        wrk_DayTable(2, 95) = "2008/07/01"
        wrk_DayTable(2, 96) = "2008/08/01"
        wrk_DayTable(2, 97) = "2008/09/01"
        wrk_DayTable(2, 98) = "2008/10/01"
        wrk_DayTable(2, 99) = "2008/11/01"
        wrk_DayTable(2, 100) = "2008/12/01"
        wrk_DayTable(2, 101) = "2009/01/01"
        wrk_DayTable(2, 102) = "2009/02/01"
        wrk_DayTable(2, 103) = "2009/03/01"
        wrk_DayTable(2, 104) = "2009/04/01"
        wrk_DayTable(2, 105) = "2009/05/01"
        wrk_DayTable(2, 106) = "2009/05/01"
        wrk_DayTable(2, 107) = "2009/06/01"
        wrk_DayTable(2, 108) = "2009/07/01"
        wrk_DayTable(2, 109) = "2009/08/01"
        wrk_DayTable(2, 110) = "2009/09/01"
        wrk_DayTable(2, 111) = "2009/10/01"
        wrk_DayTable(2, 112) = "2009/11/01"
        wrk_DayTable(2, 113) = "2009/12/01"
        wrk_DayTable(2, 114) = "2010/01/01"
        wrk_DayTable(2, 115) = "2010/02/01"
        wrk_DayTable(2, 116) = "2010/03/01"
        wrk_DayTable(2, 117) = "2010/04/01"
        wrk_DayTable(2, 118) = "2010/05/01"
        wrk_DayTable(2, 119) = "2010/06/01"
        wrk_DayTable(2, 120) = "2010/07/01"
        wrk_DayTable(2, 121) = "2010/08/01"
        wrk_DayTable(2, 122) = "2010/09/01"
        wrk_DayTable(2, 123) = "2010/10/01"
        wrk_DayTable(2, 124) = "2010/11/01"
        wrk_DayTable(2, 125) = "2010/12/01"
        wrk_DayTable(2, 126) = "2011/01/01"
        wrk_DayTable(2, 127) = "2011/02/01"
        wrk_DayTable(2, 128) = "2011/03/01"
        wrk_DayTable(2, 129) = "2011/04/01"
        wrk_DayTable(2, 130) = "2011/05/01"
        wrk_DayTable(2, 131) = "2011/06/01"
        wrk_DayTable(2, 132) = "2011/07/01"
        wrk_DayTable(2, 133) = "2011/08/01"
        wrk_DayTable(2, 134) = "2011/09/01"
        wrk_DayTable(2, 135) = "2011/10/01"
        wrk_DayTable(2, 136) = "2011/11/01"
        wrk_DayTable(2, 137) = "2011/12/01"
        wrk_DayTable(2, 138) = "2012/01/01"
        wrk_DayTable(2, 139) = "2012/02/01"
        wrk_DayTable(2, 140) = "2012/03/01"
        wrk_DayTable(2, 141) = "2012/03/01"
        wrk_DayTable(2, 142) = "2012/04/01"
        wrk_DayTable(2, 143) = "2012/05/01"
        wrk_DayTable(2, 144) = "2012/06/01"
        wrk_DayTable(2, 145) = "2012/07/01"
        wrk_DayTable(2, 146) = "2012/08/01"
        wrk_DayTable(2, 147) = "2012/09/01"
        wrk_DayTable(2, 148) = "2012/10/01"
        wrk_DayTable(2, 149) = "2012/11/01"
        wrk_DayTable(2, 150) = "2012/12/01"
        wrk_DayTable(2, 151) = "2013/01/01"
        wrk_DayTable(2, 152) = "2013/02/01"
        wrk_DayTable(2, 153) = "2013/03/01"
        wrk_DayTable(2, 154) = "2013/04/01"
        wrk_DayTable(2, 155) = "2013/04/01"
        wrk_DayTable(2, 156) = "2013/05/01"
        wrk_DayTable(2, 157) = "2013/06/01"
        wrk_DayTable(2, 158) = "2013/07/01"
        wrk_DayTable(2, 159) = "2013/08/01"
        wrk_DayTable(2, 160) = "2013/09/01"
        wrk_DayTable(2, 161) = "2013/10/01"
        wrk_DayTable(2, 162) = "2013/11/01"
        wrk_DayTable(2, 163) = "2013/12/01"
        wrk_DayTable(2, 164) = "2014/01/01"
        wrk_DayTable(2, 165) = "2014/02/01"
        wrk_DayTable(2, 166) = "2014/03/01"
        wrk_DayTable(2, 167) = "2014/04/01"
        wrk_DayTable(2, 168) = "2014/05/01"
        wrk_DayTable(2, 169) = "2014/06/01"
        wrk_DayTable(2, 170) = "2014/07/01"
        wrk_DayTable(2, 171) = "2014/08/01"
        wrk_DayTable(2, 172) = "2014/09/01"
        wrk_DayTable(2, 173) = "2014/09/01"
        wrk_DayTable(2, 174) = "2014/10/01"
        wrk_DayTable(2, 175) = "2014/11/01"
        wrk_DayTable(2, 176) = "2014/12/01"
        wrk_DayTable(2, 177) = "2015/01/01"
        wrk_DayTable(2, 178) = "2015/02/01"
        wrk_DayTable(2, 179) = "2015/03/01"
        wrk_DayTable(2, 180) = "2015/04/01"
        wrk_DayTable(2, 181) = "2015/05/01"
        wrk_DayTable(2, 182) = "2015/06/01"
        wrk_DayTable(2, 183) = "2015/07/01"
        wrk_DayTable(2, 184) = "2015/08/01"
        wrk_DayTable(2, 185) = "2015/09/01"
        wrk_DayTable(2, 186) = "2015/10/01"
        wrk_DayTable(2, 187) = "2015/11/01"
        wrk_DayTable(2, 188) = "2015/12/01"
        wrk_DayTable(2, 189) = "2016/01/01"
        wrk_DayTable(2, 190) = "2016/02/01"
        wrk_DayTable(2, 191) = "2016/03/01"
        wrk_DayTable(2, 192) = "2016/04/01"
        wrk_DayTable(2, 193) = "2016/05/01"
        wrk_DayTable(2, 194) = "2016/06/01"
        wrk_DayTable(2, 195) = "2016/07/01"
        wrk_DayTable(2, 196) = "2016/08/01"
        wrk_DayTable(2, 197) = "2016/09/01"
        wrk_DayTable(2, 198) = "2016/10/01"
        wrk_DayTable(2, 199) = "2016/11/01"
        wrk_DayTable(2, 200) = "2016/12/01"
        wrk_DayTable(2, 201) = "2017/01/01"
        wrk_DayTable(2, 202) = "2017/02/01"
        wrk_DayTable(2, 203) = "2017/03/01"
        wrk_DayTable(2, 204) = "2017/04/01"
        wrk_DayTable(2, 205) = "2017/05/01"
        wrk_DayTable(2, 206) = "2017/05/01"
        wrk_DayTable(2, 207) = "2017/06/01"
        wrk_DayTable(2, 208) = "2017/07/01"
        wrk_DayTable(2, 209) = "2017/08/01"
        wrk_DayTable(2, 210) = "2017/09/01"
        wrk_DayTable(2, 211) = "2017/10/01"
        wrk_DayTable(2, 212) = "2017/11/01"
        wrk_DayTable(2, 213) = "2017/12/01"
        wrk_DayTable(2, 214) = "2018/01/01"
        wrk_DayTable(2, 215) = "2018/02/01"
        wrk_DayTable(2, 216) = "2018/03/01"
        wrk_DayTable(2, 217) = "2018/04/01"
        wrk_DayTable(2, 218) = "2018/05/01"
        wrk_DayTable(2, 219) = "2018/06/01"
        wrk_DayTable(2, 220) = "2018/07/01"
        wrk_DayTable(2, 221) = "2018/08/01"
        wrk_DayTable(2, 222) = "2018/09/01"
        wrk_DayTable(2, 223) = "2018/10/01"
        wrk_DayTable(2, 224) = "2018/11/01"
        wrk_DayTable(2, 225) = "2018/12/01"
        wrk_DayTable(2, 226) = "2019/01/01"
        wrk_DayTable(2, 227) = "2019/02/01"
        wrk_DayTable(2, 228) = "2019/03/01"
        wrk_DayTable(2, 229) = "2019/04/01"
        wrk_DayTable(2, 230) = "2019/05/01"
        wrk_DayTable(2, 231) = "2019/06/01"
        wrk_DayTable(2, 232) = "2019/07/01"
        wrk_DayTable(2, 233) = "2019/08/01"
        wrk_DayTable(2, 234) = "2019/09/01"
        wrk_DayTable(2, 235) = "2019/10/01"
        wrk_DayTable(2, 236) = "2019/11/01"
        wrk_DayTable(2, 237) = "2019/12/01"
        wrk_DayTable(2, 238) = "2020/01/01"
        wrk_DayTable(2, 239) = "2020/02/01"
        wrk_DayTable(2, 240) = "2020/03/01"
        wrk_DayTable(2, 241) = "2020/04/01"
        wrk_DayTable(2, 242) = "2020/04/01"
        wrk_DayTable(2, 243) = "2020/05/01"
        wrk_DayTable(2, 244) = "2020/06/01"
        wrk_DayTable(2, 245) = "2020/07/01"
        wrk_DayTable(2, 246) = "2020/08/01"
        wrk_DayTable(2, 247) = "2020/09/01"
        wrk_DayTable(2, 248) = "2020/10/01"
        wrk_DayTable(2, 249) = "2020/11/01"
        wrk_DayTable(2, 250) = "2020/12/01"
        wrk_DayTable(2, 251) = "2021/01/01"
        wrk_DayTable(2, 252) = "2021/02/01"
        wrk_DayTable(2, 253) = "2021/03/01"
        wrk_DayTable(2, 254) = "2021/04/01"
        wrk_DayTable(2, 255) = "2021/05/01"
        wrk_DayTable(2, 256) = "2021/06/01"
        wrk_DayTable(2, 257) = "2021/07/01"
        wrk_DayTable(2, 258) = "2021/08/01"
        wrk_DayTable(2, 259) = "2021/09/01"
        wrk_DayTable(2, 260) = "2021/10/01"
        wrk_DayTable(2, 261) = "2021/11/01"
        wrk_DayTable(2, 262) = "2021/12/01"
        wrk_DayTable(2, 263) = "2022/01/01"
        wrk_DayTable(2, 264) = "2022/02/01"
        wrk_DayTable(2, 265) = "2022/03/01"
        wrk_DayTable(2, 266) = "2022/04/01"
        wrk_DayTable(2, 267) = "2022/05/01"
        wrk_DayTable(2, 268) = "2022/06/01"
        wrk_DayTable(2, 269) = "2022/07/01"
        wrk_DayTable(2, 270) = "2022/08/01"
        wrk_DayTable(2, 271) = "2022/09/01"
        wrk_DayTable(2, 272) = "2022/10/01"
        wrk_DayTable(2, 273) = "2022/11/01"
        wrk_DayTable(2, 274) = "2022/12/01"
        wrk_DayTable(2, 275) = "2023/01/01"
        wrk_DayTable(2, 276) = "2023/02/01"
        wrk_DayTable(2, 277) = "2023/02/01"
        wrk_DayTable(2, 278) = "2023/03/01"
        wrk_DayTable(2, 279) = "2023/04/01"
        wrk_DayTable(2, 280) = "2023/05/01"
        wrk_DayTable(2, 281) = "2023/06/01"
        wrk_DayTable(2, 282) = "2023/07/01"
        wrk_DayTable(2, 283) = "2023/08/01"
        wrk_DayTable(2, 284) = "2023/09/01"
        wrk_DayTable(2, 285) = "2023/10/01"
        wrk_DayTable(2, 286) = "2023/11/01"
        wrk_DayTable(2, 287) = "2023/12/01"
        wrk_DayTable(2, 288) = "2024/01/01"
        wrk_DayTable(2, 289) = "2024/02/01"
        wrk_DayTable(2, 290) = "2024/03/01"
        wrk_DayTable(2, 291) = "2024/04/01"
        wrk_DayTable(2, 292) = "2024/05/01"
        wrk_DayTable(2, 293) = "2024/06/01"
        wrk_DayTable(2, 294) = "2024/07/01"
        wrk_DayTable(2, 295) = "2024/08/01"
        wrk_DayTable(2, 296) = "2024/09/01"
        wrk_DayTable(2, 297) = "2024/10/01"
        wrk_DayTable(2, 298) = "2024/11/01"
        wrk_DayTable(2, 299) = "2024/12/01"
        wrk_DayTable(2, 300) = "2025/01/01"
        wrk_DayTable(2, 301) = "2025/02/01"
        wrk_DayTable(2, 302) = "2025/03/01"
        wrk_DayTable(2, 303) = "2025/04/01"
        wrk_DayTable(2, 304) = "2025/05/01"
        wrk_DayTable(2, 305) = "2025/06/01"
        wrk_DayTable(2, 306) = "2025/06/01"
        wrk_DayTable(2, 307) = "2025/07/01"
        wrk_DayTable(2, 308) = "2025/08/01"
        wrk_DayTable(2, 309) = "2025/09/01"
        wrk_DayTable(2, 310) = "2025/10/01"
        wrk_DayTable(2, 311) = "2025/11/01"
        wrk_DayTable(2, 312) = "2025/12/01"
        wrk_DayTable(2, 313) = "2026/01/01"
        wrk_DayTable(2, 314) = "2026/02/01"
        wrk_DayTable(2, 315) = "2026/03/01"
        wrk_DayTable(2, 316) = "2026/04/01"
        wrk_DayTable(2, 317) = "2026/05/01"
        wrk_DayTable(2, 318) = "2026/06/01"
        wrk_DayTable(2, 319) = "2026/07/01"
        wrk_DayTable(2, 320) = "2026/08/01"
        wrk_DayTable(2, 321) = "2026/09/01"
        wrk_DayTable(2, 322) = "2026/10/01"
        wrk_DayTable(2, 323) = "2026/11/01"
        wrk_DayTable(2, 324) = "2026/12/01"
        wrk_DayTable(2, 325) = "2027/01/01"
        wrk_DayTable(2, 326) = "2027/02/01"
        wrk_DayTable(2, 327) = "2027/03/01"
        wrk_DayTable(2, 328) = "2027/04/01"
        wrk_DayTable(2, 329) = "2027/05/01"
        wrk_DayTable(2, 330) = "2027/06/01"
        wrk_DayTable(2, 331) = "2027/07/01"
        wrk_DayTable(2, 332) = "2027/08/01"
        wrk_DayTable(2, 333) = "2027/09/01"
        wrk_DayTable(2, 334) = "2027/10/01"
        wrk_DayTable(2, 335) = "2027/11/01"
        wrk_DayTable(2, 336) = "2027/12/01"
        wrk_DayTable(2, 337) = "2028/01/01"
        wrk_DayTable(2, 338) = "2028/02/01"
        wrk_DayTable(2, 339) = "2028/03/01"
        wrk_DayTable(2, 340) = "2028/04/01"
        wrk_DayTable(2, 341) = "2028/05/01"
        wrk_DayTable(2, 342) = "2028/05/01"
        wrk_DayTable(2, 343) = "2028/06/01"
        wrk_DayTable(2, 344) = "2028/07/01"
        wrk_DayTable(2, 345) = "2028/08/01"
        wrk_DayTable(2, 346) = "2028/09/01"
        wrk_DayTable(2, 347) = "2028/10/01"
        wrk_DayTable(2, 348) = "2028/11/01"
        wrk_DayTable(2, 349) = "2028/12/01"
        wrk_DayTable(2, 350) = "2029/01/01"
        wrk_DayTable(2, 351) = "2029/02/01"
        wrk_DayTable(2, 352) = "2029/03/01"
        wrk_DayTable(2, 353) = "2029/04/01"
        wrk_DayTable(2, 354) = "2029/05/01"
        wrk_DayTable(2, 355) = "2029/06/01"
        wrk_DayTable(2, 356) = "2029/07/01"
        wrk_DayTable(2, 357) = "2029/08/01"
        wrk_DayTable(2, 358) = "2029/09/01"
        wrk_DayTable(2, 359) = "2029/10/01"
        wrk_DayTable(2, 360) = "2029/11/01"
        wrk_DayTable(2, 361) = "2029/12/01"
        wrk_DayTable(2, 362) = "2030/01/01"
        wrk_DayTable(2, 363) = "2030/02/01"
        wrk_DayTable(2, 364) = "2030/03/01"
        wrk_DayTable(2, 365) = "2030/04/01"
        wrk_DayTable(2, 366) = "2030/05/01"
        wrk_DayTable(2, 367) = "2030/06/01"
        wrk_DayTable(2, 368) = "2030/07/01"
        wrk_DayTable(2, 369) = "2030/08/01"
        wrk_DayTable(2, 370) = "2030/09/01"
        wrk_DayTable(2, 371) = "2030/10/01"
        wrk_DayTable(2, 372) = "2030/11/01"
        wrk_DayTable(2, 373) = "2030/12/01"
        wrk_DayTable(2, 374) = "2031/01/01"
        wrk_DayTable(2, 375) = "2031/02/01"


        '日付?

        If IsDate(wrk_day) = False Then
            Return wrk_day
        End If


        '対象範囲 2000年12月26日 〜 2031年02月21日

        If wrk_day < "2000/12/26" Then
            Return wrk_day
        End If

        If wrk_day > "2031/02/21" Then
            Return wrk_day
        End If

        '【旧暦の朔日】を求める
        '【旧暦の朔日 + 朔日からの日数】を求める

        '2000年12月26日 〜 2001年01月23日 → 2000年12月01日 + 2000年12月26日から指定日迄の日数

        i = 1

        Do While i < 375

            If wrk_day >= wrk_DayTable(1, i) And wrk_day < wrk_DayTable(1, i + 1) Then
                Return DateAdd("d", DateDiff("d", wrk_DayTable(1, i), wrk_day), wrk_DayTable(2, i))

            Else i = i + 1

            End If

        Loop

        Return wrk_day

    End Function

 ChoiKits  GetRokuyou
 Microsoft  
 ステートメント  
 オブジェクト  
 メソッド  
 プロパティ