حساب الاسبوع والشهر الحالي والسابق

كود :
[SIZE=2][color=#0000ff]Dim[/color][/SIZE][SIZE=2] Today [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2][color=#0000ff]Date[/color][/SIZE][SIZE=2] = [/SIZE][SIZE=2][color=#0000ff]New[/color][/SIZE][SIZE=2][color=#0000ff]Date[/color][/SIZE][SIZE=2](Now.Year, Now.Month, Now.Day, 0, 0, 0)

[/SIZE][SIZE=2][color=#0000ff]Dim[/color][/SIZE][SIZE=2] Yesterday [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2][color=#0000ff]Date[/color][/SIZE][SIZE=2] = Today.AddDays(-1)

[/SIZE][SIZE=2][color=#0000ff]Dim[/color][/SIZE][SIZE=2] ThisWeekStart [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2][color=#0000ff]Date[/color][/SIZE][SIZE=2] = Today.AddDays(-1 * (Today.DayOfWeek + 1) [/SIZE][SIZE=2][color=#0000ff]Mod[/color][/SIZE][SIZE=2] 7)

[/SIZE][SIZE=2][color=#0000ff]Dim[/color][/SIZE][SIZE=2] ThisWeekEnd [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2][color=#0000ff]Date[/color][/SIZE][SIZE=2] = ThisWeekStart.AddDays(6)

[/SIZE][SIZE=2][color=#0000ff]Dim[/color][/SIZE][SIZE=2] LastWeekStart [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2][color=#0000ff]Date[/color][/SIZE][SIZE=2] = Today.AddDays(-1 * (Today.DayOfWeek + 1) [/SIZE][SIZE=2][color=#0000ff]Mod[/color][/SIZE][SIZE=2] 7 - 7)

[/SIZE][SIZE=2][color=#0000ff]Dim[/color][/SIZE][SIZE=2] LastWeekEnd [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2][color=#0000ff]Date[/color][/SIZE][SIZE=2] = LastWeekStart.AddDays(6)

[/SIZE][SIZE=2][color=#0000ff]Dim[/color][/SIZE][SIZE=2] ThisMonthStart [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2][color=#0000ff]Date[/color][/SIZE][SIZE=2] = [/SIZE][SIZE=2][color=#0000ff]New[/color][/SIZE][SIZE=2][color=#0000ff]Date[/color][/SIZE][SIZE=2](Today.Year, Today.Month, 1)

[/SIZE][SIZE=2][color=#0000ff]Dim[/color][/SIZE][SIZE=2] ThisMonthEnd [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2][color=#0000ff]Date[/color][/SIZE][SIZE=2] = ThisMonthStart.AddMonths(1).AddDays(-1)

[/SIZE][SIZE=2][color=#0000ff]Dim[/color][/SIZE][SIZE=2] LastMonthStart [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2][color=#0000ff]Date[/color][/SIZE][SIZE=2] = [/SIZE][SIZE=2][color=#0000ff]New[/color][/SIZE][SIZE=2][color=#0000ff]Date[/color][/SIZE][SIZE=2](Today.Year, Today.Month, 1).AddMonths(-1)

[/SIZE][SIZE=2][color=#0000ff]Dim[/color][/SIZE][SIZE=2] LastMonthEnd [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2][color=#0000ff]Date[/color][/SIZE][SIZE=2] = LastMonthStart.AddMonths(1).AddDays(-1)

[/SIZE]