Hàm tự tạo chuyển ngày dương lịch sang âm lịch

[Nguoiay]

Chào các thành viên!
Em đang loay hoay viết 1 hàm chuyển ngày dương sang âm. Nhưng không hiểu lỗi chỗ nào mà nó chưa có kết quả đúng. Em đưa lên đây nhờ mọi người sửa giúp em ạ:

Public Function LichAm(ByVal Rng As Range) As String
    LichAm = Format(Rng, "[$-0011042A]dd/mm/yyyy")
End Function

Cám ơn mọi người!

 

[cantl]

Chào các thành viên!
Em đang loay hoay viết 1 hàm chuyển ngày dương sang âm. Nhưng không hiểu lỗi chỗ nào mà nó chưa có kết quả đúng. Em đưa lên đây nhờ mọi người sửa giúp em ạ:

Public Function LichAm(ByVal Rng As Range) As String
    LichAm = Format(Rng, "[$-0011042A]dd/mm/yyyy")
End Function

Cám ơn mọi người!

Đang xem bằng điện thoại tiện thể tìm luôn cho bạn đây.
Hàm nó dài cả cây số chứ có ngắn gọn như của bạn đâu nhỉ?
Link

 

[SA_DQ]

@Chủ bài đăng: Bạn đến đây tham khảo thêm xem có ích gì cho bạn không:

Âm lịch VN

 

[Nguoiay]

Em cám ơn mọi người ạ. Em cũng tìm được các vi dụ code chuyển ngày dương sang âm. Nhưng điều em đang muốn tìm hiểu nếu mình viết code cho hàm có sẵn ở excel ạ? Không biết có được không ạ?

 

[cantl]

@Chủ bài đăng: Bạn đến đây tham khảo thêm xem có ích gì cho bạn không:

Âm lịch VN

Bác em mình nhiệt tình gê.
Đây nữa.

 

[cantl]

LichAm = Format(Rng, "[$-0011042A]dd/mm/yyyy")

Thằng bạn ngồi cạnh nó bảo thử cái này. Nhìn cũng có vẻ giống giống. Hay nhỉ.
LichAm = WorksheetFunction.Text(Rng, "[$-130000]dd-mm-yyyy")

 

[huuthang_bd]

Thằng bạn ngồi cạnh nó bảo thử cái này. Nhìn cũng có vẻ giống giống. Hay nhỉ.
LichAm = WorksheetFunction.Text(Rng, "[$-130000]dd-mm-yyyy")

Không xài được đâu, năm nhuận là nhảy loạn hết.

 

[cantl]

Không xài được đâu, năm nhuận là nhảy loạn hết.

Vâng, em thử thấy nó ra đúng hôm nay.
Thảo nào bài khác dài thế mà bài này lại ngắn gọn phi thường. Làm suýt em save xlam dùng dần.

 

[Trần Văn Bình]

Minh không biết mình tải file này ở đâu, trang nào nhưng mình thấy thay Code free bạn có thể ứng dung được các việc khác

 

[87kilua]

=TEXT(A1,"[$-0011042A]mm/ dd/ yyyy")

Theo đó ta có, “00” là phụ thuộc thiết lập mặc định trong System, “11” là lịch âm, “042A” là mã quốc gia Việt Nam.

Bài đã được tự động gộp: 24/1/23

Minh họa . ok

=TEXT(TODAY(),"[$-0011042A]mm/dd/yyyy")

 

[LmoovoenX]

=TEXT(A1,"[$-0011042A]mm/ dd/ yyyy")

Theo đó ta có, “00” là phụ thuộc thiết lập mặc định trong System, “11” là lịch âm, “042A” là mã quốc gia Việt Nam.

Bài đã được tự động gộp: 24/1/23

Minh họa . ok

=TEXT(TODAY(),"[$-0011042A]mm/dd/yyyy")

View attachment 285879

Mình thử cái này thì thấy năm nhuận bên lịch âm không điều chỉnh tháng mà lại có thêm tháng 13

 

[cantl]

Tình hình em có đối chiếu các code, code này có thể nhầm 1 chỗ nào đó nên có sai chút về hiển thị giống như của Bác Đức (tháng 11 bị hiểu là tháng 1).
Có thể nhiều tháng nữa cũng bị nên mọi người có tham khảo thì lưu ý chút nhé.
Kết quả từ code của bác Nghĩa và web informatik.uni-leipzig.de thì đang có kết quả ngày phù hợp.

Minh không biết mình tải file này ở đâu, trang nào nhưng mình thấy thay Code free bạn có thể ứng dung được các việc khác

 

[gialang8thuc]

Không xài được đâu, năm nhuận là nhảy loạn hết.

Đúng vậy, năm Âm lịch có tháng nhuận thì hàm này "chưa giải quyết" triệt để. Ví dụ : Năm Quí Mão 2023, có tháng Hai nhuận, nhưng hàm tính nó là tháng Ba... và đến tháng Chạp thì hàm tính là tháng Mười Ba. Nguyên tắc của năm ÂL là tháng Giêng và tháng Chạp không có nhuận.

Bài đã được tự động gộp: 21/4/23

@Chủ bài đăng: Bạn đến đây tham khảo thêm xem có ích gì cho bạn không:

Âm lịch VN

Các code (chia sẻ miễn phí) về ngày tháng năm ÂL, ngày sóc, tiết khí.... của bác Hồ Ngọc Đức chuẩn luôn. Rất trân trọng cảm ơn công trình nghiên cứu bác Hồ Ngọc Đức.

 

[bknavn]

@Chủ bài đăng: Bạn đến đây tham khảo thêm xem có ích gì cho bạn không:

Âm lịch VN

Vẫn có sự sai sót, năm 2148 nhuận tháng giêng nghĩa là có 2 ngày tết , tháng giêng và tháng chạp không bao giờ nhuận

 

[cantl]

Vẫn có sự sai sót, năm 2148 nhuận tháng giêng nghĩa là có 2 ngày tết , tháng giêng và tháng chạp không bao giờ nhuận

Cao thủ đây rồi.
Có thể chia sẽ cơ sở lý thuyết để tính năm nhuận, tháng nhuận bất kỳ không bạn?

 

[SA_DQ]

Cao thủ đây rồi.
Có thể chia sẽ cơ sở lý thuyết để tính năm nhuận, tháng nhuận bất kỳ không bạn?

Nếu đây là cao thủ thì chỉ là cao thủ lý thuyết suông thôi; Chưa thử mở cái lịch tháng của năm 2148 í ra làm sao