I have been playing with this on and off through the day. I am no mathematician but put together my own logic (Formula) to calculate this (I did have a bit of help from a friend I work with (he loves maths) as I was
), I have then tried to convert that to a VBA function. I will leave the testing to you Aussie.
Formula:
=LET(rQ,A1,r,A2,p,PI(),p*rQ^2/4-p*r^2/2-p*((rQ^2-r^2+9)/(2*(rQ+r)))^2/2)
Function:
Function EvalQuadArea(Rq As Double, r As Double) As Double
Dim p As Double, R2 As Double
p = Application.PI
R2 = (Rq ^ 2 - r ^ 2 + 9) / (2 * (Rq + r))
EvalQuadArea = p * Rq ^ 2 / 4 - p * r ^ 2 / 2 - p * R2 ^ 2 / 2
End Function
I may have completely missed the point here but this really tested my brain and it is what it is, and I have now admitted defeat.