(1+0.22)1/4-1
Using the Mathematica Time Value function:
FindRoot[TimeValue[100, x, 4] == 122, {x, 1}]
Which is the same calculation.
I don't understand the example/calculation. However there are examples here for discount rate solving: http://reference.wolfram.com/language/ref/TimeValue.html