استخلاص أجزاء التاريخ من صيغه تاريخ

الخميس أكتوبر 18, 2012 8:57 pm

استخلاص أجزاء التاريخ من صيغه تاريخ
السلام عليكم ورحمه الله وبركاته
تحدثنا في موضوع سابق عن كيفية استخلاص أجزاء الوقت من صيغه وقت ، وتمكنا من القيام بذلك بطريقتين مختلفتين وهو ما سنفعله اليوم بإذنه تعالى ولكن هذه المرة مع التاريخ وأجزائه .

الطريقة الأولى :باستخدام كائن من نوع Date
عن طريق تعريف متغير ( كائن ) من نوع Date تستطيع الحصول على الكثير من الخصائص ، الطرق والدوال المفيدة في التعامل معه ، الآن سيكون اهتمامنا بالخصائص Day,Month,Year والتي تعود بقيم من النوع Integer تعود بما تحمله من اسم ! الكود التالي يوضح القضية باختصار :

الكود:

‘تاريخ اليوم Dim MyDate As Date = Today ‘استخلاص اليوم Dim MyDay As Integer = Today.Day ‘استخلاص الشهر Dim MyMonth As Integer = Today.Month ‘استخلاص السنة Dim MyYear As Integer = Today.Year MsgBox(“Day: ” & MyDay & vbNewLine & _ “Month: ” & MyMonth & vbNewLine & _ “Year: ” & MyYear)

الطريقة الثانية : باستخدام دوال Visual Basic
هذه الدوال تتبع فضاء الاسماء :

الكود:

Microsoft.VisualBasic.DateAndTime

وهي معروفة من ايامVB6 ! اذا لننطلق إلى الكود مباشره !

الكود:

‘تاريخ اليوم Dim MyDate As Date = Today ‘استخلاص اليوم Dim MyDay As Integer = DateAndTime.Day(MyDate) ‘استخلاص الشهر Dim MyMonth As Integer = DateAndTime.Month(MyDate) ‘استخلاص السنة Dim MyYear As Integer = DateAndTime.Year(MyDate) MsgBox(“Day: ” & MyDay & vbNewLine & _ “Month: ” & MyMonth & vbNewLine & _ “Year: ” & MyYear)

وخذ هذه بخشيش من عندي ولو انها خارج موضوعنا :

الكود:

‘تاريخ اليوم Dim MyDate As Date = Today ‘استخلاص الشهر Dim MyMonth As Integer = DateAndTime.Month(MyDate) ‘استخلاص اسم الشهر Dim MyMonthName As String = DateAndTime.MonthName(MyMonth, False) MsgBox(“Month Name : ” & MyMonthName