Dim fromSql as String = "2019-09-08 16:33:16"
Dim getDateTime() as String = Regex.Split(" ",fromSql)
Dim date as String = getDateTime(0)
Dim time as String = getDateTime(1)
DateTime.DateFormat = "yyyy-mm-dd"
DateTime.TimeFormat = "kk:mm:ss"
Dim DateTimeLong As Long = DateTime.DateTimeParse(date,time)
Log(prettytime.format(DateTimeLong))