软讯网络 > 编程语言 > .NET > C#.NET > 在ASP(VB)中自定义日期格式的函数
【标 题】：在ASP(VB)中自定义日期格式的函数
【关键字】：
ASP,VB
【来 源】：http://blog.csdn.net/Snowdust/archive/2006/12/31/1470756.aspx
在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
|