<<VectorAnalysis`

CoordinatesToCartesian[{1,(π/2),(π/4)},Spherical]

CoordinatesFromCartesian[{x,y,z},Spherical]