FreeVBCode code snippet: Astronomical and Date Calculation Program