I think it may help you...
MsgBox(DateDiff(DateInterval.Day, DateTimePicker1.Value, DateTimePicker2.Value))
MsgBox(DateDiff(DateInterval.Month, DateTimePicker1.Value, DateTimePicker2.Value))
MsgBox(DateDiff(DateInterval.Year, DateTimePicker1.Value, DateTimePicker2.Value))