精美而实用的网站，关注web编程技术、网站运营、SEO推广，让您轻松愉快的学习

项目需要对用户发布的内容日期显示为：几个月,几天前,几小时前,几分钟前,或几秒前等，青岛星网自己编写了一个时间格式化函数用于显示这种时间格式。

ASP格式化时间为几天前,几小时前,几分钟前等函数代码

Function DateStringFromNow(Byval sTheDate)
' 格式化显示时间为几个月,几天前,几小时前,几分钟前,或几秒前
    Dim iSeconds, iMinutes, iHours, iDays
 
    iSeconds = DateDiff("s", sTheDate, Now())  'd/h/n/s
    iMinutes = Int(iSeconds/60)
    iHours = Int(iSeconds/3600)
    iDays = Int(iSeconds/86400)
 
    If iDays > 60 Then
        DateStringFromNow = sTheDate
    ElseIf iDays > 30 Then
        DateStringFromNow = "1个月前"
    ElseIf iDays > 14 Then
        DateStringFromNow = "2周前"
    ElseIf iDays > 7 Then
        DateStringFromNow = "1周前"
    ElseIf iDays > 1 Then
        DateStringFromNow = iDays & "天前"
    ElseIf iHours > 1 Then
        DateStringFromNow = iHours & "小时前"
    ElseIf iMinutes > 1 Then
        DateStringFromNow = iMinutes & "分钟前"
    ElseIf iSeconds >= 1 Then
        DateStringFromNow = iSeconds & "秒前"
    Else
        DateStringFromNow = "1秒前"
    End If
End Function

调用方法

DateStringFromNow("2016-8-1 21:40")

Tags：ASP 格式化 格式化时间