SunDistance

delphimoon

Sun distance

Algorithms

Top  Previous  Next

 

Calculates the distance of the sun

 

function Sun_Distance(date:TDateTime): extended;

 

Description

Calculates the distance of the earth from the sun. The value is given in Astronomical Units (AU).

 

         1 AU = 149597869 km

 

Reference

This function is based upon chapter 25 (24) of "Astronomical Algorithms".