asp 時間日期格式化程式

'函數名：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