أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
أحمد يوسف ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil كود بسيط لمعرفة معلومات مهمه عن جهازك - حسام خطاب اكسيل اسئله واجابات


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



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





تحويل التقويم الميلادى الى التقويم القبطى-convert the Christmas calendar to the Coptic calendar

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



21-10-2019 05:46 مساء
ali mohamed ali
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1396
الدولة : مصر
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 57
قوة السمعة : 6335
الاعجاب : 962
 Online 

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

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

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

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

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

image.png.814de4b6cbcf84808eb3fc2b6f4f917e

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

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



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

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب


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


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


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



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





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

أثارت هذه المشاركة إعجاب: ali mohamed ali،




22-10-2019 01:01 صباحا
مشاهدة مشاركة منفردة [3]
ali mohamed ali
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1396
الدولة : مصر
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 57
قوة السمعة : 6335
الاعجاب : 962
 Online 
look/images/icons/i1.gif تحويل التقويم الميلادى الى التقويم القبطى-convert the Christmas calendar to the Coptic calendar
وبارك الله فيك استاذى الكريم وجزاك الله كل خير ومشكور على مرور حضرتك العطر الذى اسعدنى

أثارت هذه المشاركة إعجاب: YasserKhalil،


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




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


 







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



الساعة الآن 10:17 صباحا

أعلن هنا
أعلن هنا
أعلن هنا