[RaggiTech]

وهذه مجموعة من الدوال للتعمل مع التاريخ

الداله Weekday :

هذه الداله تعطيك رقم اليوم (من 1 الى 7 ) لتاريخ معين ولهذه الداله تا بعين من نوع تاريخ أي DataType Date ..
التابع الاول يرجع التاريخ الذي تريد رقم يومه ..
والثاني يرجع اول يوم في الاسبوع ..

كود :

[COLOR=#000000][COLOR=#0000bb]

[/COLOR][color=#007700]Private [/color][color=#0000bb]Sub Button1_Click[/color][color=#007700]([/color][color=#0000bb]ByVal sender [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]Object[/color][color=#007700], [/color][color=#0000bb]ByVal e [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]EventArgs[/color][color=#007700]) [/color][color=#0000bb]Handles Button1[/color][color=#007700].[/color][COLOR=#0000bb]Click
        
        MsgBox[/COLOR][color=#007700]([/color][color=#0000bb]Weekday[/color][color=#007700]([/color][color=#0000bb]Now[/color][color=#007700], [/color][color=#0000bb]FirstDayOfWeek[/color][color=#007700].[/color][color=#0000bb]Saturday[/color][COLOR=#007700]))

[/COLOR][COLOR=#0000bb]End Sub  
[/COLOR][/COLOR]

الداله DateSerial :
هذه الداله لها ثلاثة توابع السنه والشهر واليوم ة ولنعرف تا ريخ اليوم
كاالاتي :

كود :

[COLOR=#000000][COLOR=#0000bb]
[/COLOR][color=#007700]Private [/color][color=#0000bb]Sub Button1_Click[/color][color=#007700]([/color][color=#0000bb]ByVal sender [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]Object[/color][color=#007700], [/color][color=#0000bb]ByVal e [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]EventArgs[/color][color=#007700]) [/color][color=#0000bb]Handles Button1[/color][color=#007700].[/color][COLOR=#0000bb]Click

        MsgBox[/COLOR][color=#007700]([/color][color=#0000bb]DateSerial[/color][color=#007700](([/color][color=#0000bb]Now[/color][color=#007700].[/color][color=#0000bb]Year[/color][color=#007700]), ([/color][color=#0000bb]Now[/color][color=#007700].[/color][color=#0000bb]Month[/color][color=#007700]), ([/color][color=#0000bb]Now[/color][color=#007700].[/color][color=#0000bb]Day[/color][COLOR=#007700])))

[/COLOR][COLOR=#0000bb]End Sub  
[/COLOR][/COLOR]

واذا اردنا ان نعرف التاريخ بعد عة ايام مثلا بعد 200 يوم يمكن ذلك من خلال الاتي:

كود :

[color=#000000][COLOR=#0000bb][/color][color=#007700]Private [/color][color=#0000bb]Sub Button1_Click[/color][color=#007700]([/color][color=#0000bb]ByVal sender [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]Object[/color][color=#007700], [/color][color=#0000bb]ByVal e [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]EventArgs[/color][color=#007700]) [/color][color=#0000bb]Handles Button1[/color][color=#007700].[/color][COLOR=#0000bb]Click

        MsgBox[/COLOR][color=#007700]([/color][color=#0000bb]DateSerial[/color][color=#007700](([/color][color=#0000bb]Now[/color][color=#007700].[/color][color=#0000bb]Year[/color][color=#007700]), ([/color][color=#0000bb]Now[/color][color=#007700].[/color][color=#0000bb]Month[/color][color=#007700]), ([/color][color=#0000bb]Now[/color][color=#007700].[/color][color=#0000bb]Day[/color][color=#007700]) + [/color][color=#0000bb]200[/color][COLOR=#007700]))

[/COLOR][COLOR=#0000bb]End Sub  
[/COLOR][/COLOR]

سنلاحظ انه من تاريخ 14/8/2007 الى بعد 200 يوم يكون التاريخ 1/3/2008 انشاء الله..

الداله DatePart:
من اسم هذة الداله عملها هو تجزئه التاريخ أي تاريخ , ولهذةالداله تابعين

التابع الاول يمثل الجزءا الذي نريده من التاريخ .
التابع الثاني يمثل التاريخ الذي نريد جزءا منه (نريد ان نجزئه) .

كود :

[COLOR=#000000][COLOR=#0000bb]
[/COLOR][color=#007700]Private [/color][color=#0000bb]Sub Button1_Click[/color][color=#007700]([/color][color=#0000bb]ByVal sender [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]Object[/color][color=#007700], [/color][color=#0000bb]ByVal e [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]EventArgs[/color][color=#007700]) [/color][color=#0000bb]Handles Button1[/color][color=#007700].[/color][COLOR=#0000bb]Click

        MsgBox[/COLOR][color=#007700]([/color][color=#0000bb]DatePart[/color][color=#007700]([/color][color=#0000bb]DateInterval[/color][color=#007700].[/color][color=#0000bb]Day[/color][color=#007700], [/color][color=#0000bb]Now[/color][COLOR=#007700]))

[/COLOR][COLOR=#0000bb]End Sub  
[/COLOR][/COLOR]

End Sub

وللداله DateInterval الخصائص الاتية :
Day
DayOfYear
Hour
Minute
Month
Quarter
Second
WeekDay
WeekOfYear
Year


الداله DateDiff

هذه الداله تعطيك الفترة بيمن تا ريخين محددين

هذا المثال لمعرفة عدد السنين من التاريخ المحدد 3/1/2006 وحتى يومنا هذا

كود :

[COLOR=#000000][COLOR=#0000bb]
[/COLOR][color=#007700]Private [/color][color=#0000bb]Sub Button1_Click[/color][color=#007700]([/color][color=#0000bb]ByVal sender [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]Object[/color][color=#007700], [/color][color=#0000bb]ByVal e [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]EventArgs[/color][color=#007700]) [/color][color=#0000bb]Handles Button1[/color][color=#007700].[/color][COLOR=#0000bb]Click

        Dim date1 [/COLOR][color=#007700]As [/color][color=#0000bb]Date [/color][color=#007700]= [/color][COLOR=#ff8000]#3/1/2006#

        [/COLOR][color=#0000bb]MsgBox[/color][color=#007700]([/color][color=#0000bb]DateDiff[/color][color=#007700]([/color][color=#0000bb]DateInterval[/color][color=#007700].[/color][color=#0000bb]Year[/color][color=#007700], [/color][color=#0000bb]date1[/color][color=#007700], [/color][color=#0000bb]Now[/color][color=#007700]).[/color][color=#0000bb]ToString [/color][color=#007700]+ [/color][color=#dd0000]" Year"[/color][COLOR=#007700])
[/COLOR][COLOR=#0000bb]End Sub  
[/COLOR][/COLOR]

واذا اردنا ان نعرف عدد الايام يمكن ذلك من خلال استبدال DateInterval.Day
وهكذا ..