تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
استخلاص أجزاء التاريخ من صيغه تاريخ
#1
كاتب الموضوع : النبهاني

كاتب الموضوع : النبهاني
استخلاص أجزاء التاريخ من صيغه تاريخ
السلام عليكم ورحمه الله وبركاته

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

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

كود :
[align=right][FONT=Courier New][FONT=Courier New][color=green]'تاريخ اليوم[/color][/FONT][/FONT][FONT=Courier New]
[FONT=Courier New][color=blue]Dim[/color] MyDate [color=blue]As[/color] [color=blue]Date[/color] = Today[/FONT]
[FONT=Courier New][color=green]'استخلاص اليوم[/color][/FONT]
[FONT=Courier New][color=blue]Dim[/color] MyDay [color=blue]As[/color] [color=blue]Integer[/color] = Today.Day[/FONT]
[FONT=Courier New][color=green]'استخلاص الشهر[/color][/FONT]
[FONT=Courier New][color=blue]Dim[/color] MyMonth [color=blue]As[/color] [color=blue]Integer[/color] = Today.Month[/FONT]
[FONT=Courier New][color=green]'استخلاص السنة[/color][/FONT]
[FONT=Courier New][color=blue]Dim[/color] MyYear [color=blue]As[/color] [color=blue]Integer[/color] = Today.Year[/FONT][/FONT][/align]
[FONT=Courier New]

[align=right][FONT=Courier New]MsgBox([color=#a31515]"Day: "[/color] & MyDay & vbNewLine & _[/FONT]
[FONT=Courier New][color=#a31515]"Month: "[/color] & MyMonth & vbNewLine & _[/FONT][/align]

[align=left][align=right][FONT=Courier New][color=#a31515]"Year: "[/color] & MyYear)[/FONT][/align]
[/align]

[/FONT]

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

Microsoft.VisualBasic.DateAndTime

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

كود :
[align=right][FONT=Courier New][FONT=Courier New][color=green]'تاريخ اليوم[/color][/FONT][/FONT][FONT=Courier New]
[FONT=Courier New][color=blue]Dim[/color] MyDate [color=blue]As[/color] [color=blue]Date[/color] = Today[/FONT]
[FONT=Courier New][color=green]'استخلاص اليوم[/color][/FONT]
[FONT=Courier New][color=blue]Dim[/color] MyDay [color=blue]As[/color] [color=blue]Integer[/color] = DateAndTime.Day(MyDate)[/FONT]
[FONT=Courier New][color=green]'استخلاص الشهر[/color][/FONT]
[FONT=Courier New][color=blue]Dim[/color] MyMonth [color=blue]As[/color] [color=blue]Integer[/color] = DateAndTime.Month(MyDate)[/FONT]
[FONT=Courier New][color=green]'استخلاص السنة[/color][/FONT]
[FONT=Courier New][color=blue]Dim[/color] MyYear [color=blue]As[/color] [color=blue]Integer[/color] = DateAndTime.Year(MyDate)[/FONT][/FONT][/align]
[FONT=Courier New]

[align=right][FONT=Courier New]MsgBox([color=#a31515]"Day: "[/color] & MyDay & vbNewLine & _[/FONT]
[FONT=Courier New][color=#a31515]"Month: "[/color] & MyMonth & vbNewLine & _[/FONT][/align]

[align=left][align=right][FONT=Courier New][color=#a31515]"Year: "[/color] & MyYear)[/FONT][/align]
[/align]

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

كود :
[align=right][FONT=Courier New][FONT=Courier New][color=green]'تاريخ اليوم[/color][/FONT][/FONT][FONT=Courier New]
[FONT=Courier New][color=blue]Dim[/color] MyDate [color=blue]As[/color] [color=blue]Date[/color] = Today[/FONT]
[FONT=Courier New][color=green]'استخلاص الشهر[/color][/FONT]
[FONT=Courier New][color=blue]Dim[/color] MyMonth [color=blue]As[/color] [color=blue]Integer[/color] = DateAndTime.Month(MyDate)[/FONT][/FONT][/align]
[FONT=Courier New]

[align=right][FONT=Courier New][color=green]'استخلاص اسم الشهر [/color][/FONT]
[FONT=Courier New][color=blue]Dim[/color] MyMonthName [color=blue]As[/color] [color=blue]String[/color] = DateAndTime.MonthName(MyMonth, [color=blue]False[/color])[/FONT]
[FONT=Courier New]MsgBox([color=#a31515]"Month Name : "[/color] & MyMonthName)[/FONT][/align]
[/FONT]
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مقال] معلومات مهمة عن متغير التاريخ ( Date ) Dev Saeed 0 205 24-08-16, 10:44 AM
آخر رد: Dev Saeed
  مقال - استخلاص الصور من صورة متحركة gif RaggiTech 1 566 05-10-12, 03:39 PM
آخر رد: RaggiTech
  نوع بيانات جديد (تاريخ) RaggiTech 0 435 05-10-12, 03:34 AM
آخر رد: RaggiTech
  دالة التعامل مع التاريخ الهجري senior 0 705 04-10-12, 04:40 PM
آخر رد: senior
  دالة لفحص التاريخ RaggiTech 0 348 03-10-12, 01:49 PM
آخر رد: RaggiTech
  خوارزمية : التحويل بين التاريخ الميلادي والتاريخ الهجري Omar Mekkawy 0 2,011 20-09-12, 02:43 PM
آخر رد: Omar Mekkawy

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم