【 kt祝日名取得 】

指定した日付が祝日法で定められた祝日の場合､祝日名を返します。

Ver 5.40 では 2019年 〜 2021年 施行の全ての祝日改正に対応しています。 詳細は こちら。

【 構 文 】

kt祝日名取得(

日付 )

返却値	‥‥‥	String 型
日  付	‥‥‥	Variant(Date) 型

【 返 却 値 】

指定した 日付 が
    祝日 （ 振替休日 , 国民の休日 を含む ） の場合 …… 祝日名
    上記 以外 ( 日付が不正 を含む ) の場合          …… 空文字 ( "" )
が 返ります。

祝日名 の 一覧は こちら を参照して下さい。

【 パラメータ内容 】

[ 日付 ]
    祝日名を取得する日付を シリアル値 または 日付文字列で指定します。
    ※ 新元号「令和」対応になっていない環境でも
        「令和 日付文字列(元年 表記を含む)」を指定可能です。

【 解 説 】

『祝日』には振替休日も含まれます。返される祝日名の詳細はこちらを参照。

【 使 用 例 】

下記のサブルーチンで「その年の祝日一覧」が得られます。

Sub 祝日一覧(ByVal 対象年 As Integer)
Dim str祝日名 As String
Dim MyDate As Date
Dim LastDate As Date
Dim i As Integer
    MyDate = DateSerial(対象年, 1, 1)
    LastDate = DateSerial(対象年, 12, 31)
    i = 0
    Do str祝日名 = kt祝日名取得(MyDate)
        If (str祝日名 <> "") Then
            i = i + 1
            With ActiveSheet
                .Cells(i, 1).Value = Format(MyDate, "yyyy/m/d")
                .Cells(i, 2).Value = Format(MyDate, "（aaa）")
                .Cells(i, 3).Value = str祝日名
            End With
        End If
        MyDate = DateAdd("d", 1, MyDate)
    Loop Until (MyDate >= LastDate)
End Sub