如何使用vba datepart函数？

VBA DATEPART 函数列在 VBA 函数的日期类别中。当您在 VBA 代码中使用它时，它可以从日期或时间值返回日期值。简单来说，您可以从日期或时间值获取秒、分钟、小时、天、月或年。

句法

DatePart(间隔, 日期, [firstdayofweek, [firstweekofyear]])

论点

• Interval ：一个字符串，用于指定应在结果中返回日期的哪一部分。
• Date ：日期部分应返回的日期。
• [FirstDayOfWeek] ：定义一周第一天的字符串[这是一个可选参数，如果默认省略 vbSunday]。
  • vbUseSystemDayOfWeek – 取决于系统设置。
  • vbSunday – 星期日
  • vblunday – 星期一
  • vbTuesday – 星期二
  • vbWednesday – 星期三
  • vb星期四 – 星期四
  • vbFriday – 星期五
  • vbSaturday – 星期六
• [FirstWeekOfYear] ：定义一年中第一周的字符串[这是一个可选参数，如果默认省略 vbFirstJan1]。
  • vbSystem – 取决于系统设置。
  • vbFirstJan1 – 1 月第一天所在的周。
  • vbFirstFourDays – 新年中至少包含四天的第一周。
  • vbFirstFullWeek – 新年的第一个完整周。

例子

要实际了解如何使用 VBA DATEPART 函数，您需要查看下面的示例，其中我们使用它编写了 vba 代码：

 Sub example_DATEPART() Range("A2").Value = DatePart("d", Range("A1")) Range("A3").Value = DatePart("h", Range("A1")) Range("A4").Value = DatePart("m", Range("A1")) Range("A5").Value = DatePart("n", Range("A1")) Range("A6").Value = DatePart("q", Range("A1")) Range("A7").Value = DatePart("s", Range("A1")) Range("A8").Value = DatePart("w", Range("A1")) Range("A9").Value = DatePart("ww", Range("A1")) Range("A11").Value = DatePart("y", Range("A1")) Range("A12").Value = DatePart("yyyy", Range("A1")) End Sub

在上面的代码中，我们在 DATEPART 中使用了不同的间隔：

• ‘d’ 获取日期，返回 15。
• ‘h’ 来获取小时数，但由于我们没有日期时间，因此结果返回 0。
• ‘m’ 获取月份，它返回 1。
• ‘n’ 来获取分钟，但由于我们没有日期时间，因此结果返回 0。
• “q”获取季度，返回 1。
• ‘s’ 来获取秒数，但由于我们没有日期时间，所以结果返回 0。
• ‘w’ 获取星期几，它返回 3。
• ‘ww’ 获取一年中的第几周，结果返回 3。
• ‘y’ 获取一年中的第几天，它返回 15。
• “aaaa”获取年份，然后回到 2019 年。

评论

• 如果提供的日期没有年份，则将使用当前年份。
• 如果指定的值不是日期或无法识别为日期的日期，VBA 将返回运行时错误 13。
• 仅当“interval”为“w”或“ww”时，设置参数“firstdayofweek”才有效。