by Ben Vonk (16 Submissions)
Category: Custom Controls/Forms/Menus
Difficulty: Intermediate
Date Added: Wed 3rd February 2021
Rating: 
(7 Votes)
Add system date format detection.
SunMoonInfo v3.0 Add MoonInfo and name changed in SunMoonInfo.
The routines for MoonPhase and MoonPosition are adopted from
Thomas A. Swift, Lunar Calculator 2.1 and can be found at:
https://www.vbcoders.com/vb/scripts/ShowCode.asp?txtCodeId=66957&lngWId=1
Some little corrections are make.
Second Version: Fixed some bugs, add Twilight times (Atronomical, Nautical end Civil)
Add sub: SunPosition(Byval IsDate As Date), returns in Event ResultSunPostion the values: IsDate, SunAzimuth, SunZenith and SunElevation. You can also show the times by UTC.
Decimal sign bug fixed.
SunInfo returns the Sunrise, Suntransit, Sunset, Equation Of Time and Sun Declination of the selected city and date. You can add, change or delete cities. They can be saved in the file CityInfo.dat
Download SunMoonInfo (2 MB)
VBcoders