本文介绍了一种使用VBA编程语言实现日期时间格式化的实用方法。通过自定义函数FormatDataTime，可以将指定的日期时间按用户定义的格式进行格式化输出。此外，还提供了一个辅助函数AddZero用于在单个位数的时间单位前自动添加零。
代码如下：
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
Function AddZero(val, digit) Dim Ret Ret = CStr(val) Ret = Replace(Space(digit - Len(val)), " ", "0") & Ret AddZero = retEnd FunctionFunction 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 = retEnd FunctionResponse.Write FormatDataTime(Now, "yyyy-MM-dd hh:mm:ss")2006-12-31 11:37:27
扫一扫
1164
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
