[mrnooo2000]

هذا الكود به ما تريد 

كود :

       Dim TheYear As Integer = Today.Date.Year
       Dim TheMonth As Integer = Today.Date.Month
       Dim monthstart As Date = New Date(TheYear, TheMonth, 1)
       Dim monthend As Date = New Date(TheYear, TheMonth, Date.DaysInMonth(TheMonth, TheMonth))
       Dim yearstart As Date = New Date(TheYear, 1, 1)
       Dim yearend As Date = New Date(TheYear, 12, 31)