[5分]模仿做了一个自定义函数，怎样避免一部分结果显示为“# 错误​”？

看看是不是你要的处理逻辑:

Public Function HoursOD(dtmStart As Date, dtmEnd As Date) As Double
    On Error GoTo er
    Dim t As Double
    Dim tt As Double
    If IsNull(dtmStart) = True Then
        'dtmStart参数为空
        HoursOD = 0
    Else
        If IsNull(dtmEnd) = True Then
            'dtmEnd参数为空
            HoursOD = 0
        Else
            tt = Round(Abs(DateDiff("n", dtmStart, dtmEnd)) / 60, 2) '得出两个时间参数的时间差,按小时计算,且保留两位小数
            '因为上面嵌套的两层if,已经排除了dtmStart,dtmEnd两个参数的任意一为为空的情况,所以上一句得出的tt肯定不为空,不需要再进行isnull()的判断
            '直接按照规则计算输出值
            If tt > 15 Then
                t = 24 - tt
            Else
                t = tt
            End If
            HoursOD = t
        End If
    End If
    Exit Function
er:
    MsgBox Err.Number & ":" & Err.Description
    HoursOD = 0
End Function