在ASP(VB)中自定义日期格式的函数

代码如下：


Function AddZero(val, digit)


Dim Ret


Ret = CStr(val)


Ret = Replace(Space(digit - Len(val)), " ", "0") & Ret


AddZero = ret


End Function


Function FormatDataTime(dt, format)


Dim ret


ret = Replace(format, "MM", AddZero(Month(dt), 2))


ret = Replace(ret, "M", Month(dt))


ret = Replace(ret, "mm", AddZero(Minute(dt), 2))


ret = Replace(ret, "m", Minute(dt))


ret = UCase(ret)


ret = Replace(ret, "YYYY", Year(dt))


ret = Replace(ret, "DD", Day(dt))


ret = Replace(ret, "D", AddZero(Day(dt), 2))


ret = Replace(ret, "HH", Hour(dt))


ret = Replace(ret, "H", AddZero(Hour(dt), 2))


ret = Replace(ret, "SS", AddZero(Second(dt), 2))


ret = Replace(ret, "S", Second(dt))


FormatDataTime = ret


End Function


Response.Write FormatDataTime(Now, "yyyy-MM-dd hh:mm:ss")

显示结果：


2006-12-31 11:37:27