第07章 VBA工具类

右侧导航 教程所有章 VBA 工具类 大纲 第1节 VBA 字符串String 第2节 VBA Len 字符数 第3节 VBA UCase 转化为大写 第4节 VBA LCase 转化为小写 第5节 VBA Left 取左边子字符串 第6节 VBA Right 取右边子字符串 第7节 VBA Mid 取中间子字符串 第8节 VBA InStr 查找位置 第9节 VBA Replace 替换子字符串 第10节 VBA Trim 去掉两边空格 第11节 VBA LTrim 去掉左边空格 第12节 VBA RTrim 去掉右边空格 第13节 VBA Split 分割为数组 第14节 VBA StrReverse 反转 第15节 VBA Asc 字符ASC码值 第16节 VBA Chr 码值的字符 第17节 VBA String 重复字符 第18节 VBA Space 重复空格 第19节 VBA Date 日期 第20节 VBA DateSerial 创建日期 第21节 VBA Date 当前日期 第22节 VBA Now 当前日期与时间 第23节 VBA Time 当前时间 第24节 VBA TimeSerial 创建时间 第25节 VBA Year等 日期部分 第26节 VBA Format 格式化 第27节 VBA DateValue 字符串转日期 第28节 VBA TimeValue 字符串转时间 第29节 VBA DateAdd 日期加减 第30节 VBA DateDiff 时间差值 第31节 VBA 类型转化 第32节 VBA MsgBox消息框 第33节 VBA InputBox 输入框 下一章 第08章 VBA Excel对象
❮上一节  VBA Year等 日期部分 下一节  VBA DateValue 字符串转日期❯

VBA Format 格式化

将日期格式化为字符串。


语法

Function Format(date, Format)

将日期对象date按格式Format进行格式化。


参数

Format中日期符号与时间符号如下。

日期符号

日期符号 范围
d 几号。1-31
dd 几号。01-31，不够两位补0。推荐使用。
w 星期几。1-7，从星期日 = 1 开始
ww 周份（年的第几周）。1-53。
m 月份。1-12
mm 月份。01-12，不够补0。推荐使用。
y 年份的第几天。1-366。
yy 两位数年份。00-99。
yyyy 三或四位数年份。100-9999。推荐使用。

时间符号

时间符号 范围
h 小时数。0-23。
hh 小时数，不够两位补0。00-23。推荐使用。
n 分钟数。0-59。
nn 分钟数，不够两位补0。00-59。推荐使用。
s 秒数。0-59
ss 秒数。不够两位补0。00-59，推荐使用。

示例

Sub sub5()

  Dim d1, d2 As Date

  d1 = Date
  Debug.Print Format(d1, "yyyy年mm月dd日")

  d2 = Now
  Debug.Print Format(d2, "yyyy年mm月dd日 h点nn分ss秒")
End Sub

输出内容:

2023 年06月15日
2023年06月15日 15点07分57秒

❮上一节  VBA Year等 日期部分 下一节  VBA DateValue 字符串转日期❯