IIF嵌套

听说是7层，反正我用了5个也没提示说错误，下面是我的一个模块：

'计算上月26日至本月25日之间的时间间隔（1月份比较特殊，还有就是把26日作为这个时间间隔的第一天）
Function myday(inputdate As Date)
Dim D As Integer, m As Integer, Y As Integer
    If IsNull(inputdate) Then
        myday = Null
    Else
        D = day(inputdate)
        m = Month(inputdate)
        Y = Year(inputdate)
        myday = IIf(m = 1, IIf(D = 26, 1, IIf(D > 26, DateSerial(Y, m, D) - DateSerial(Y, m, 26) + 1, DateSerial(Y, m, D) - DateSerial(Y - 1, 12, 26) + 1)), IIf(D = 26, 1, IIf(D > 26, DateSerial(Y, m, D) - DateSerial(Y, m, 26) + 1, DateSerial(Y, m, D) - DateSerial(Y, m - 1, 26) + 1)))
    End If
End Function