02-10-12, 01:43 AM
كاتب الموضوع : النبهاني
كاتب الموضوع : النبهانياستخلاص أجزاء التاريخ من صيغه تاريخ
السلام عليكم ورحمه الله وبركاته
تحدثنا في موضوع سابق عن كيفية استخلاص أجزاء الوقت من صيغه وقت ، وتمكنا من القيام بذلك بطريقتين مختلفتين وهو ما سنفعله اليوم بإذنه تعالى ولكن هذه المرة مع التاريخ وأجزائه .
الطريقة الأولى :باستخدام كائن من نوع Date
عن طريق تعريف متغير ( كائن ) من نوع Date تستطيع الحصول على الكثير من الخصائص ، الطرق والدوال المفيدة في التعامل معه ، الآن سيكون اهتمامنا بالخصائص Day,Month,Year والتي تعود بقيم من النوع Integer تعود بما تحمله من اسم ! الكود التالي يوضح القضية باختصار :
تحدثنا في موضوع سابق عن كيفية استخلاص أجزاء الوقت من صيغه وقت ، وتمكنا من القيام بذلك بطريقتين مختلفتين وهو ما سنفعله اليوم بإذنه تعالى ولكن هذه المرة مع التاريخ وأجزائه .
الطريقة الأولى :باستخدام كائن من نوع 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]