Hi bác này có hơn 1000 bài ở GPE rồi mà vẫn hỏi như vậy. Bác nên dùng chức năng tìm kiếm là thấy ngay. Ở đây http://www.giaiphapexcel.com/forum/archive/index.php/t-2634.html, hàm Public Function TransSolar(d, m, y) As Date'Ngay thang nam am lich sang duong lich
Dim iSd As Date
iSd = DateSerial(y, m, d) - 70
Do
iSd = iSd + 1
Loop Until TransLu(Day(iSd), Month(iSd), Year(iSd)) = d & "/" & m & "/" & y
TransSolar = iSd
End Function