adpUserBirth is an AnotherDatePicker:
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 : "...