Your age as a continued fraction is given by the function CFage
. It computes the difference between a birth date and the current time. Then this period is measured in years and transformed into a continued fraction. One can also give dates as integer lists right down to minutes and seconds. The number of terms is optional.
CFage[birthdate:(_String|_DateObject|{_Integer,___}),terms_:11]:=
Dynamic[
Fold[#2+1/#1&,
MapAt[
ToString,
Take[
ContinuedFraction[
DateDifference[birthdate,Now]/Quantity@"yr"],
UpTo[terms]]/.{a__,b_,1}:>{a,b+1}//Reverse,1]]//OutputForm,
UpdateInterval->.5]
Let's take Einstein birthday as an example:
![enter image description here](http://community.wolfram.com//c/portal/getImageAttachment?filename=ScreenShot2017-02-03at3.59.24AM.png&userId=11733)
The function CFage
will work with such DateObject
or it's String
analog:
![enter image description here](http://community.wolfram.com//c/portal/getImageAttachment?filename=3245terhgrerw4q3tegra.gif&userId=11733)