ASP calculation Time Date

Public Function Timetodiff (DateTime)
If IsDate (DateTime) Then
Dim Tsecond:tsecond=datediff ("s", Datetime,now ())
If tsecond<60 Then '//within one minute
Timetodiff= "just"
End If
If tsecond>=60 and tsecond<3600 Then '//within one hour
Timetodiff=datediff ("n", Datetime,now ()) & "Minutes Ago"
End If
If tsecond>=3600 and tsecond<86400 Then '//within one day
Timetodiff=datediff ("H", Datetime,now ()) & "Hours Ago"
End If
If tsecond>=86400 and tsecond<2592000 Then '//One months
Timetodiff=datediff ("D", Datetime,now ()) & "Days Ago"
End If
If tsecond>=2592000 and tsecond<31536000 Then '//One year
Timetodiff=datediff ("M", Datetime,now ()) & "months ago"
End If
If tsecond>=31536000 Then '/Other
Timetodiff=datediff ("yyyy", Datetime,now ()) & "Years ago"
End If
Else
timetodiff= "N days Ago"
End If
End Function

' Invoke method
Call Timetodiff (now ())