[RaggiTech]

تابع خصائص الفئة DateTime
5.خاصية Ticks
وهي تنتج عدد اللحظات من قيمة تاريخ او وقت وتساوي كل لحظة 100 نانوثانيه . ولتحويل عدد محدد من اللحظات إلى ما يقابلها بالملي ثانية اضرب هذا العدد في 10.000 او استخدم الخاصية TickPerMillisecond الخاصة بالكائن TimeSpan والتي سنتناولها لاحقاً.
Ticks_txt.Text = (Date.Now.Ticks)
6.خاصية TimeOfDay
تنتج هذه الخاصية الوقت من قيمة تاريخ أو وقت .
timeofday_txt.Text = Now().TimeOfDay.ToString
أساليب الفئة DateTime
1.أسلوب Compare
وهو من الأساليب المشتركة التي تقارن بين قيمتي تاريخ او وقت وتنتج قيمة على شكل عدد صحيح توضح الترتيب النسبي لهاتين القيمتين
Dim date1 As DateTime
Dim date2 As DateTime
date1 = Now()
date2 = date2_txt.Text
result_txt.Text = System.DateTime.Compare(date1, date2)
ينتج هذا الاسلوب عدد صحيحا يكون عبارة عن( -1 ) اذا كان date1 اقل من Date2 . وينتج القيمة( 0) اذا كانت القيمتان متساويتان
و ينتج القيمة (1 ) اذا كانت date1 اكبر من .Date2
2.اسلوب DaysInMonth
وهو ينتج عدد الأيام في شهر محدد ويقبل كلاً من الشهر والعام كوسائط
daysinmonyh_txt.Text = " عدد ايام شهر فبراير لعام 2009 هو " _
& System.DateTime.DaysInMonth(2009, 2)
3.اسلوب FromOADate
وهو يقوم بانشاء قيمة تاريخ /وقت من نوع OLE Automation ويجب أن يكون الوسيط dtvalue عبارة عن قيمة من نوع Double تتراوح مابين -657.434 وهو اليوم الأول من عام 100 و 2.958.465 وهو اليوم الأخير من عام 9999 .
fromoadate_txt.Text = System.DateTime.FromOADate(dtvalue)
اسلوب IsleapYear
ينتج هذا الاسلوب القيمة True & False التي توضح ما اذا كان العام المحدد هو عام كبيس ام لا.
Dim leapyear As Boolean
leapyear = System.DateTime.IsLeapYear(leapyear_txt.Text)
isleap_txt.Text = leapyear
اسلوبا Add و Subtract
سنتناولهما بالتفصيل عندما نتناول الفئة TimeSpan .
---- يتبع -----