将VB函数转换为Javascript

将VB函数转换为Javascript,javascript,vb.net,Javascript,Vb.net,有没有哪位VB/Javascript大师能帮我转换这个 Protected Function RelativeTime(ByVal dtTime As DateTime) As String Dim timeDiff As TimeSpan = DateTime.Now.ToUniversalTime().Subtract(dtTime) If timeDiff.TotalMinutes < 1 Then Return "less

有没有哪位VB/Javascript大师能帮我转换这个

Protected Function RelativeTime(ByVal dtTime As DateTime) As String
        Dim timeDiff As TimeSpan = DateTime.Now.ToUniversalTime().Subtract(dtTime)

        If timeDiff.TotalMinutes < 1 Then
            Return "less than a minute ago."
        ElseIf timeDiff.TotalMinutes < 2 Then
            Return "about one minute ago"
        ElseIf timeDiff.TotalMinutes < 60 Then
            Return String.Format("about {0:N0} minutes ago", timeDiff.TotalMinutes)
        ElseIf timeDiff.TotalHours < 2 Then
            Return "about an hour ago"
        ElseIf timeDiff.TotalHours < 12 Then
            Return String.Format("about {0:N0} hours ago", timeDiff.TotalHours)
        ElseIf timeDiff.TotalDays < 365 Then
            Return dtTime.ToString("MMM d")
        Else
            Return dtTime.ToString("MMM d, yyyy")
        End If
    End Function
受保护的函数相对时间(ByVal dtTime作为DateTime)作为字符串
Dim timeDiff As TimeSpan=DateTime.Now.ToUniversalTime().Subtract(dtTime)
如果timeDiff.TotalMinutes<1,则
Return“不到一分钟前”
如果时间差总分钟数小于2,则
返回“大约一分钟前”
ElseIf timeDiff.TotalMinutes<60则
返回String.Format(“大约{0:N0}分钟前”,timeDiff.TotalMinutes)
如果时间差总小时数小于2,则
返回“大约一小时前”
如果时间差总小时数小于12,则
返回String.Format(“大约{0:N0}小时前”,timeDiff.TotalHours)
如果时间差总天数<365则
返回dtTime.ToString(“mmmd”)
其他的
返回dtTime.ToString(“mmmd,yyyy”)
如果结束
端函数

上面有很多答案,可以解决这个问题。只需搜索“.”

我们哪天可以拿到工资,我们在哪里见面来分摊你的工资?这不是寻求帮助的好方法。这不是一个人们为你工作的网站;我们试图回答问题并为您指出正确的方向,这样您就可以自己做。@mokumax:如果您仔细看,您会发现提供的两个答案实际上并没有执行代码的直接转换。相反,他们提出了一种更好的技术。StackOverflow并不是专门为翻译他人代码而设计的。这篇文章应该删除,因为它没有为任何人提供有用的信息。完美。简明扼要。