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

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

الطريقة الأولى :باستخدام كائن من نوع 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)