str = SolarEclipseTypeName(nEclipseType)
This macro function returns a text description of the solar eclipse of type nEclipseType.
This function is usually called after a call to the function SolarEclipseOnDate, as shown in the code example below.
nComboResult = SolarEclipseOnDate(n_TokenDate, 1)
if nComboResult > -1
nEclipseType = nComboResult div 1000000
sEclipseTypeName = SolarEclipseTypeName(EclipseType)
nEclipseTime = nComboResult mod 1000000
sEclipseTime = FormatTime('hh:nn', EclipseTime, true)
sResult = EclipseTypeName + ' Solar eclipse at ' + EclipseTime
else
sResult = 'No Solar eclipse today'
endif
See also: SolarEclipseOnDate, SolarEclipsePositionMax, SolarEclipsePositionName.
Topic 180050, last updated on 18-Apr-2020