kt祝日名取得

指定した日付が祝日法で定められた祝日の場合、祝日名を返します。
( 「山の日」は Ver 4.00 で対応しています)

【 構 文 】

kt祝日名取得( 日付 )

返却値 ‥‥‥ String 型
日  付 ‥‥‥ 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

Home  kt関数 Top  kt関数 Ref  Back Page  Next Page


角田 桂一 Mail:addinbox@h4.dion.ne.jp CopyRight(C) 2001 Allrights Reserved.