【www.gdgbn.com--时间日期】

  Public Function TimeToDiff(DateTime)
  If IsDate(DateTime) Then
   Dim tSecond:tSecond=DateDiff("s",DateTime,Now())
   If tSecond<60 Then"//一分钟内
    TimeToDiff="刚刚"
   End If
   If tSecond>=60 And tSecond<3600 Then"//一小时内
    TimeToDiff=DateDiff("n",DateTime,Now())&"分钟前"
   End If
   If tSecond>=3600 And tSecond<86400 Then"//一天内
    TimeToDiff=DateDiff("h",DateTime,Now())&"小时前"
   End If
   If tSecond>=86400 And tSecond<2592000 Then"//一个月内
    TimeToDiff=DateDiff("d",DateTime,Now())&"天前"
   End If
   If tSecond>=2592000 And tSecond<31536000 Then"//一年内
    TimeToDiff=DateDiff("m",DateTime,Now())&"个月前"
   End If
   If tSecond>=31536000 Then"//其它
    TimeToDiff=DateDiff("yyyy",DateTime,Now())&"年前"
   End If
  Else
   TimeToDiff="N天前"
  End If
 End Function
 
"调用方法
call TimeToDiff(Now()))

本文来源：http://www.gdgbn.com/wangyetexiao/24047/