Calcule usando fusos horários 

Ache o deslocamento atual do fuso horário local em relação à Hora de Greenwich (GMT).

In[1]:=

X LocalTimeZone[Here, Now]

Out[1]=

Ache a atual diferença de horas entre Paris e o GMT.

In[2]:=

X LocalTimeZone[\!\(\* NamespaceBox["LinguisticAssistant", DynamicModuleBox[{WolframAlphaClient`Private`query$$ = "paris", WolframAlphaClient`Private`boxes$$ = TemplateBox[{"\"Paris\"", RowBox[{"Entity", "[", RowBox[{"\"City\"", ",", RowBox[{"{", RowBox[{"\"Paris\"", ",", "\"IleDeFrance\"", ",", "\"France\""}], "}"}]}], "]"}], "\"Entity[\\\"City\\\", {\\\"Paris\\\", \\\"IleDeFrance\\\", \ \\\"France\\\"}]\"", "\"city\""}, "Entity"], WolframAlphaClient`Private`allassumptions$$ = {{ "type" -> "Clash", "word" -> "paris", "template" -> "Assuming \"${word}\" is ${desc1}. Use as \ ${desc2} instead", "count" -> "5", "Values" -> {{ "name" -> "City", "desc" -> "a city", "input" -> "*C.paris-_*City-"}, { "name" -> "AdministrativeDivision", "desc" -> "an administrative division", "input" -> "*C.paris-_*AdministrativeDivision-"}, { "name" -> "Surname", "desc" -> "a surname", "input" -> "*C.paris-_*Surname-"}, { "name" -> "GivenName", "desc" -> "a given name", "input" -> "*C.paris-_*GivenName-"}, { "name" -> "Person", "desc" -> "a person", "input" -> "*C.paris-_*Person-"}}}, { "type" -> "SubCategory", "word" -> "paris", "template" -> "Assuming ${desc1}. Use ${desc2} instead", "count" -> "14", "Values" -> {{ "name" -> "{Paris, IleDeFrance, France}", "desc" -> "Paris (France)", "input" -> "*DPClash.CityE.paris-_**Paris.IleDeFrance.\ France--"}, { "name" -> "{Paris, Illinois, UnitedStates}", "desc" -> "Paris (Illinois, USA)", "input" -> "*DPClash.CityE.paris-_**Paris.Illinois.\ UnitedStates--"}, { "name" -> "{Paris, Texas, UnitedStates}", "desc" -> "Paris (Texas, USA)", "input" -> "*DPClash.CityE.paris-_**Paris.Texas.\ UnitedStates--"}, { "name" -> "{Paris, Kentucky, UnitedStates}", "desc" -> "Paris (Kentucky, USA)", "input" -> "*DPClash.CityE.paris-_**Paris.Kentucky.\ UnitedStates--"}, { "name" -> "{Paris, Tennessee, UnitedStates}", "desc" -> "Paris (Tennessee, USA)", "input" -> "*DPClash.CityE.paris-_**Paris.Tennessee.\ UnitedStates--"}, { "name" -> "{Paris, Ontario, Canada}", "desc" -> "Paris (Canada)", "input" -> "*DPClash.CityE.paris-_**Paris.Ontario.Canada--"}\ , {"name" -> "{Paris, Wisconsin, UnitedStates}", "desc" -> "Paris (Wisconsin, USA)", "input" -> "*DPClash.CityE.paris-_**Paris.Wisconsin.\ UnitedStates--"}, { "name" -> "{Paris, Arkansas, UnitedStates}", "desc" -> "Paris (Arkansas, USA)", "input" -> "*DPClash.CityE.paris-_**Paris.Arkansas.\ UnitedStates--"}, { "name" -> "{Paris, NewYork, UnitedStates}", "desc" -> "Paris (New York, USA)", "input" -> "*DPClash.CityE.paris-_**Paris.NewYork.\ UnitedStates--"}, { "name" -> "{Paris, Missouri, UnitedStates}", "desc" -> "Paris (Missouri, USA)", "input" -> "*DPClash.CityE.paris-_**Paris.Missouri.\ UnitedStates--"}, { "name" -> "{Paris, Maine, UnitedStates}", "desc" -> "Paris (Maine, USA)", "input" -> "*DPClash.CityE.paris-_**Paris.Maine.\ UnitedStates--"}, { "name" -> "{ParisGrant, Wisconsin, UnitedStates}", "desc" -> "Paris (Wisconsin, USA)", "input" -> "*DPClash.CityE.paris-_**ParisGrant.Wisconsin.\ UnitedStates--"}, { "name" -> "{ParisTownship, Michigan, UnitedStates}", "desc" -> "Paris Township (Michigan, USA)", "input" -> "*DPClash.CityE.paris-_**ParisTownship.Michigan.\ UnitedStates--"}, { "name" -> "{Paris, Idaho, UnitedStates}", "desc" -> "Paris (Idaho, USA)", "input" -> "*DPClash.CityE.paris-_**Paris.Idaho.\ UnitedStates--"}}}}, WolframAlphaClient`Private`assumptions$$ = {}, WolframAlphaClient`Private`open$$ = {1, 2}}, 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->{116., {10., 18.}}, 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]\), Now, "Offset"]

Out[2]=

Ache a hora local para o Japão em uma determinada data.

In[3]:=

X LocalTime[Entity["Country", "Japan"], \!\(\* NamespaceBox["LinguisticAssistant", DynamicModuleBox[{WolframAlphaClient`Private`query$$ = "Feb 5, 1999", WolframAlphaClient`Private`boxes$$ = RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"1999", ",", " ", "2", ",", " ", "5"}], "}"}], "]"}], WolframAlphaClient`Private`allassumptions$$ = {}, 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->{91., {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]\)]

Out[3]=

Obtenha todos os horários locais de uma região geográfica extensa.

In[4]:=

X LocalTime[Entity["Country", "Russia"], Now, List]

Out[4]=

Crie um mapa de fusos horários por condados.

In[5]:=

X counties = Join @@ (EntityList /@ { EntityClass["AdministrativeDivision", "Indiana"], EntityClass["AdministrativeDivision", "Kentucky"], EntityClass["AdministrativeDivision", "Tennessee"]}); timezones = LocalTimeZone /@ counties;

In[6]:=

X GeoRegionValuePlot[Thread[counties -> timezones], PlotLegends -> Placed[SwatchLegend[Automatic], Right]]

Out[6]=