如何使用Delphi计算当前日期的日出和日落时间

Question

我需要根据特定的经度和纬度并使用Delphi（我正在使用XE2）确定当日的日出和日落时间（当地时间）。我找到了this article并使用了SysTools library，但结果与英国公布的表格不一致。

有没有人见过这样的pascal算法？

Answer 1

一些随机的网站：

• SunTime Component
• Torry's Delphi Pages

Answer 2

在这里你可以找到一些C实现，C++，Pascal和其他人：

http://www.sci.fi/~benefon/stuff.html

对于帕斯卡一个你可以去这里：

http://www.sci.fi/~benefon/SUNDAY.PAS

而且，你考虑到夏令时？

你会发现有益的另一个环节是：

http://www.delphiarea.com/products/delphi-components/suntime/

这是日出和日落时间计算组件。

希望这可以帮助你。

Answer 3

你需要什么样的时代？ “上升”和“日落”有几个定义（即公民，航海，天文）。与已发布的表格进行比较时，您还需要了解这些表格的计算方式（地心位置与否，标准时间或当地真实时间等）以及使用算法给出的结果。也有一些近似算法只使用几个术语，更精确的使用更多。此外，请注意IEEE浮点问题，在某些情况下，它们会降低精度。

一个最好的来源，该算法是琼·米斯Astronomical Algorithms (1998), 2nd edition