Wolfram Archive
Wolfram Programming Lab is a legacy product.
All the same functionality and features, including access to Programming Lab Explorations, are available with Wolfram|One.
Start programming now. »
Try it now »
(no sign-in required)

Age in Mars Years

Find out how old you are in Mars years or the years of other planets.

Run the code to find the orbit period of Mars. Try other planets, like Venus or Neptune:

SHOW/HIDE DETAILS

Use plain English to get an exact representation of the planet Mars. Type += and in the input box, type mars:

\!\(\* NamespaceBox["LinguisticAssistant", DynamicModuleBox[{WolframAlphaClient`Private`query$$ = "mars", WolframAlphaClient`Private`boxes$$ = TemplateBox[{"\"Mars\"", RowBox[{"Entity", "[", RowBox[{"\"Planet\"", ",", "\"Mars\""}], "]"}], "\"Entity[\\\"Planet\\\", \\\"Mars\\\"]\"", "\"planet\""}, "Entity"], WolframAlphaClient`Private`allassumptions$$ = {{ "type" -> "Clash", "word" -> "mars", "template" -> "Assuming \"${word}\" is ${desc1}. Use as \ ${desc2} instead", "count" -> "6", "Values" -> {{ "name" -> "Planet", "desc" -> "a planet", "input" -> "*C.mars-_*Planet-"}, { "name" -> "Mythology", "desc" -> "a mythological figure", "input" -> "*C.mars-_*Mythology-"}, { "name" -> "Company", "desc" -> "a company", "input" -> "*C.mars-_*Company-"}, { "name" -> "Word", "desc" -> "a word", "input" -> "*C.mars-_*Word-"}, { "name" -> "GivenName", "desc" -> "a given name", "input" -> "*C.mars-_*GivenName-"}, { "name" -> "TranslationData", "desc" -> " referring to translations", "input" -> "*C.mars-_*TranslationData-"}}}}, WolframAlphaClient`Private`assumptions$$ = {}, WolframAlphaClient`Private`open$$ = {1}}, DynamicBox[ToBoxes[ AlphaIntegration`LinguisticAssistantBoxes["", 1, Dynamic[WolframAlphaClient`Private`query$$], Dynamic[WolframAlphaClient`Private`boxes$$], Dynamic[WolframAlphaClient`Private`allassumptions$$], Dynamic[WolframAlphaClient`Private`assumptions$$], Dynamic[WolframAlphaClient`Private`open$$]], StandardForm], ImageSizeCache->{48., {7., 16.}}, TrackedSymbols:>{ WolframAlphaClient`Private`query$$, WolframAlphaClient`Private`boxes$$, WolframAlphaClient`Private`allassumptions$$, WolframAlphaClient`Private`assumptions$$, WolframAlphaClient`Private`open$$}], DynamicModuleValues:>{}, UndoTrackedVariables:>{WolframAlphaClient`Private`open$$}], BaseStyle->{"Deploy"}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\)

An exact representation gives you access to all sorts of information about the planetfor example, the period of its orbit (how long it takes to go once around the Sun, which is the length of one of the planets years).

A Mars year is 1.88 Earth years:

\!\(\* NamespaceBox["LinguisticAssistant", DynamicModuleBox[{WolframAlphaClient`Private`query$$ = "mars", WolframAlphaClient`Private`boxes$$ = TemplateBox[{"\"Mars\"", RowBox[{"Entity", "[", RowBox[{"\"Planet\"", ",", "\"Mars\""}], "]"}], "\"Entity[\\\"Planet\\\", \\\"Mars\\\"]\"", "\"planet\""}, "Entity"], WolframAlphaClient`Private`allassumptions$$ = {{ "type" -> "Clash", "word" -> "mars", "template" -> "Assuming \"${word}\" is ${desc1}. Use as \ ${desc2} instead", "count" -> "6", "Values" -> {{ "name" -> "Planet", "desc" -> "a planet", "input" -> "*C.mars-_*Planet-"}, { "name" -> "Mythology", "desc" -> "a mythological figure", "input" -> "*C.mars-_*Mythology-"}, { "name" -> "Company", "desc" -> "a company", "input" -> "*C.mars-_*Company-"}, { "name" -> "Word", "desc" -> "a word", "input" -> "*C.mars-_*Word-"}, { "name" -> "GivenName", "desc" -> "a given name", "input" -> "*C.mars-_*GivenName-"}, { "name" -> "TranslationData", "desc" -> " referring to translations", "input" -> "*C.mars-_*TranslationData-"}}}}, WolframAlphaClient`Private`assumptions$$ = {}, WolframAlphaClient`Private`open$$ = {1}}, DynamicBox[ToBoxes[ AlphaIntegration`LinguisticAssistantBoxes["", 1, Dynamic[WolframAlphaClient`Private`query$$], Dynamic[WolframAlphaClient`Private`boxes$$], Dynamic[WolframAlphaClient`Private`allassumptions$$], Dynamic[WolframAlphaClient`Private`assumptions$$], Dynamic[WolframAlphaClient`Private`open$$]], StandardForm], ImageSizeCache->{48., {7., 16.}}, TrackedSymbols:>{ WolframAlphaClient`Private`query$$, WolframAlphaClient`Private`boxes$$, WolframAlphaClient`Private`allassumptions$$, WolframAlphaClient`Private`assumptions$$, WolframAlphaClient`Private`open$$}], DynamicModuleValues:>{}, UndoTrackedVariables:>{WolframAlphaClient`Private`open$$}], BaseStyle->{"Deploy"}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\)["OrbitPeriod"]

HIDE DETAILS
\!\(\* NamespaceBox["LinguisticAssistant", DynamicModuleBox[{WolframAlphaClient`Private`query$$ = "mars", WolframAlphaClient`Private`boxes$$ = TemplateBox[{"\"Mars\"", RowBox[{"Entity", "[", RowBox[{"\"Planet\"", ",", "\"Mars\""}], "]"}], "\"Entity[\\\"Planet\\\", \\\"Mars\\\"]\"", "\"planet\""}, "Entity"], WolframAlphaClient`Private`allassumptions$$ = {{ "type" -> "Clash", "word" -> "mars", "template" -> "Assuming \"${word}\" is ${desc1}. Use as \ ${desc2} instead", "count" -> "6", "Values" -> {{ "name" -> "Planet", "desc" -> "a planet", "input" -> "*C.mars-_*Planet-"}, { "name" -> "Mythology", "desc" -> "a mythological figure", "input" -> "*C.mars-_*Mythology-"}, { "name" -> "Company", "desc" -> "a company", "input" -> "*C.mars-_*Company-"}, { "name" -> "Word", "desc" -> "a word", "input" -> "*C.mars-_*Word-"}, { "name" -> "GivenName", "desc" -> "a given name", "input" -> "*C.mars-_*GivenName-"}, { "name" -> "TranslationData", "desc" -> " referring to translations", "input" -> "*C.mars-_*TranslationData-"}}}}, WolframAlphaClient`Private`assumptions$$ = {}, WolframAlphaClient`Private`open$$ = {1}}, DynamicBox[ToBoxes[ AlphaIntegration`LinguisticAssistantBoxes["", 1, Dynamic[WolframAlphaClient`Private`query$$], Dynamic[WolframAlphaClient`Private`boxes$$], Dynamic[WolframAlphaClient`Private`allassumptions$$], Dynamic[WolframAlphaClient`Private`assumptions$$], Dynamic[WolframAlphaClient`Private`open$$]], StandardForm], ImageSizeCache->{50., {7., 16.}}, TrackedSymbols:>{ WolframAlphaClient`Private`query$$, WolframAlphaClient`Private`boxes$$, WolframAlphaClient`Private`allassumptions$$, WolframAlphaClient`Private`assumptions$$, WolframAlphaClient`Private`open$$}], DynamicModuleValues:>{}, UndoTrackedVariables:>{WolframAlphaClient`Private`open$$}], BaseStyle->{"Deploy"}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\)["OrbitPeriod"]

Find out how many Earth days old you are. Try some other dates:

SHOW/HIDE DETAILS

Today gives todays date:

Today

DateDifference gives the number of days between two dates.

This gives your age in days if your birthday is February 2, 2009:

DateDifference["Feb 2, 2009", Today]

HIDE DETAILS
DateDifference["Feb 2, 2009", Today]

Find out how many Earth years old you are. Try some other dates:

SHOW/HIDE DETAILS

The length of time since your birth divided by the time it takes for the Earth to orbit the Sun is your age in Earth years:

DateDifference["Jan 2, 1999", Today] / \!\(\* NamespaceBox["LinguisticAssistant", DynamicModuleBox[{WolframAlphaClient`Private`query$$ = "earth", WolframAlphaClient`Private`boxes$$ = TemplateBox[{"\"Earth\"", RowBox[{"Entity", "[", RowBox[{"\"Planet\"", ",", "\"Earth\""}], "]"}], "\"Entity[\\\"Planet\\\", \\\"Earth\\\"]\"", "\"planet\""}, "Entity"], WolframAlphaClient`Private`allassumptions$$ = {{ "type" -> "Clash", "word" -> "earth", "template" -> "Assuming \"${word}\" is ${desc1}. Use as \ ${desc2} instead", "count" -> "6", "Values" -> {{ "name" -> "Planet", "desc" -> "a planet", "input" -> "*C.earth-_*Planet-"}, { "name" -> "CommonMaterial", "desc" -> "a general material", "input" -> "*C.earth-_*CommonMaterial-"}, { "name" -> "Word", "desc" -> "a word", "input" -> "*C.earth-_*Word-"}, { "name" -> "Book", "desc" -> "a book", "input" -> "*C.earth-_*Book-"}, { "name" -> "Movie", "desc" -> "a movie", "input" -> "*C.earth-_*Movie-"}, { "name" -> "Country", "desc" -> "all countries", "input" -> "*C.earth-_*Country-"}}}}, WolframAlphaClient`Private`assumptions$$ = {}, WolframAlphaClient`Private`open$$ = {1}}, DynamicBox[ToBoxes[ AlphaIntegration`LinguisticAssistantBoxes["", 1, Dynamic[WolframAlphaClient`Private`query$$], Dynamic[WolframAlphaClient`Private`boxes$$], Dynamic[WolframAlphaClient`Private`allassumptions$$], Dynamic[WolframAlphaClient`Private`assumptions$$], Dynamic[WolframAlphaClient`Private`open$$]], StandardForm], ImageSizeCache->{48., {7., 16.}}, TrackedSymbols:>{ WolframAlphaClient`Private`query$$, WolframAlphaClient`Private`boxes$$, WolframAlphaClient`Private`allassumptions$$, WolframAlphaClient`Private`assumptions$$, WolframAlphaClient`Private`open$$}], DynamicModuleValues:>{}, UndoTrackedVariables:>{WolframAlphaClient`Private`open$$}], BaseStyle->{"Deploy"}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\)["OrbitPeriod"]

HIDE DETAILS
DateDifference["Jan 2, 1999", Today] / \!\(\* NamespaceBox["LinguisticAssistant", DynamicModuleBox[{WolframAlphaClient`Private`query$$ = "earth", WolframAlphaClient`Private`boxes$$ = TemplateBox[{"\"Earth\"", RowBox[{"Entity", "[", RowBox[{"\"Planet\"", ",", "\"Earth\""}], "]"}], "\"Entity[\\\"Planet\\\", \\\"Earth\\\"]\"", "\"planet\""}, "Entity"], WolframAlphaClient`Private`allassumptions$$ = {{ "type" -> "Clash", "word" -> "earth", "template" -> "Assuming \"${word}\" is ${desc1}. Use as \ ${desc2} instead", "count" -> "6", "Values" -> {{ "name" -> "Planet", "desc" -> "a planet", "input" -> "*C.earth-_*Planet-"}, { "name" -> "CommonMaterial", "desc" -> "a general material", "input" -> "*C.earth-_*CommonMaterial-"}, { "name" -> "Word", "desc" -> "a word", "input" -> "*C.earth-_*Word-"}, { "name" -> "Book", "desc" -> "a book", "input" -> "*C.earth-_*Book-"}, { "name" -> "Movie", "desc" -> "a movie", "input" -> "*C.earth-_*Movie-"}, { "name" -> "Country", "desc" -> "all countries", "input" -> "*C.earth-_*Country-"}}}}, WolframAlphaClient`Private`assumptions$$ = {}, WolframAlphaClient`Private`open$$ = {1}}, DynamicBox[ToBoxes[ AlphaIntegration`LinguisticAssistantBoxes["", 1, Dynamic[WolframAlphaClient`Private`query$$], Dynamic[WolframAlphaClient`Private`boxes$$], Dynamic[WolframAlphaClient`Private`allassumptions$$], Dynamic[WolframAlphaClient`Private`assumptions$$], Dynamic[WolframAlphaClient`Private`open$$]], StandardForm], ImageSizeCache->{51., {7., 16.}}, TrackedSymbols:>{ WolframAlphaClient`Private`query$$, WolframAlphaClient`Private`boxes$$, WolframAlphaClient`Private`allassumptions$$, WolframAlphaClient`Private`assumptions$$, WolframAlphaClient`Private`open$$}], DynamicModuleValues:>{}, UndoTrackedVariables:>{WolframAlphaClient`Private`open$$}], BaseStyle->{"Deploy"}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\)["OrbitPeriod"]

Find out how many Mars years old you are. Try some other planets:

SHOW/HIDE DETAILS

The length of time since your birth divided by the time it takes for Mars to orbit the Sun is your age in Mars years:

DateDifference["Jan 2, 1999", Today] /\!\(\* NamespaceBox["LinguisticAssistant", DynamicModuleBox[{Typeset`query$$ = "mars", Typeset`boxes$$ = TemplateBox[{"\"Mars\"", RowBox[{"Entity", "[", RowBox[{"\"Planet\"", ",", "\"Mars\""}], "]"}], "\"Entity[\\\"Planet\\\", \\\"Mars\\\"]\"", "\"planet\""}, "Entity"], Typeset`allassumptions$$ = {{ "type" -> "Clash", "word" -> "mars", "template" -> "Assuming \"${word}\" is ${desc1}. Use as \ ${desc2} instead", "count" -> "6", "Values" -> {{ "name" -> "Planet", "desc" -> "a planet", "input" -> "*C.mars-_*Planet-"}, { "name" -> "Mythology", "desc" -> "a mythological figure", "input" -> "*C.mars-_*Mythology-"}, { "name" -> "Company", "desc" -> "a company", "input" -> "*C.mars-_*Company-"}, { "name" -> "Word", "desc" -> "a word", "input" -> "*C.mars-_*Word-"}, { "name" -> "GivenName", "desc" -> "a given name", "input" -> "*C.mars-_*GivenName-"}, { "name" -> "TranslationData", "desc" -> " referring to translations", "input" -> "*C.mars-_*TranslationData-"}}}}, Typeset`assumptions$$ = {}, Typeset`open$$ = {1}, Typeset`querystate$$ = { "Online" -> True, "Allowed" -> True, "mparse.jsp" -> 0.311695`5.945274829170869, "Messages" -> {}}}, DynamicBox[ToBoxes[ AlphaIntegration`LinguisticAssistantBoxes["", 4, Automatic, Dynamic[Typeset`query$$], Dynamic[Typeset`boxes$$], Dynamic[Typeset`allassumptions$$], Dynamic[Typeset`assumptions$$], Dynamic[Typeset`open$$], Dynamic[Typeset`querystate$$]], StandardForm], ImageSizeCache->{48., {7., 16.}}, TrackedSymbols:>{ Typeset`query$$, Typeset`boxes$$, Typeset`allassumptions$$, Typeset`assumptions$$, Typeset`open$$, Typeset`querystate$$}], DynamicModuleValues:>{}, UndoTrackedVariables:>{Typeset`open$$}], BaseStyle->{"Deploy"}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\)["OrbitPeriod"]

HIDE DETAILS
DateDifference["Jan 2, 1999", Today] /\!\(\* NamespaceBox["LinguisticAssistant", DynamicModuleBox[{Typeset`query$$ = "mars", Typeset`boxes$$ = TemplateBox[{"\"Mars\"", RowBox[{"Entity", "[", RowBox[{"\"Planet\"", ",", "\"Mars\""}], "]"}], "\"Entity[\\\"Planet\\\", \\\"Mars\\\"]\"", "\"planet\""}, "Entity"], Typeset`allassumptions$$ = {{ "type" -> "Clash", "word" -> "mars", "template" -> "Assuming \"${word}\" is ${desc1}. Use as \ ${desc2} instead", "count" -> "6", "Values" -> {{ "name" -> "Planet", "desc" -> "a planet", "input" -> "*C.mars-_*Planet-"}, { "name" -> "Mythology", "desc" -> "a mythological figure", "input" -> "*C.mars-_*Mythology-"}, { "name" -> "Company", "desc" -> "a company", "input" -> "*C.mars-_*Company-"}, { "name" -> "Word", "desc" -> "a word", "input" -> "*C.mars-_*Word-"}, { "name" -> "GivenName", "desc" -> "a given name", "input" -> "*C.mars-_*GivenName-"}, { "name" -> "TranslationData", "desc" -> " referring to translations", "input" -> "*C.mars-_*TranslationData-"}}}}, Typeset`assumptions$$ = {}, Typeset`open$$ = {1}, Typeset`querystate$$ = { "Online" -> True, "Allowed" -> True, "mparse.jsp" -> 0.311695`5.945274829170869, "Messages" -> {}}}, DynamicBox[ToBoxes[ AlphaIntegration`LinguisticAssistantBoxes["", 4, Automatic, Dynamic[Typeset`query$$], Dynamic[Typeset`boxes$$], Dynamic[Typeset`allassumptions$$], Dynamic[Typeset`assumptions$$], Dynamic[Typeset`open$$], Dynamic[Typeset`querystate$$]], StandardForm], ImageSizeCache->{50., {7., 16.}}, TrackedSymbols:>{ Typeset`query$$, Typeset`boxes$$, Typeset`allassumptions$$, Typeset`assumptions$$, Typeset`open$$, Typeset`querystate$$}], DynamicModuleValues:>{}, UndoTrackedVariables:>{Typeset`open$$}], BaseStyle->{"Deploy"}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\)["OrbitPeriod"]

Display your age in the years of the planets. Try other birthdays:

SHOW/HIDE DETAILS

You can make this expression easy to apply to any planet by turning it into a pure function:

DateDifference["Jan 2, 1999", Today] /\!\(\* NamespaceBox["LinguisticAssistant", DynamicModuleBox[{Typeset`query$$ = "mars", Typeset`boxes$$ = TemplateBox[{"\"Mars\"", RowBox[{"Entity", "[", RowBox[{"\"Planet\"", ",", "\"Mars\""}], "]"}], "\"Entity[\\\"Planet\\\", \\\"Mars\\\"]\"", "\"planet\""}, "Entity"], Typeset`allassumptions$$ = {{ "type" -> "Clash", "word" -> "mars", "template" -> "Assuming \"${word}\" is ${desc1}. Use as \ ${desc2} instead", "count" -> "6", "Values" -> {{ "name" -> "Planet", "desc" -> "a planet", "input" -> "*C.mars-_*Planet-"}, { "name" -> "Mythology", "desc" -> "a mythological figure", "input" -> "*C.mars-_*Mythology-"}, { "name" -> "Company", "desc" -> "a company", "input" -> "*C.mars-_*Company-"}, { "name" -> "Word", "desc" -> "a word", "input" -> "*C.mars-_*Word-"}, { "name" -> "GivenName", "desc" -> "a given name", "input" -> "*C.mars-_*GivenName-"}, { "name" -> "TranslationData", "desc" -> " referring to translations", "input" -> "*C.mars-_*TranslationData-"}}}}, Typeset`assumptions$$ = {}, Typeset`open$$ = {1}, Typeset`querystate$$ = { "Online" -> True, "Allowed" -> True, "mparse.jsp" -> 0.311695`5.945274829170869, "Messages" -> {}}}, DynamicBox[ToBoxes[ AlphaIntegration`LinguisticAssistantBoxes["", 4, Automatic, Dynamic[Typeset`query$$], Dynamic[Typeset`boxes$$], Dynamic[Typeset`allassumptions$$], Dynamic[Typeset`assumptions$$], Dynamic[Typeset`open$$], Dynamic[Typeset`querystate$$]], StandardForm], ImageSizeCache->{48., {7., 16.}}, TrackedSymbols:>{ Typeset`query$$, Typeset`boxes$$, Typeset`allassumptions$$, Typeset`assumptions$$, Typeset`open$$, Typeset`querystate$$}], DynamicModuleValues:>{}, UndoTrackedVariables:>{Typeset`open$$}], BaseStyle->{"Deploy"}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\)["OrbitPeriod"]

To make a pure function, replace with # and follow the expression with &:

DateDifference["Jan 2, 1999", Today] /#["OrbitPeriod"] &

You can use that expression to find an age in the years of any planet:

DateDifference["Jan 2, 1999", Today] /#["OrbitPeriod"] &[\!\(\* NamespaceBox["LinguisticAssistant", DynamicModuleBox[{Typeset`query$$ = "venus", Typeset`boxes$$ = TemplateBox[{"\"Venus\"", RowBox[{"Entity", "[", RowBox[{"\"Planet\"", ",", "\"Venus\""}], "]"}], "\"Entity[\\\"Planet\\\", \\\"Venus\\\"]\"", "\"planet\""}, "Entity"], Typeset`allassumptions$$ = {{ "type" -> "Clash", "word" -> "venus", "template" -> "Assuming \"${word}\" is ${desc1}. Use as \ ${desc2} instead", "count" -> "6", "Values" -> {{ "name" -> "Planet", "desc" -> "a planet", "input" -> "*C.venus-_*Planet-"}, { "name" -> "Mythology", "desc" -> "a mythological figure", "input" -> "*C.venus-_*Mythology-"}, { "name" -> "GivenName", "desc" -> "a given name", "input" -> "*C.venus-_*GivenName-"}, { "name" -> "Species", "desc" -> "a species specification", "input" -> "*C.venus-_*Species-"}, { "name" -> "Mineral", "desc" -> "a mineral", "input" -> "*C.venus-_*Mineral-"}, { "name" -> "Movie", "desc" -> "a movie", "input" -> "*C.venus-_*Movie-"}}}}, Typeset`assumptions$$ = {}, Typeset`open$$ = {1}, Typeset`querystate$$ = { "Online" -> True, "Allowed" -> True, "mparse.jsp" -> 0.371625`6.021649915708965, "Messages" -> {}}}, DynamicBox[ToBoxes[ AlphaIntegration`LinguisticAssistantBoxes["", 4, Automatic, Dynamic[Typeset`query$$], Dynamic[Typeset`boxes$$], Dynamic[Typeset`allassumptions$$], Dynamic[Typeset`assumptions$$], Dynamic[Typeset`open$$], Dynamic[Typeset`querystate$$]], StandardForm], ImageSizeCache->{53., {7., 16.}}, TrackedSymbols:>{ Typeset`query$$, Typeset`boxes$$, Typeset`allassumptions$$, Typeset`assumptions$$, Typeset`open$$, Typeset`querystate$$}], DynamicModuleValues:>{}, UndoTrackedVariables:>{Typeset`open$$}], BaseStyle->{"Deploy"}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\)]

Find your age in the years of several planets by using Map (/@) to apply the function to a list of planets:

DateDifference["Jan 2, 1999", Today] /#["OrbitPeriod"] & /@ {\!\(\* NamespaceBox["LinguisticAssistant", DynamicModuleBox[{Typeset`query$$ = "venus", Typeset`boxes$$ = TemplateBox[{"\"Venus\"", RowBox[{"Entity", "[", RowBox[{"\"Planet\"", ",", "\"Venus\""}], "]"}], "\"Entity[\\\"Planet\\\", \\\"Venus\\\"]\"", "\"planet\""}, "Entity"], Typeset`allassumptions$$ = {{ "type" -> "Clash", "word" -> "venus", "template" -> "Assuming \"${word}\" is ${desc1}. Use as \ ${desc2} instead", "count" -> "6", "Values" -> {{ "name" -> "Planet", "desc" -> "a planet", "input" -> "*C.venus-_*Planet-"}, { "name" -> "Mythology", "desc" -> "a mythological figure", "input" -> "*C.venus-_*Mythology-"}, { "name" -> "GivenName", "desc" -> "a given name", "input" -> "*C.venus-_*GivenName-"}, { "name" -> "Species", "desc" -> "a species specification", "input" -> "*C.venus-_*Species-"}, { "name" -> "Mineral", "desc" -> "a mineral", "input" -> "*C.venus-_*Mineral-"}, { "name" -> "Movie", "desc" -> "a movie", "input" -> "*C.venus-_*Movie-"}}}}, Typeset`assumptions$$ = {}, Typeset`open$$ = {1}, Typeset`querystate$$ = { "Online" -> True, "Allowed" -> True, "mparse.jsp" -> 0.371625`6.021649915708965, "Messages" -> {}}}, DynamicBox[ToBoxes[ AlphaIntegration`LinguisticAssistantBoxes["", 4, Automatic, Dynamic[Typeset`query$$], Dynamic[Typeset`boxes$$], Dynamic[Typeset`allassumptions$$], Dynamic[Typeset`assumptions$$], Dynamic[Typeset`open$$], Dynamic[Typeset`querystate$$]], StandardForm], ImageSizeCache->{53., {7., 16.}}, TrackedSymbols:>{ Typeset`query$$, Typeset`boxes$$, Typeset`allassumptions$$, Typeset`assumptions$$, Typeset`open$$, Typeset`querystate$$}], DynamicModuleValues:>{}, UndoTrackedVariables:>{Typeset`open$$}], BaseStyle->{"Deploy"}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\), \!\(\* NamespaceBox["LinguisticAssistant", DynamicModuleBox[{Typeset`query$$ = "mars", Typeset`boxes$$ = TemplateBox[{"\"Mars\"", RowBox[{"Entity", "[", RowBox[{"\"Planet\"", ",", "\"Mars\""}], "]"}], "\"Entity[\\\"Planet\\\", \\\"Mars\\\"]\"", "\"planet\""}, "Entity"], Typeset`allassumptions$$ = {{ "type" -> "Clash", "word" -> "mars", "template" -> "Assuming \"${word}\" is ${desc1}. Use as \ ${desc2} instead", "count" -> "6", "Values" -> {{ "name" -> "Planet", "desc" -> "a planet", "input" -> "*C.mars-_*Planet-"}, { "name" -> "Mythology", "desc" -> "a mythological figure", "input" -> "*C.mars-_*Mythology-"}, { "name" -> "Company", "desc" -> "a company", "input" -> "*C.mars-_*Company-"}, { "name" -> "Word", "desc" -> "a word", "input" -> "*C.mars-_*Word-"}, { "name" -> "GivenName", "desc" -> "a given name", "input" -> "*C.mars-_*GivenName-"}, { "name" -> "TranslationData", "desc" -> " referring to translations", "input" -> "*C.mars-_*TranslationData-"}}}}, Typeset`assumptions$$ = {}, Typeset`open$$ = {1}, Typeset`querystate$$ = { "Online" -> True, "Allowed" -> True, "mparse.jsp" -> 0.311695`5.945274829170869, "Messages" -> {}}}, DynamicBox[ToBoxes[ AlphaIntegration`LinguisticAssistantBoxes["", 4, Automatic, Dynamic[Typeset`query$$], Dynamic[Typeset`boxes$$], Dynamic[Typeset`allassumptions$$], Dynamic[Typeset`assumptions$$], Dynamic[Typeset`open$$], Dynamic[Typeset`querystate$$]], StandardForm], ImageSizeCache->{48., {7., 16.}}, TrackedSymbols:>{ Typeset`query$$, Typeset`boxes$$, Typeset`allassumptions$$, Typeset`assumptions$$, Typeset`open$$, Typeset`querystate$$}], DynamicModuleValues:>{}, UndoTrackedVariables:>{Typeset`open$$}], BaseStyle->{"Deploy"}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\), \!\(\* NamespaceBox["LinguisticAssistant", DynamicModuleBox[{Typeset`query$$ = "earth", Typeset`boxes$$ = TemplateBox[{"\"Earth\"", RowBox[{"Entity", "[", RowBox[{"\"Planet\"", ",", "\"Earth\""}], "]"}], "\"Entity[\\\"Planet\\\", \\\"Earth\\\"]\"", "\"planet\""}, "Entity"], Typeset`allassumptions$$ = {{ "type" -> "Clash", "word" -> "earth", "template" -> "Assuming \"${word}\" is ${desc1}. Use as \ ${desc2} instead", "count" -> "6", "Values" -> {{ "name" -> "Planet", "desc" -> "a planet", "input" -> "*C.earth-_*Planet-"}, { "name" -> "CommonMaterial", "desc" -> "a general material", "input" -> "*C.earth-_*CommonMaterial-"}, { "name" -> "Word", "desc" -> "a word", "input" -> "*C.earth-_*Word-"}, { "name" -> "Book", "desc" -> "a book", "input" -> "*C.earth-_*Book-"}, { "name" -> "Movie", "desc" -> "a movie", "input" -> "*C.earth-_*Movie-"}, { "name" -> "Country", "desc" -> "all countries", "input" -> "*C.earth-_*Country-"}}}}, Typeset`assumptions$$ = {}, Typeset`open$$ = {1}, Typeset`querystate$$ = { "Online" -> True, "Allowed" -> True, "mparse.jsp" -> 0.397387`6.050758649121776, "Messages" -> {}}}, DynamicBox[ToBoxes[ AlphaIntegration`LinguisticAssistantBoxes["", 4, Automatic, Dynamic[Typeset`query$$], Dynamic[Typeset`boxes$$], Dynamic[Typeset`allassumptions$$], Dynamic[Typeset`assumptions$$], Dynamic[Typeset`open$$], Dynamic[Typeset`querystate$$]], StandardForm], ImageSizeCache->{48., {7., 16.}}, TrackedSymbols:>{ Typeset`query$$, Typeset`boxes$$, Typeset`allassumptions$$, Typeset`assumptions$$, Typeset`open$$, Typeset`querystate$$}], DynamicModuleValues:>{}, UndoTrackedVariables:>{Typeset`open$$}], BaseStyle->{"Deploy"}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\)}

This gives you a list of all of the planets:

PlanetData[]

Find your age in the years of all of the planets:

DateDifference["Jan 2, 1999", Today] /#["OrbitPeriod"] & /@ PlanetData[]

Add the planet to the age:

{#, DateDifference["Jan 2, 1999", Today] /#["OrbitPeriod"]} & /@ PlanetData[]

Format the data as a grid:

Grid[{#, DateDifference["Jan 2, 1999", Today] /#["OrbitPeriod"]} & /@ PlanetData[]]

Label the columns:

TableForm[{#, DateDifference["Jan 2, 1999", Today]/#["OrbitPeriod"]} & /@ PlanetData[], TableHeadings -> {None, {"Planet", "Years Old"}}]

HIDE DETAILS
TableForm[{#, DateDifference["Jan 2, 1999", Today]/#["OrbitPeriod"]} & /@ PlanetData[], TableHeadings -> {None, {"Planet", "Years Old"}}]

Share ItMake a website that tells you your age in years of all the planets:

SHOW/HIDE DETAILS

Deploy the planetary age calculation to make a website where you can enter a birthdate and find out how old you are in years of all the planets. With[{date=#birthdate}, ...] is necessary so that it is clear that the #birthdate parameter belongs to the outer pure function (the one that CloudDeploy is acting on) and not the inner one (the one mapped over PlanetData[]):

CloudDeploy[FormFunction[{"birthdate" -> "Date"}, With[{date = #birthdate}, TableForm[{#, DateDifference[date, Today]/#["OrbitPeriod"]} & /@ PlanetData[], TableHeadings -> {None, {"Planet", "Years Old"}}]] &, "PNG" ], Permissions -> "Public"]

Click on the link in the output to visit the site.

Tell the world about your creation by sharing the link via email, tweet, or other message.

HIDE DETAILS
CloudDeploy[FormFunction[{"birthdate" -> "Date"}, With[{date = #birthdate}, TableForm[{#, DateDifference[date, Today]/#["OrbitPeriod"]} & /@ PlanetData[], TableHeadings -> {None, {"Planet", "Years Old"}}]] &, "PNG" ], Permissions -> "Public"]