第07章 VBA工具类

右侧导航 教程所有章 VBA 工具类 大纲 8.1 VBA 字符串String 8.2 VBA Len 字符数 8.3 VBA UCase 转化为大写 8.4 VBA LCase 转化为小写 8.5 VBA Left 取左边子字符串 8.6 VBA Right 取右边子字符串 8.7 VBA Mid 取中间子字符串 8.8 VBA InStr 查找位置 8.9 VBA Replace 替换子字符串 8.10 VBA Trim 去掉两边空格 8.11 VBA LTrim 去掉左边空格 8.12 VBA RTrim 去掉右边空格 8.13 VBA Split 分割为数组 8.14 VBA StrReverse 反转 8.15 VBA Asc 字符ASC码值 8.16 VBA Chr 码值的字符 8.17 VBA String 重复字符 8.18 VBA Space 重复空格 8.19 VBA Date 日期 8.20 VBA DateSerial 创建日期 8.21 VBA Date 当前日期 8.22 VBA Now 当前日期与时间 8.23 VBA Time 当前时间 8.24 VBA TimeSerial 创建时间 8.25 VBA Year等 日期部分 8.26 VBA Format 格式化 8.27 VBA DateValue 字符串转日期 8.28 VBA TimeValue 字符串转时间 8.29 VBA DateAdd 日期加减 8.30 VBA DateDiff 时间差值 8.31 VBA 类型转化 8.32 VBA MsgBox消息框 8.33 VBA InputBox 输入框 下一章 第08章 VBA Excel对象
❮上一节  VBA DateSerial 创建日期 下一节  VBA Now 当前日期与时间❯

VBA Date 当前日期

返回系统当前日期。


语法

Property Date As Variant

示例

Sub sub2()
  Dim d1 As Date

  '返回系统当前日期
  d1 = Date
  Debug.Print d1

  Debug.Print "年:" & Year(d1) & ",月:" & Month(d1)

End Sub

运行结果：

2023/6/15 
年:2023,月:6

❮上一节  VBA DateSerial 创建日期 下一节  VBA Now 当前日期与时间❯