用ASP程序写的一个人性化和个性化的时间日期格式化调用函数, 在分类信息站,Discuz!、bbsmax论坛等可以应用,例如可以显示为YY天、YY秒前、YY分钟前等。
具体请看代码
以下是引用片段:
<% Function FormatDate(myDate) Dim dIff dIff=DateDIff("s",myDate,now())
If dIff<=59 Then Response.Write(dIff & "秒前") End If If dIff>=60 And dIff<3600 Then Response.Write(DateDIff("n",myDate,now()) & "分钟前") End If If dIff>=3600 And dIff<86400 Then Response.Write(DateDIff("h",myDate,now()) & "小时前") End If If dIff>=86400 And dIff<604800 Then Response.Write(DateDIff("d",myDate,now()) & "天前") End If If dIff>=604800 And dIff<2592000 Then Response.Write(DateDIff("ww",myDate,now()) & "星期前") End If If dIff>=2592000 And dIff<31536000 Then Response.Write(DateDIff("m",myDate,now()) & "个月前") End If If dIff>=31536000 Then Response.Write(DateDIff("yyyy",myDate,now()) & "年前") End If End Function
Call FormatDate("2009-09-08 17:09:56") %> |