asp 格式化时间的函数

<%
dim tmpLastUpdate
tmpLastUpdate = ConvertDateTime(tmpLastUpdate,1)
response.write tmpLastUpdate

'补足一定长度的0
Function FillZero(str,sLen)
 dim tStr,lStr,i,zNum
 lStr = len(str)
 if lStr<sLen then
  for i = 0 to sLen - lStr -1
   tStr = tStr & "0"
  next
 end if
 tStr= tStr & str
 FillZero=tStr
end function

'配合上面的 FillZero 来做时间格式转换
Function ConvertDateTime(tDateTime,tType)
 dim tTime
 tTime=tDateTime
 if isdate(tDateTime) then
  Select Case tType
   Case 1 '格式:20080526090800
    tTime=year(tDateTime) & FillZero(month(tDateTime),2) & FillZero(day(tDateTime),2) & FillZero(cstr(hour(tDateTime)),2) & FillZero(cstr(minute(tDateTime)),2) & FillZero(cstr(second(tDateTime)),2)
   Case 2 '格式:20080526
    tTime=year(tDateTime) & FillZero(month(tDateTime),2) & FillZero(day(tDateTime),2)
  End Select
 end if
 ConvertDateTime=tTime
end function
%>

发表评论

电子邮件地址不会被公开。 必填项已用*标注

此站点使用Akismet来减少垃圾评论。了解我们如何处理您的评论数据