(03-12-21, 11:58 AM)Minh Tiên Đã viết: Do thừa dòng: thangCanChi = CanChiThangAL(2, CLng(Right(Me.txtNgayAL, 4)))
Nên chạy chưa đúng.

 Tôi làm để test mà sau đó lại quên xoá dòng đó đi. Làm thêm công thêm chuyện.

Mình cũng kiểm tra lại rồi. Lỗi này đã được xử lý nhưng vẫn còn sai. Có vẻ công thức chưa OK. Can Chi của tháng khác hẳn ngày và năm. Không phải là mod 10 và mode 12.
Mình thử lên bảng thì Can tháng 1 sẽ là mod 5 của năm âm lich ([Năm âm lịch] Mod 5). Giá trị các mod 0=>"Mậu", 1=>"Canh", 2=>"Nhâm", 3=>"Giáp", 4=>"Bính", Nếu tính Array (Giáp, Ất, Bính, Đinh, Mậu, Kỷ, Canh, Tân, Nhâm, Quý ), Thì Can tháng 1 AL sẽ ở các vị trí 4-6-8-0-3, Các tháng còn lại sẽ +1 theo thứ tự của Can, tháng 11 và tháng 12 sẽ lập lại giống như tháng 1-tháng 2, vì đến tháng 10 là hết chu kỳ. Mình chưa lên bảng chi nhưng có thể dễ dàng hơn vì 12 chi gống như 12 tháng.