Cần code chuyển đổi lịch âm dương (VBA)

[TranThanhPhong]

Dear all,

Bác nào có sẵn code chuyển đổi ngày âm lịch sang ngày dương lịch và ngược lại cho mình xin với. Mình đang cần code này!

Cảm ơn các bạn,
TP.

 

[Minhluanpro]

có a chỉ giúp mình chuyển ngày dương sang âm không mọi người. m đang cần gắp cảm ơn mn nhiều.

Bài đã được tự động gộp: 7/6/18

To tedaynui: bạn tải VBlib về, trong phần mẹo vặt có phần lịch.

Bạn xem có đúng không nhé

Public Function CanChi(ByVal namDL As Integer) As String
Dim can(9) As String
Dim chi(11) As String
can(0) = "Canh"
can(1) = "T©n"
can(2) = "Nh©m"
can(3) = "Quý"
can(4) = "Gi¸p"
can(5) = "Êt"
can(6) = "BÝnh"
can(7) = "§inh"
can(8) = "MËu"
can(9) = "Kû"
chi(0) = "th©n"
chi(1) = "dËu"
chi(2) = "tuÊt"
chi(3) = "hîi"
chi(4) = "tý"
chi(5) = "söu"
chi(6) = "dÇn"
chi(7) = "m¶o"
chi(8) = "th×n"
chi(9) = "tþ"
chi(10) = "ngä"
chi(11) = "mïi"
If namDL <= 0 Then
CanChi = "B¹n liªn hÖ Anh TrÇn V¨n B×nh - C.ty cæ phÇn TVXDGT Qu¶ng B×nh - Tel: 0913018002, Email: tvgtqb@dng.vnn.vn"
Else
CanChi = can(namDL Mod 10) & " " & chi(namDL Mod 12)
End If
End Function

Function Cans(ByVal namDL As Integer) As String
Dim can(9) As String
can(0) = "Canh"
can(1) = "T©n"
can(2) = "Nh©m"
can(3) = "Quý"
can(4) = "Gi¸p"
can(5) = "Êt"
can(6) = "BÝnh"
can(7) = "§inh"
can(8) = "MËu"
can(9) = "Kû"
If namDL <= 0 Then
Cans = "B¹n liªn hÖ Anh TrÇn V¨n B×nh - C.ty cæ phÇn TVXDGT Qu¶ng B×nh - Tel: 0913018002, Email: tvgtqb@dng.vnn.vn"
Else
Cans = can(namDL Mod 10)
End If
End Function

Function Chis(ByVal namDL As Integer) As String
Dim chi(11) As String
chi(0) = "th©n"
chi(1) = "dËu"
chi(2) = "tuÊt"
chi(3) = "hîi"
chi(4) = "tý"
chi(5) = "söu"
chi(6) = "dÇn"
chi(7) = "m¶o"
chi(8) = "th×n"
chi(9) = "tþ"
chi(10) = "ngä"
chi(11) = "mïi"
If namDL <= 0 Then
Chis = "B¹n liªn hÖ Anh TrÇn V¨n B×nh - C.ty cæ phÇn TVXDGT Qu¶ng B×nh - Tel: 0913018002, Email: tvgtqb@dng.vnn.vn"
Else
Chis = chi(namDL Mod 12)
End If
End Function

có thể chỉ mình viết code được ko ạ?