تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
حساب الاسبوع والشهر الحالي والسابق
#1
كاتب الموضوع : 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]
الشرح حسب الطلب
مع بالغ الود
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  درس: كيفية حساب عدد الأسطر في نص المبرمج الطموح vb6 4 1,812 04-08-15, 12:45 AM
آخر رد: العواد الصغير
  حساب قيمة معادلة(اقصد صيغة دون مجاهيل) مكتوبة بالتكست : الجزء الخامس والاخير محمد شريقي 3 985 28-05-13, 01:06 PM
آخر رد: Sajad
  كود- حساب مواقيت الصلاة Prayer Times في الدوت نت 2008 و 2005 RaggiTech 0 1,791 05-10-12, 01:48 PM
آخر رد: RaggiTech
  حساب مواقيت الصلاة الشرعية لأى مكان بالعالم RaggiTech 0 1,009 03-10-12, 12:34 PM
آخر رد: RaggiTech
  حساب قيمة معادلة(اقصد صيغة دون مجاهيل) مكتوبة بالتكست - الدرس الخامس والاخير RaggiTech 0 591 03-10-12, 12:34 PM
آخر رد: RaggiTech
  تشفير الأسرار للمستخدم الحالي RaggiTech 0 229 03-10-12, 08:48 AM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم