شاطر
اذهب الى الأسفل
عدد المساهمات : 134
تاريخ التسجيل : 08/10/2012
معاينة صفحة البيانات الشخصي للعضو

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

في الخميس أكتوبر 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
الرجوع الى أعلى الصفحة
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى