閉じる

月末日を求める　（　DateSerial　　DateAdd　）


Public Function fc_Get_Matubi(wDate as date) as date

'----------------------------------------------------------------------

' 　パラメータの日付より月末日をもとめる。

'   DateSerial関数で、パラメータの日付の翌月1日を作成し、DateADD関数で1日前を算出する。

'----------------------------------------------------------------------

 fc_Get_matubi = DateAdd("d",-1,DateSerial(Year(wDate),Month(wDate) + 1, 1))





End Function