Excel自定义Datevalue：能否脱离1900/1/1基准自定义日期计数？

当然可以实现！不管是用Excel公式还是VBA，都能轻松自定义这种以每年1月1日为基准、年度内递增、跨年重置的日期序号。下面分别给你两种实用方案：

方法一：Excel公式实现 #

这种方法不需要编程，直接在单元格里写公式就能搞定，适合快速需求。

1. 返回纯数字序号（如1、2、3...） #

用基础的日期计算就能得到当年的天数序号，公式如下：

=A1-DATE(YEAR(A1),1,1)+1

• 解释：YEAR(A1)提取目标日期的年份，DATE(YEAR(A1),1,1)生成当年的1月1日；用目标日期减去当年元旦，再加1就得到了该日期是当年的第几天（2019/1/1返回1，2019/1/2返回2，2020/1/1重置为1）。

如果需要限制仅2019年及之后的日期生效，可以加个判断：

=IF(YEAR(A1)>=2019,A1-DATE(YEAR(A1),1,1)+1,"无效日期")

2. 返回带格式的序号（如001、#1、#002...） #

如果需要固定三位数字（如001、002），用TEXT函数格式化：

=TEXT(A1-DATE(YEAR(A1),1,1)+1,"000")

如果要带#前缀，直接拼接即可：

="#"&TEXT(A1-DATE(YEAR(A1),1,1)+1,"000")

要是不需要补零，直接写：

="#"&(A1-DATE(YEAR(A1),1,1)+1)

方法二：VBA自定义函数实现 #

如果需要更灵活的逻辑（比如后续要扩展规则），可以写个自定义函数，方便在整个工作簿里复用。

步骤1：编写VBA代码 #

按Alt+F11打开VBA编辑器，右键点击当前工作簿 → 插入 → 模块，然后粘贴以下代码：

Function CustomDateID(inputDate As Date) As Variant
    ' 仅处理2019年及之后的日期
    If Year(inputDate) < 2019 Then
        CustomDateID = "无效日期" ' 可根据需求修改返回内容，比如返回空值""
        Exit Function
    End If
    
    ' 计算日期在当年的天数序号
    Dim dayOfYear As Integer
    dayOfYear = inputDate - DateSerial(Year(inputDate), 1, 1) + 1
    
    ' 选择你需要的返回格式，取消对应行的注释即可
    ' 1. 返回纯数字（如1、2、3）
    CustomDateID = dayOfYear
    
    ' 2. 返回三位补零的文本（如"001"、"002"）
    ' CustomDateID = Format(dayOfYear, "000")
    
    ' 3. 返回带#前缀的三位格式（如"#001"、"#002"）
    ' CustomDateID = "#" & Format(dayOfYear, "000")
    
    ' 4. 返回带#前缀的纯数字（如"#1"、"#2"）
    ' CustomDateID = "#" & dayOfYear
End Function

步骤2：使用自定义函数 #

回到Excel工作表，在单元格里输入：

=CustomDateID(A1)

把A1换成你的目标日期单元格即可，函数会根据你选择的格式返回对应的序号。

内容的提问来源于stack exchange，提问作者mohammad Ilyas