[elgokr]

السلام عليكم ورحمة الله وبركاته

كل عام وانتم بخير

اصبح شهر رمضان ايام قليلة

فاحببت ان انشاء كود يفيد الجميع

وهو كود العد التنازلي 

وبما ان رمضان على ايام وبعض الساعات

ففكرة الكود ستكون على شهر رمضان

وسيتم بعد شرح كيفية استخدامه بشكل عام عن اى شئ اخر

فى البداية قم بانشاء هذا الـ Function

كود :

   Public Shared Function CountDown(fromDate As Date, Optional toDate As Date = Nothing) As String()
       Dim years As Integer = 0, months As Integer = 0, days As Integer = 0
       Dim hour As Integer = 0, minute As Integer = 0, second As Integer = 0
       If toDate = Nothing Then toDate = Date.Now
       Do Until toDate.AddYears(-1) < fromDate
           years += 1
           toDate = toDate.AddYears(-1)
       Loop
       Do Until toDate.AddMonths(-1) < fromDate
           months += 1
           toDate = toDate.AddMonths(-1)
       Loop
       Do Until toDate.AddDays(-1) < fromDate
           days += 1
           toDate = toDate.AddDays(-1)
       Loop
       Do Until toDate.AddHours(-1) < fromDate
           hour += 1
           toDate = toDate.AddHours(-1)
       Loop
       Do Until toDate.AddMinutes(-1) < fromDate
           minute += 1
           toDate = toDate.AddMinutes(-1)
       Loop
       Do Until toDate.AddSeconds(-1) < fromDate
           second += 1
           toDate = toDate.AddSeconds(-1)
       Loop
       Return New String() {years, months, days, hour, minute, second}
   End Function

الان قم بانشاء Timer

وقم بضبط الاعدادا للتفعيل العمل وعن مدة 1000

الان قم بادراج الكود التالى داخل حدث الـ Timer

كود :

       Dim arSA As System.Globalization.CultureInfo = New System.Globalization.CultureInfo("ar-SA")
       arSA.DateTimeFormat.Calendar = New System.Globalization.HijriCalendar()
       Dim DateRamadan = Date.ParseExact("01/09/1440", "dd/MM/yyyy", arSA)
       Dim GetCountDown As String() = CountDown(Date.Now, DateRamadan)
       With TextBox1
           .Text = "متبقى "
           .Text += GetCountDown(2) & " يوم و "
           .Text += GetCountDown(3) & " ساعة و "
           .Text += GetCountDown(4) & " دقيقة و "
           .Text += GetCountDown(5) & " ثانية."
       End With

لاحظ وجود تاريخ 

PHP كود :

01/09/1440 


فيمكنك ان تعدل عليه الى اى تاريخ كما تريده

طيب الان هذا الكود فى حدث الـ Timer

يخص التاريخ الهجري والتعامل معه

ماذا اذا كان المطلوب هو تاريخ ميلادى

وكذلك ظهور العام والشهر المتبقي

فكل ما عليك فعله هو استخدام الكود بهذا الشكل

كود :

       Dim GetCountDown As String() = CountDown(Date.Now, "20/12/2020")
       With TextBox1
           .Text = "متبقى "
           .Text += GetCountDown(0) & " عام و "
           .Text += GetCountDown(1) & " شهر و "
           .Text += GetCountDown(2) & " يوم و "
           .Text += GetCountDown(3) & " ساعة و "
           .Text += GetCountDown(4) & " دقيقة و "
           .Text += GetCountDown(5) & " ثانية."
       End With

لاحظ الفرق بين الكودين

حيث الكود الاول لحدث الـ Timer 

وهو للتعامل مع التاريخ الهجري

وحيث الكود الثاني لحدث الـ Timer

فهو للتعامل مع التاريخ الميلادي

الان ماذا يمكن اى شخص الاستفادة من هذا الكود

خلاف فكرة الايام والساعات المتبقية عن الشهر المبارك شهر رمضان

احيانا منا من يقوم بعمل مدة تجريبية

أو تفعيل البرنامج لمدة محددة كالاشتراكات

بهذا الكود يمكنك الاستفادة منه

فى عرض المدة المتبقية اذا كان عن الفترة التجريبية

وكذلك عن المدة المتبقية لاعادة تجديد الاشتراك

وكذلك الاعمال التى تخص المواعيد الشخصة / الاجتماعات / الرحلات والعروض ....

وغيرها كثيراً من الاستخدام

بات الامر الان معك فى استخدام الكود

واتمنى ان ينال الكود للجميع

تحياتى لكم جميعاً

ورمضان مبارك علينا وعلى الجميع بكل خير

وتمنياتى لكم التوفيق الدائم