CurrentTemperature function

[arnoudb (Arnoud Buzing)]

Of possible use:

Clear[CurrentTemperature];


CurrentTemperature[] := CurrentTemperature[$GeoLocation];


CurrentTemperature[{latitude_, longitude_}] := UnitConvert[
Quantity[WeatherData[{latitude, longitude}, "Temperature"],
"DegreesCelcius"], "DegreesFahrenheit"]

Usage:

CurrentTemperature[]

Result:

Quantity[32., "DegreesFahrenheit"]

[teib (Tei Barnhart)]

Nice.