Dim MyDays As Int
DateTime.DateFormat="d/M/yyyy"
Dim PastDate As String="14/12/2013" 'Use your proper date format
MyDays=DateUtils.PeriodBetweenInDays(DateTime.DateParse(PastDate),DateTime.Now).Days
Msgbox(MyDays,"") 'displays 2
'DateTime.DateFormat="M/d/yyyy"