Mình chỉ Enter mấy phát code chạy liền.
Bạn vào VBA sửa hàm LeapMonth như sau:
Mã:
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
Thấy Excel không báo lỗi nữa, còn đúng sai thì mình chưa kiểm tra. Hi hi