Code: VB
'To find Days
DateTime.DateDiff("d",Text1.Text,now)

'To find Months
DateTime.DateDiff("m",Text1.Text,now)

'To find Years
DateTime.DateDiff("y",Text1.Text,now)

'To find Hours
DateTime.DateDiff("h",Text1.Text,now)

'To find Minutes
DateTime.DateDiff("n",Text1.Text,now)

'To find Seconds
DateTime.DateDiff("s",Text1.Text,now)