---

Dim dtmMonth1 As Date
Dim dtmMonth2 As Date
Dim int1 As Integer

dtmMonth1 = "2016/04/19"
dtmMonth2 = DateAdd("m", 1, dtmMonth1)
dtmMonth2 = DateAdd("d", -1, dtmMonth2)

int1 = DateDiff("d", dtmMonth1, dtmMonth2)
MsgBox dtmMonth1 & " - " & dtmMonth2 & " - " & (int1 + 1)