Tìm ngày lễ Phục Sinh

[truongphu]

Thủ thuật: Tìm ngày lễ Phục Sinh
Tác giả: truongphu
Mô tả: Lễ Phục sinh hằng năm không là ngày cố định trong dương lịch; đó là ngày chủ nhật đầu tiên sau ngày trăng tròn và sau ngày xuân phân
Như vậy tính khá khó khăn: vừa DL = Chủ nhật, vừa AL = trăng tròn và xuân phân
Code sau đây thấy bên giaiphapexcel, tôi viết lại để chạy êm trên vb6
Đương nhiên phải chạy trên máy có cài excel bất kể phiên bản nào!

---

Code: [Select all] [Expand/Collapse]

1. Private Sub Combo1_Click()
2.     Me.Caption = TínhNgàyPhucSinh(Combo1.Text) ' truongphu viê't lai
3. End Sub
4.  
5. Private Sub Form_Load()
6.     For i = 1975 To 2025
7.         Combo1.AddItem i
8.     Next
9.         Combo1.ListIndex = 35
10. End Sub
11.  
12. Function TínhNgàyPhucSinh(nYear As Integer) As String
13.     Set Ex = CreateObject("Excel.Application") 'không lê thuôc version excel
14.    Dim E1 As Date E1 = "5/" & Day(Minute(nYear / 38) / 2 + 56) & "/" & nYear
15.     Dim E2 As Double E2 = Ex.WorksheetFunction.Floor(E1, 7)
16.         TínhNgàyPhucSinh = Format(E2 - 34, "ddd, d/M/yyyy")
17.         Ex.Quit Set Ex = Nothing
18. End Function

GeSHi © Codebox Plus Extension

Tính Ngày PhucSinh.rar

(1.41 KiB) Downloaded 478 times

------
Project tren là sub, sau đây là function như code đã sửa trên: