DateTime.dateFormat = "dd/MM/yyyy"
Dim periodo As Period
periodo = DateUtils.PeriodBetween(DateTime.DateParse("31/01/2016"),DateTime.DateParse("28/02/2016"))
Log("Year:" & periodo.Years)
Log("Month:" & periodo.Months)
Log("Days:" & periodo.Days)
End Sub