Function LeapMonth(y) ''''''''''''
If y >= 1900 Then
LeapMonth = LunarInfo(y - 1900) And &HF
Else
LeapMonth = 0
End If
'Tháng nhuân = LunarInfo(nam Ðang chuyên) And &HF = ( tu 0 - 12) ngoài ra thì = 0
End Function
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2