[RaggiTech]

كاتب الموضوع : النبهاني

كاتب الموضوع : النبهاني

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

السلام عليكم ورحمه الله وبركاته

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

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