06-10-12, 01:04 AM
كاتب الموضوع : محمد الناشـري
بسم الله ارحمن الرحيم
معالجة الوقت والتاريخ
فئة DateTimeتستخدم الفئة DateTime في تخزين القيم الخاصة بالتاريخ والوقت وتعد احد أنواع البيانات الأساسية في بيئة Framework . ويتم تخزين القيم الخاصة بالتاريخ والوقت داخلياً كأرقام من نوع Double .بسم الله ارحمن الرحيم
معالجة الوقت والتاريخ
يتعلق الجزء الصحيح من القيمة بالتاريخ بينما يتعلق الجزء الكسرى بالوقت .
لتحويل متغير من نوع DateTime يمكنك استخدام الأسلوب ToOADateTime ( سيتم الحديث عنه لاحقاً) الذي ينتج قيمة هي عبارة عن تاريخ متوافق مع OLE Automation.
خصائص الفئة DateTime
1.خاصية Date
تنتج خاصية Date التاريخ من قيمة تاريخ /وقت. وتصبط الوقت على منتصف الليل
Dim date1 As DateTime
date1 = Now()
Date_txt.Text = date1.Date
2.خاصيتا DayofWeek و DayofYear
تنتج هاتان الخاصيتان أحد أيام الأسبوع ويشار إلية برقم يتراوح بين 1و7 ورقم هذا اليوم بالنسبة للعام ويشار إلية برقم يتراوح بين 1و365 او366 للسنوات الكبيسة .
dayofyear_txt.Text = date1.DayOfWeek
dayofweek_txt.Text = date1.DayOfYear
3.خصائص Millisecond و Second و Minute و Hour
تنتج هذه الخصائص جزء الوقت المقابل في قيمة التاريخ التي تم تمريرها كوسيط .
millisecond_txt.Text = Date.Now.Millisecond
second_txt.Text = Date.Now.Second
Minute_txt.Text = Date.Now.Minute
hour_txt.Text = Date.Now.Hour
4.خصائص Day وMonth و Year
تنتج هذه الخصائص الثلاث اليوم والشهر والعام للقيمة DateTime . وتتخذ خاصيتا Day وMonth قيما رقمية ويمكن تحويلها إلى سلسة الأحرف الملائمة ( اسم اليوم والشهر ) باستخدام دالتي WeekDayName() و . MonthName()
year_txt.Text = Date.Now.Year
Month_txt.Text = Date.Now.Month & " // " & MonthName(Now.Month)
day_txt.Text = Date.Now.Day & " // " & WeekdayName(Now.Day)
وتقبل الدالتان كلتاهما رقم اليوم ( من 1 إلى 7 ) ورقم الشهر ( من 1 إلى 12) كوسيط وتنتج الاسم . ويمكن استخدام القيمة 13 مع التقويم الذي يحتوى ثلاثة عشر شهر .
كما تقبل هاتان الدالتان وسيطاً اختياريا ثالثا وهو القيمة True & False وتوضحان ما إذا كانت الدالة ينبغي أن تنتج الاسم المختصر True أو الاسم الكامل False.
الدالة WeekDayName() وسيطاً اختيارياً ثالثاً وهو الذي يحدد اليوم الأول من الأسبوع . قم بضبط هذا الوسيط على احد عناصر ترقيم FirstDayOfWeek
Month_txt.Text = Date.Now.Month & " // " & MonthName(Now.Month, True)
day_txt.Text = Date.Now.Day & " // " & WeekdayName(Now.Day,_ FirstDayOfWeek.Saturday)
..... يتبع .....