Sub CountMonths
DateTime.DateFormat = "MM/dd/yyyy"
Dim targetDate As Long = DateUtils.SetDate(2019, 8, 1)
Dim mPeriod As Period = DateUtils.PeriodBetween(targetDate, DateTime.Now)
Dim monthsElapsed As Int = (mPeriod.Years * 12) + mPeriod.Months
Log($"Total Months since ${DateTime.Date(targetDate)} is ${monthsElapsed} months"$)
End Sub