منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - حساب الاسبوع والشهر الحالي والسابق

كاتب الموضوع : FlyToAbd

يسأل بعض الطلبة عن كيفية حساب الاسبوع الحالي والسابق والشهر الحالي والسابق

وهذه تفيد في عرض بيانات فيها تاريخ والتي تاريخها في الاوقات هذه

كذلك تفيد في البرامج اللي في واجهتها ما يشابه History اللي موجود بمستكشف الانترنت

كود :

[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]

الشرح حسب الطلب
مع بالغ الود

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

RaggiTech