欢迎加入EUCMS官方QQ交流群,与更多EUCMS用户一起讨论,共同发财!

QQ群:1222386
> 资讯中心 >> 函数库 >>正文
asp将时间转换为几秒前、几分钟前、几小时前、几天前。
2020-10-15 625 收藏

格式:Format_Date_Friend(ByVal dt)

参数:

dt:指定要处理的时间参数。

代码:

Function Format_Date_Friend(ByVal dt)
    Dim t_SECOND : t_SECOND = 1
    Dim t_MINUTE : t_MINUTE = 60 * t_SECOND
    Dim t_HOUR : t_HOUR = 60 * t_MINUTE
    Dim t_DAY : t_DAY = 24 * t_HOUR
    Dim t_MONTH : t_MONTH = 30 * t_DAY

    Dim delta : delta = DateDiff("s", dt, Now)
    Dim strTime : strTime = ""

    If (delta < 1 * t_MINUTE) Then
        If delta = 0 Then
            strTime = "现在"
        ElseIf delta = 1 Then
            strTime = "1秒前"
        Else
            strTime = delta&"秒前"
        End If
    ElseIf (delta < 2 * t_MINUTE) Then
      strTime = "1分钟前"
    ElseIf (delta < 60 * t_MINUTE) Then  
      strTime = Round(delta / t_MINUTE)&"分钟前"
  
    ElseIf (delta < 90 * t_MINUTE) Then
      strTime = "1小时前"   
    ElseIf (delta < 24 * t_HOUR) Then
      strTime = Round(delta / t_HOUR)&"小时前"
    
    ElseIf (delta < 48 * t_HOUR) Then
      strTime = "昨天"
    ElseIf (delta < 30 * t_DAY) Then
     strTime = Round(delta / t_DAY) & "天以前"  
 
    ElseIf (delta < 12 * t_MONTH) Then
        Dim months
        months = Round(delta / t_MONTH)
        If months <= 1 Then
            strTime = "1个月前"
        Else
            strTime = months & "个月前"
        End If
    Else
        Dim years : years = Round((delta / t_DAY) / 365)
        If years <= 1 Then
            strTime = "1年前"
        Else
            strTime = years & "年以前"
        End If
    End If
    Format_Date_Friend = strTime
End Function 

应用:

Dim input,str
input="2020-09-04 12:08:35"
response.Write "之前时间是:"&input&"。距离现在是:"
response.Write Format_Date_Friend(input)

返回:之前时间是:2020-09-04 12:08:35。距离现在是:11小时前

 

你觉得这篇文章怎么样?

0 0
参与讨论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
成品站
购买流程
  • 注册会员
  • 选择网站模板
  • 免费开通试用
  • 自助绑定域名
  • 付款转正
  • 提交备案
  • 域名生效
  • 网站正式上线
  • 分站:
    扫描关注微信

    扫描加微信

    13852154923

    0516-66628816

    工作日 9:00-12:00 13:30-18:00
    周六及部分节假日提供值班服务
    2186398
    群:1222386
    做网站徐州网架厂家
    Copyright@2003-2024 徐州亿优网架钢结构工程有限公司版权所有 Powered by EUCMS-v6.3 | 网站地图 苏ICP备19019550号 苏公网安备32030202000952号