【 kt月末日付 】

指定した「日付」または「年&月」に対する月末日（シリアル値）を返します(閏年対応)。
『#VALUE!』

【 構 文 】

kt月末日付(

日付_年, [月] )

返却値	‥‥‥	Variant (Date ) 型
日付_年	‥‥‥	Variant(Date / String / Integer) 型
月	‥‥‥	Integer 型 (1〜12)

【 返 却 値 】

指定した「日付」または「年 & 月」に対する月末日（シリアル値）を返します(閏年対応)。
日付_年・月が不正な値の場合は[#VALUE!]が返ります。

【 パラメータ 内容 】

日付（年月日）を使って指定する場合は､第１opだけ記述します。
シリアル値または日付文字列で指定出来ます。
※ 新元号「令和」対応になっていない環境でも
    「令和 日付文字列(元年 表記を含む)」を指定可能です。

年・月で指定する場合は､各々第１・２opに記述します。
この場合、年は「西暦」で指定して下さい。

【 解 説 】

Excel関数[EOMONTH]は使っていませんから『分析ツール』をアドインする必要はありません。

【 使 用 例 】

If (Date = kt月末日付(Date)) Then
    MsgBox "今日は月末日です"
End If

kt月末日付を使わない場合
  Dim dtm翌月 As Date
  dtm翌月 = DateAdd("m", 1, Date)
  If (Date = DateSerial(Year(dtm翌月), Month(dtm翌月), 0)) Then
      MsgBox "今日は月末日です"
  End If