教你判断日期所处星期的方法，轻松掌握时间管理

Excel技巧

2023-11-23 03:44:55

如何判断日期所属的星期

前言

在日常生活中，我们经常需要知道某个日期属于星期几。无论是安排约会、制定计划，还是填写表单，掌握判断日期星期的方法都至关重要。本文将介绍五种常用的方法，帮助你轻松解决这个问题。

一、自定义格式

步骤：

选中要设置的日期单元格。
按下快捷键 "Ctrl+1"，打开 "设置单元格格式" 对话框。
切换到 "数字" 选项卡，选择 "自定义" 分类。
在 "类型" 框中输入格式字符串："yyyy/m/d aaaa"。
点击 "确定" 即可完成设置。

二、TEXT 函数

公式：

=TEXT(A2,"aaaa")

说明：

A2：要判断星期几的日期单元格。
"aaaa"：指定显示星期的格式。

三、WEEKNUM 函数

公式：

=WEEKNUM(A2,21)

说明：

A2：要判断星期几的日期单元格。
21：指定使用星期一作为一周的开始。

四、DATE 函数和 CHOOSE 函数

公式：

=CHOOSE(WEEKDAY(A2), "星期日", "星期一", "星期二", "星期三", "星期四", "星期五", "星期六")

说明：

A2：要判断星期几的日期单元格。
WEEKDAY 函数：返回日期所在的星期几（1表示星期日，7表示星期六）。
CHOOSE 函数：根据给定的星期几，选择相应的星期名称。

五、VBA 代码

步骤：

打开要处理的 Excel 工作簿。
按下快捷键 "Alt+F11"，打开 VBA 编辑器。
插入一个新模块。
输入以下代码：

Function GetWeekDay(dtDate As Date) As String
    Dim intWeekDay As Integer
    intWeekDay = Weekday(dtDate, vbSunday)
    Select Case intWeekDay
        Case 1
            GetWeekDay = "星期日"
        Case 2
            GetWeekDay = "星期一"
        Case 3
            GetWeekDay = "星期二"
        Case 4
            GetWeekDay = "星期三"
        Case 5
            GetWeekDay = "星期四"
        Case 6
            GetWeekDay = "星期五"
        Case 7
            GetWeekDay = "星期六"
    End Select
End Function

在要显示星期几的单元格中，输入公式：

=GetWeekDay(A2)

示例代码：

以下代码示例展示了如何使用 VBA 代码判断日期星期：

Sub Main()
    ' 定义一个日期变量
    Dim dtDate As Date

    ' 获取当前日期
    dtDate = Date

    ' 调用 GetWeekDay 函数获取星期名称
    Dim strWeekDay As String
    strWeekDay = GetWeekDay(dtDate)

    ' 在单元格 A1 中显示星期名称
    Range("A1").Value = strWeekDay
End Sub