查询调用自定义WorkingDaysFC函数时出现“Undefined Function”错误求助

常见原因及修复步骤 #

出现这个错误的核心是Access无法识别你定义的函数，大概率是以下几个问题导致：

1. 函数存错了位置 #

Access查询只能调用标准模块中的公共函数，如果你把WorkingDaysFC写在报表/窗体的专属代码模块里，查询根本找不到它：

• 按Alt+F11打开VBA编辑器，找到你的函数；
• 如果它在Form_XXX或Report_XXX模块下，剪切代码；
• 右键插入标准模块（菜单→插入→模块），粘贴代码；
• 给标准模块改个名字（比如modDateTools），别和函数名重名。

2. 字段数据类型不匹配 #

如果查询里的LRD_Walid或Status_Date是文本类型，而函数要求传入Date参数，Access会因参数类型不匹配，误判函数不存在：

• 打开In_Progress_All查询，确认这两个字段的数据类型为「日期/时间」；
• 如果是文本类型，调用函数时先转换为日期：

  WD: WorkingDaysFC(CDate([LRD_Walid]), CDate([Status_Date]))
  

3. 代码存在语法错误或未编译 #

如果函数代码有语法问题，Access不会加载该函数：

• 在VBA编辑器中，点击菜单→「调试」→「编译你的数据库名」；
• 修复弹出的语法错误后保存模块。

更简便的方法：直接在报表文本框计算 #

不用在查询中新增字段，直接在报表的文本框里完成计算：

1. 打开报表设计视图，添加一个文本框控件；
2. 设置文本框的控件来源为：

   =WorkingDaysFC([LRD_Walid],[Status_Date])
   

3. 确保函数在标准模块中，运行报表即可直接看到结果。

优化工作日计算函数 #

你原来的逐天循环方法在日期跨度大时效率很低，可以改用更高效的计算逻辑：

Public Function WorkingDaysFC(startDate As Date, endDate As Date) As Long
    Dim totalDays As Long
    Dim weekendDays As Long
    Dim fullWeeks As Integer
    Dim i As Integer
    
    ' 处理开始日期晚于结束日期的异常情况
    If startDate > endDate Then
        WorkingDaysFC = 0
        Exit Function
    End If
    
    ' 计算包含首尾的总天数
    totalDays = DateDiff("d", startDate, endDate) + 1
    ' 计算完整周数对应的周末天数（每周2天）
    fullWeeks = totalDays \ 7
    weekendDays = fullWeeks * 2
    
    ' 处理剩余天数中的周末（用vbMonday指定周一为一周的第1天，周六周日为6、7）
    For i = 0 To (totalDays Mod 7) - 1
        If Weekday(startDate + i, vbMonday) > 5 Then
            weekendDays = weekendDays + 1
        End If
    Next i
    
    ' 总天数减去周末天数即为工作日数
    WorkingDaysFC = totalDays - weekendDays
End Function

内容的提问来源于stack exchange，提问作者Sara Soliman