挺好的自定义函数[关于时间格式化]
‘//时间格式化
‘//参数：时间，格式模板
‘//返回：格式化后的字符串
‘//备注：格式化关键词详解：
‘ “{Y}” : 4位年
‘ “{y}” : 2位年
‘ “{M}” : 不补位的月
‘ “{m}” : 补位的月,如03,01
‘ “{D}” : 不补位的日
‘ “{d}” : 补位的日
‘ “{H}” : 不补位的小时
‘ “{h}” : 补位的小时
‘ “{MI}”: 不补位的分钟
‘ “{mi}”: 补位的分钟
‘ “{S}” : 不补位的秒
‘ “{s}” : 补位的秒
Function FormatMyDate(myDate,Template)
If Not IsDate(myDate) Or Template = “” Then
FormatMyDate = Template
Exit Function
End If
Dim mYear,mMonth,mDay,mHour,mMin,mSec
mYear = Year(myDate)
mMonth = Month(myDate)
mDay = Day(myDate)
mHour = Hour(myDate)
mMin = Minute(myDate)
mSec = Second(myDate)
Template = Replace(Template,”{Y}”,Year(myDate))
Template = Replace(Template,”{y}”,Right(Year(myDate),2))
Template = Replace(Template,”{M}”,Month(myDate))
Template = Replace(Template,”{m}”,Right(“00″ & Month(myDate),2))
Template = Replace(Template,”{D}”,Day(myDate))
Template = Replace(Template,”{d}”,Right(“00″ & Day(myDate),2))
Template = Replace(Template,”{H}”,Hour(myDate))
Template = Replace(Template,”{h}”,Right(“00″ & Day(myDate),2))
Template = Replace(Template,”{MI}”,Minute(myDate))
Template = Replace(Template,”{mi}”,Right(“00″ & Minute(myDate),2))
Template = Replace(Template,”{S}”,Second(myDate))
Template = Replace(Template,”{s}”,Right(“00” & Second(myDate),2))
FormatMyDate = Template
End Function