kt月末日付

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

【 構 文 】

kt月末日付( 日付_年, [月] )

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

【 返 却 値 】

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

【 パラメータ 内容 】

日付(年月日)を使って指定する場合は、第1opだけ記述します。
シリアル値または日付文字列で指定出来ます。

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

【 解 説 】

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


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


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