Moon Distance and Phase, Star Transit Time and More

Category:
Office/VBA
Type:
Modules
Difficulty:
Advanced

Author: Roy Kaighin

Version Compatibility: Visual Basic 6, Visual Basic 5, Visual Basic.NET

More information:
The following function, MoonDISTANCE(), checks out OK with NASA’s computations. This is Geocentric Distance. The dates allow for the break between October 4th and 15th 1582, the start of the Gregorian calendar. The dates also take into consideration that for Astronomical purposes, there is no year 0. The date before January 1st 1 AD is December 31st 1BC.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:

Code: