UDF (user defined function) replacement for Excel's DATEDIF function

[snb]

Alternative:

Function F_datediff_snb(x0 As Date, x1 As Date)
    n = DateDiff("m", x0, x1 + 1) + (Day(x1 + 1) < Day(x0))
    
    Y = n \ 12
    M = n Mod 12
    D = 1 + x1 - DateAdd("m", M, DateAdd("yyyy", Y, x0))
    
    F_datediff_snb = IIf(Y = 0, "", Y & " year" & IIf(Y = 1, " ", "s ")) & IIf(M = 0, "", M & " month" & IIf(M = 1, " ", "s ")) & IIf(D = 0, "", D & " day" & IIf(D = 1, " ", "s "))
End Function