Có Lỗi chuyển đổi Lịch Dương sang Lịch Âm ! Cần giải đáp

[thanglt90]

Có Lỗi chuyển đổi Lịch Dương sang Lịch Âm

vấn đề chuyển đổi dương lịch sang âm lịch đang có lỗi

Mời tải file đính kèm về xem

 

[nvson]

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:

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

 

[sealand]

Mình nhìn nhèm nhèm chưa nhận ra lỗi trong công thức , nhưng bạn thử chép công thức ô C2 rồi filldown sẽ đúng. ==>Công thức không đồng nhất