int = EarliestVisibleMoonRiseSet(nDate nSunSourceIndex)
This macro function calculates the earliest visible event of the day, the choice being between moonrise and moonset, based on the location of the sun data source of index nSunSourceIndex of the current script.
•Even though we are looking for moonrise and moonset, this function uses the Sun data source of the current script, not its Moon data source.
•The moonrise or moonset is deemed to be visible if it occurs between sunset and sunrise (ie. at night).
•A positive result means that the earliest event is a moonrise, a negative value means that it is a moonset.
•The absolute value of the result is the time of the day expressed in one millionth of a day (less than 1/10th of a second).
Below is code that shows how to use of this function.
nTimeTimesMillion sEventName sTime
// use the 1st Sun source on the date of the token
nTimeTimesMillion = EarliestVisibleMoonRiseSet(n_TokenDate, 1)
// get the type of event from the sign of the result
if nTimeTimesMillion > 0
sEventName = 'Moonrise at '
sEventName = 'Moonset at '
// remove the sign from the result
nTimeTimesMillion = Abs(nTimeTimesMillion)
// convert time to a string, rounding to the nearest minute
sTime = FormatTime('HH:nn', nTimeTimesMillion, true)
sResult = sEventName + sTime
Topic 180120, last updated on 18-Apr-2020