日付時刻 月末を求める

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][日付時刻 月末を求める]
Public Function fnc月末(HIDUKE As Date) As String
'*******************************************************************************
'月末を求める
'*******************************************************************************
Dim a As Date
a = DateAdd("m", 1, DateSerial(Year(HIDUKE), Month(HIDUKE), 1))
fnc月末 = CDate(a - 1)
End Function





Production Japan Import Application. Since 1998