سلام
استخدمت الطريقة المشروحة اعلاه والنتيجة كانت جيدة لكن فى بعض التواريخ كانت تخلف يوم
مثل يوم 31 يناير 1999 التاريخ القبطى لة 23 طوبة 1715 لكن بالحسابات تعطى 22 طوبة فأين الخطأ
وهذة هى الطريقة التى استخدمها وهى بلغة الفيجوال بيزك
Day_M = Day(Date)
Month_M = Month(Date)
Year_M = Year(Date)
Year_G = Date
Dim a, B, C, D, E, F, G, H, I, J, L, M, N As Long
If Month_M <= 2 Then
a = Month_M + 12
B = Year_M - 1
Else
a = Month_M
B = Year_M
End If
C = Int(B / 100)
D = Int(B / 400)
E = 2 - C + D
If Year_G < "15/10/1582" Then E = 0
F = Int((B + 4716) * 365.25)
G = Int((a + 1) * 30.6001)
H = Day_M + G + F + E - 1826553
I = H / 365.25
J = I - Int(I)
K = I - J
L = J * 12.175
M = L - Int(L)
N = L - M
Year_C = Int(K) + 1
Month_C = Int(N) + 1
Day_C = Round(M * 30, 0)