22-04-19, 02:50 PM
السلام عليكم ورحمة الله وبركاته
كل عام وانتم بخير
اصبح شهر رمضان ايام قليلة
فاحببت ان انشاء كود يفيد الجميع
وهو كود العد التنازلي
وبما ان رمضان على ايام وبعض الساعات
ففكرة الكود ستكون على شهر رمضان
وسيتم بعد شرح كيفية استخدامه بشكل عام عن اى شئ اخر
فى البداية قم بانشاء هذا الـ 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
فهو للتعامل مع التاريخ الميلادي
الان ماذا يمكن اى شخص الاستفادة من هذا الكود
خلاف فكرة الايام والساعات المتبقية عن الشهر المبارك شهر رمضان
احيانا منا من يقوم بعمل مدة تجريبية
أو تفعيل البرنامج لمدة محددة كالاشتراكات
بهذا الكود يمكنك الاستفادة منه
فى عرض المدة المتبقية اذا كان عن الفترة التجريبية
وكذلك عن المدة المتبقية لاعادة تجديد الاشتراك
وكذلك الاعمال التى تخص المواعيد الشخصة / الاجتماعات / الرحلات والعروض ....
وغيرها كثيراً من الاستخدام
بات الامر الان معك فى استخدام الكود
واتمنى ان ينال الكود للجميع
تحياتى لكم جميعاً
ورمضان مبارك علينا وعلى الجميع بكل خير
وتمنياتى لكم التوفيق الدائم
