内置函数datediff的妙用

80酷酷网    80kuku.com

  vb中有许多内置的函数都是非常实用,非常棒的,本文就针对datediff来进行介绍!

1、函数作用:

返回两个日期之间的时间间隔。

举例:

DateDiff("d", Now, theDate)

d代表天(日) now 是当前时间, theDate 就是我们自己定义的一个时间

那么,整个函数的结果就是自定义时间与当前时间的日期差。

(顺便将常用的列举一下,s秒、m分钟、h小时、d日、n月、y年)

根据这个函数,我们来制作一个发布时间,显示为多久前的效果

<%

limit=DateDiff("s","2009-1-17 9:05:35","2009-1-17 10:05:55")
response.Write  limit&"秒"
response.Write  ("<hr>")

if (limit < 60) then   show_t = "刚刚"
if (limit >= 60 and limit < 3600) then  show_t = INT(limit/60) &"分钟前"
if (limit >= 3600 and limit < 86400) then   show_t = INT(limit/3600) &"小时前"
if (limit >= 86400 and limit < 2592000) then   show_t = INT(limit/86400) &"天前"
if (limit >= 2592000 and limit < 31104000) then   show_t = INT(limit/2592000)  &"个月前"
if limit >= 31104000 then  show_t = "很久很久前.....一只大灰狼......"
response.Write  (show_t)
%>

分享到
  • 微信分享
  • 新浪微博
  • QQ好友
  • QQ空间
点击: