Sub adpUserBirth_DateChanged (NewDate As Long)
DateTime.DateFormat = "MM/dd/yyyy" ' just to be sure
Dim PerDiff As Period
PerDiff = DateUtils.PeriodBetween(NewDate, DateTime.Now)
Log("New date: " & DateTime.Date(NewDate))
Log("Today : " & DateTime.Date(DateTime.Now))
Log("Days diff.: " & PerDiff.Days)
End Sub
Log:
New date: 10/11/1960
Today : 04/18/2018
Days diff.: 7
DateTime.DateFormat = "MM/dd/yyyy"
Dim PerDiff As Period
PerDiff = DateUtils.PeriodBetween( DateTime.Dateparse("10/11/1960"), DateTime.Now)
LogColor($"${PerDiff.Years} years ${PerDiff.Months} months ${PerDiff.Days} days"$, Colors.Blue ) '57 years 6 months 7 days