' @(f)
'
' 機能　　　: 月末日取得
'
' 返り値　　: 指定された年、月の月末日
'
' 引き数　　: ARG1 - 年
'　　　　     ARG2 - 月
'
' 機能説明　: 月末日を算出する
'
' 備考　　　:
'
Public Function pGetLastDay(ByVal intY As Integer, _
                            ByVal intM As Integer) As Date
    pGetLastDay = DateSerial(intY, intM + 1, 1) - 1
End Function