[RaggiTech]

إضافة فترات زمنية فاصلة للتواريخ :هناك العديد من الاساليب التي تضيف فترات زمنية فاصلة محددة الي قيمة تاريخ أو وقت ويقبل كل اسلوب عدد الفترات الزمنية الفاصلة من أيام وساعات وماالى ذلك .. التي ستتم اضافتها الى النسخة الحالية من فئة DateTime . ونذكر فيما يلي هذة الاساليب :
اسلوب AddYears
اسلوب سAddMonth
اسلوب AddDays
اسلوب AddHours
اسلوب AddMinuts
اسلوب AddSeconds
اسلوب AddMilliseconds
اسلوب AddTicks
مثال
Dim addate As Date
addate = Now()
addate = addate.AddYears(1)
add_txt.Text = " اضافة سنة لللتاريخ الحالي = " & addate
ملاحظة : اذا كان الوسيط عبارة عن قيمة سالبة يتم طرح الفترات الزمنية المقابلة من النسخة الحالية من الفئة . وتقوم العبارة التالية بطرح دقيقتين من متغير من نوع Date
Addate=addate.AddMinutes(-2)
أساليب تحويل التاريخ1.أسلوب ToFileTime
يقوم هذا الاسلوب بتحويل قيمة القئة Date الى التنسيق الخاص بالوقت المحلي لملفات النظام وهناك أيضاً اسلوب مكافئ وهو اسلوب FromFileTime الذي يقوم بتحويل القيمة الخاصة بوقت الملف الى قيمة من نوع Date .
Label32.Text = Date.Now.ToFileTime
2.اسلوب ToLocalTime
يقوم هذا الاسلوب بتحويل قيمة الوقت تبعاً لنظام التوقيت الدولي UTC الى التوقيت المحلي .
Label33.Text = Date.Now.ToLocalTime
3.أسلوباToShortDateString & ToLongDateString
يقومان هذا الاسلوبان بتحويل الجزء الخاص بالتاريخ الى سلسة أحرف لها تنسيق التاريخ المفصل أو المختصر .
Label37.Text = Date.Now.ToLongDateString
Label35.Text = Date.Now.ToShortDateString
4.أسلوباToShortTimeString & ToLongTimeString
يقومان هذان الاسلوبان بتحويل الجزء الخاص بالوقت الى سلسلة الأحرف لها تنسيق الوقت المفصل أو المختصر.
Label45.Text = Date.Now.ToLongTimeString
Label43.Text = Date.Now.ToShortTimeString
5.اسلوب ToOADate
يقوم هذا الاسلوب بتحويل النسخة الحالية من الفئة DateTime الى تاريخ متوافق مع OLE Automation.
Label41.Text = Date.Now.ToOADate
6.اسلوب ToUniversalTime
يقوم هذا الاسلوب بتحويل بتحويل النسخة الحالية من الفئة DateTime الى النظام التوقيت الدولي .
Label39.Text = Date.Now.ToUniversalTime
---- يتبع ----