str = LunarEclipseTypeName(nEclipseType)

This macro function returns the name of the type of eclipse nEclipseType.

This function is used after a call to LunarEclipseOnDate, as shown in the code below.

nComboResult = LunarEclipseOnDate(n_TokenDate, 1)
if nComboResult > -1
    nEclipseType = nComboResult div 1000000
    sEclipseTypeName = LunarEclipseTypeName(EclipseType)
    nEclipseTime = nComboResult mod 1000000
    sEclipseTime = FormatTime('hh:nn', EclipseTime, true)
    sResult = EclipseTypeName + ' lunar eclipse at ' + EclipseTime 
else
    sResult = 'No lunar eclipse today'
endif

See also: LunarEclipseOnDate, LunarOccultationOnDate.

Topic 180060, last updated on 18-Apr-2020