logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
Hatem Eissa hassona229-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة اكسيل مشاريع جاهزه



أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





21-10-2019 05:46 مساءً
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1765
الدولة : مصر
الجنس :
الدعوات : 2
قوة السمعة : 9685
الاعجاب : 25

السلام عليكم اساتذتى الكرام اود ان اقدم لكم اليوم دالة أعجبتنى -وتقوم هذه الدالة بتحويل التقويم الميلادى الى التقويم القبطى


ومن هنا لابد ان نعرف التقويم القبطى ولابد ان نقول نبذة عنه


تبدأ السنة الجديدة عادة في 29 أغسطس، عدا السنة التي تسبق السنة الكبيسة حيث تبدأ في 30 أغسطس.


للحصول على رقم السنة القبطية، يُطرح من رقم السنة اليوليانية إما 283 (قبل السنة اليوليانية الجديدة) أو 284 (بعدها).


ويتكون التقويم القبطى من 13 شهر كالتالى :


image.png.814de4b6cbcf84808eb3fc2b6f4f917e


وهذا هو كود الدالة المستخدمة فى تحويل التاريخ من الميلادى الى القبطى :

CODE
Option Explicit
Function CopticDate(WkDate As Date) As String
Const YDiff = 284
Dim DateList As Object
Set DateList = CreateObject("System.Collections.Sortedlist")
Dim T, TT
Dim I As Integer, II As Integer
Dim WkY As Integer
Dim WkM As String
Dim WkD As Integer

With Sheets("Data")
For I = 1 To 13
T = Split(.Cells(I + 1, 3), "/")
DateList.Add DateSerial(Year(WkDate), T(1), T(0)) * 1, .Cells(I + 1, 4)
Next I
End With
WkY = Year(WkDate) - YDiff
With DateList
TT = WkDate * 1
If (TT >= .GetKey(.Count - 1)) Then
WkM = .GetByIndex(0)
WkD = TT - .GetKey(.Count - 1) + 1
Else
If (TT <= .GetKey(0)) Then
WkM = .GetByIndex(.Count - 1)
II = TT - DateSerial(Year(WkDate), 1, 1) ' FIRST day of the year = 101
WkD = DateSerial(Year(WkDate), 12, 31) - .GetKey(.Count - 1) + II ' LAST day of the year = 1231

Else
For I = 0 To 12
If ((TT > .GetKey(I)) And (TT <= .GetKey(I + 1))) Then
WkM = .GetByIndex(I + 1)
WkD = TT - .GetKey(I)
Exit For
End If
Next I
End If
End If
End With
CopticDate = WkM & "/ " & WkD & "/ " & WkY
End Function




وتستخدم بهذه المعادلة
CODE
=CopticDate()


convert the Christmas calendar to the Coptic calendar.xlsm

 
 
  convert the Christmas calendar to the Coptic calendar.xlsm   تحميل xlsm مرات التحميل :(20)
الحجم :(25.1) KB


أثارت هذه المشاركة إعجاب: مهند محسن، أحمد يوسف، هانى على، طرواده،


توقيع :ali mohamed ali


{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
الاخرين لوجه الله وان تحتسب له اجر عند الله

look/images/icons/i1.gif تحويل التقويم الميلادى الى التقويم القبطى-convert the Christmas calendar to the Coptic calendar
  21-10-2019 07:28 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2018
رقم العضوية : 4794
المشاركات : 477
الجنس :
تاريخ الميلاد : 1-4-1980
قوة السمعة : 882
الاعجاب : 8
بارك الله فيك استاذ علي ووسع الله فى رزقك -موضوه مهم جدا بالنسبة لى مشكور جدا وجعله الله فى ميزان حسناتك

أثارت هذه المشاركة إعجاب: أحمد يوسف، مهند محسن،



look/images/icons/i1.gif تحويل التقويم الميلادى الى التقويم القبطى-convert the Christmas calendar to the Coptic calendar
  21-10-2019 08:24 مساءً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10529
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36759
الاعجاب : 186
بارك الله فيك أخي الحبيب علي وجزيت خيراً على الموضوع الرائع
واصل بلا فواصل




look/images/icons/i1.gif تحويل التقويم الميلادى الى التقويم القبطى-convert the Christmas calendar to the Coptic calendar
  22-10-2019 01:01 صباحاً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1765
الدولة : مصر
الجنس :
الدعوات : 2
قوة السمعة : 9685
الاعجاب : 25
وبارك الله فيك استاذى الكريم وجزاك الله كل خير ومشكور على مرور حضرتك العطر الذى اسعدنى

أثارت هذه المشاركة إعجاب: هانى على، أحمد يوسف، مهند محسن،


توقيع :ali mohamed ali


{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
الاخرين لوجه الله وان تحتسب له اجر عند الله

اضافة رد جديد اضافة موضوع جديد




الكلمات الدلالية
تحويل ، التقويم ، الميلادى ، التقويم ، القبطى-convert ، Christmas ، calendar ، Coptic ، calendar ،









اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 12:08 AM