'Server
Dim DateTimeTicksSRV As Long
Dim DateStringSRV = m.Get("date") As String
Dim Date_TimeSRV() As String
Date_TimeSRV = Regex.Split(" ", DateStringSRV)
DateTime.DateFormat = "yyyy-MM-dd"
DateTime.TimeFormat = "HH:mm:ss"
'Local
Dim DateTimeTicksLOCAL As Long
Dim LocalDateTime = DateTime.Date(DateTime.Now)&" "&DateTime.Time(DateTime.Now) As String
Dim Date_TimeLOCAL() As String
Date_TimeLOCAL = Regex.Split(" ", LocalDateTime)
DateTimeTicksSRV = DateTime.DateTimeParse(Date_TimeSRV(0), Date_TimeSRV(1))
DateTimeTicksLOCAL = DateTime.DateTimeParse(Date_TimeLOCAL(0), Date_TimeLOCAL(1))
Dim period1 As Period
period1 = DateUtils.PeriodBetween(DateTimeTicksSRV,DateTimeTicksLOCAL)
Dim TimeElapsed As String
If period1.Minutes < 3 Then
TimeElapsed = "Just now!"
Else If period1.Minutes > 3 AND period1.Minutes < 60 AND period1.Hours = 1 Then
TimeElapsed = period1.Minutes &" Min"
Else If period1.Hours > 1 Then
TimeElapsed = period1.hours &" Hours"
Else If period1.Days >= 1 AND period1.Months < 1 Then
TimeElapsed = period1.Days &" Days"
Else If period1.Months >= 1 Then
TimeElapsed = period1.Months &" Months"
End If