bool = chIsLeapMonth(nWesternDate)

This macro function returns true if the date nWesternDate corresponds to a leap month of the Chinese calendar (闰月).

The example below displays the Chinese lunar month number, preceded by 闰 when the date falls in a leap month, and followed by 月.

nLunarMonth = chMonthOf(n_TokenDate)
sChLunarMonth = IntToStrChinese(nLunarMonth)
 
if chIsLeapMonth(n_TokenDate)
   sChLunarMonth = '闰' + sChLunarMonth
endif
 
sResult = sChLunarMonth + '月'

See also: chinese dates functions.

Topic 160500, last updated on 18-Apr-2020