FormatDateTime 函数 [VBA]
将日期与/或时间格式应用到日期表达式,并将结果以字符串形式返回。
FormatDateTime (DateExpression as Date [, NamedFormat as Integer])
String
「DateExpression」: 要格式化的日期表达式。
「NamedFormat: 可选的 vbDateTimeFormat 枚举,指定要对日期时间表达式应用的格式。若忽略,则将使用 vbGeneralDate」的值。
日期与时间格式 (vbDateTimeFormat 枚举)
已命名常量 |
数值 |
说明 |
vbGeneralDate |
0 |
以系统的「通用日期」设置显示日期与/或时间。如果只有日期,则不显示时间;如果只有时间,则不显示日期。 |
vbLongDate |
1 |
使用计算机区域设置指定的长日期格式显示日期。 |
vbShortDate |
2 |
使用计算机区域设置指定的短日期格式显示日期。 |
vbLongTime |
3 |
以系统「长时间」设置定义的格式显示时间。 |
vbShortTime |
4 |
使用 24 小时格式显示时间 (hh:mm)。 |
REM ***** BASIC *****
Option VBASupport 1
Sub DateFormat
Dim d as Date
d = ("1958-01-29 00:25")
msgbox("通用日期格式 : " & FormatDateTime(d))
msgbox("长日期格式 : " & FormatDateTime(d,vbLongDate))
msgbox("短日期格式 : " & FormatDateTime(d,vbShortDate))
msgbox("长时间格式 : " & FormatDateTime(d,3))
msgbox("短时间格式 : " & FormatDateTime(d,vbShortTime))
End Sub