excel vba - 如何获取日期的日期名称？

Question

我有一个小代码可以获取 Excel 中列出的日期的日期名称。但问题是，它没有获得正确的日期名称（例如星期二）。

例如：

sDayName = Format(Day(11/1/2016), "dddd")

然后输出会产生一个不正确的日期名称，即：

sDayName = "Sunday"

应该是 "Tuesday"。感谢大家的帮助。

Answer 1

根据您的具体要求，假设您的日期字符串格式为您的区域设置：

    sDayName = Format("11/01/2016", "dddd")

如果您想要今天的工作日：

    sDayName = Format(Date, "dddd")

如果您想要任何区域设置中任何日期的工作日

    sDayName = Format(DateSerial(2016, 11, 4), "dddd")
    'change 2016, 11, 4 for your year, month, day values

:)

Answer 2

WEEKDAY 函数可用于此主题和 Vba 代码中。例如：

Label2.Caption = WeekdayName(Weekday(TextBox2, 0), False, 0)

我在创建有关活动单元格日期输入的用户表单时使用了此功能。

Answer 3

我使用 kadrleyn 写的答案。

但是需要注意的是

返回的字符串

WeekdayName(Weekday(TextBox2, 0), False, 0)

不是 trimmed，所以如果你想在 if 语句中使用它，你必须使用 trim 函数。

ps。由于我的声誉，我无法对 his/her 答案添加评论。

excel vba - How to get the Day Name of Date?