'from the lib. AHLocale
Dim du As AHDateUtils
'our DateTime value
Dim DateString AsString = "2017-07-25 13:00:00"
'split the string into 2 parts
Dim parts() AsString = Regex.Split("\s", DateString) '\s = whitespace character
'We must adjust the DateFormat
DateTime.DateFormat = "yyyy-MM-dd"'
'Declare a variable, so we can the splittet value, put it in after parsing
Dim Ticks As Long = DateTime.DateTimeParse(parts(0), parts(1))
'now we can call:
lbl_mylabel.Text = du.GetRelativeTimeSpanString(Ticks , DateTime.Now, DateTime.TicksPerMinute, 0)