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

"函数名：FormatTime
  "作  用：时间格式化
  "参  数：DateTime ----要格式化的时间
  "       Format   ----格式的形式
  "****************************************************
  Public Function FormatTime(DateTime,Format)
   select case Format
   case "1"
  FormatTime=""&year(DateTime)&"年"&month(DateTime)&"月"&day(DateTime)&"日"
   case "2"
  FormatTime=""&month(DateTime)&"月"&day(DateTime)&"日"
   case "3"
  FormatTime=""&year(DateTime)&"/"&month(DateTime)&"/"&day(DateTime)&""
   case "4"
  FormatTime=""&month(DateTime)&"/"&day(DateTime)&""
   case "5"
  FormatTime=""&month(DateTime)&"月"&day(DateTime)&"日"&FormatDateTime(DateTime,4)&""
   case "6"
   temp="周日,周一,周二,周三,周四,周五,周六"
   temp=split(temp,",")
   FormatTime=temp(Weekday(DateTime)-1)
   case Else
   FormatTime=DateTime
   end select
  End Function
 
 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

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