تقييم الموضوع :
  • 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,991 04-08-15, 12:45 AM
آخر رد: العواد الصغير
  حساب قيمة معادلة(اقصد صيغة دون مجاهيل) مكتوبة بالتكست : الجزء الخامس والاخير محمد شريقي 3 1,055 28-05-13, 01:06 PM
آخر رد: Sajad
  كود- حساب مواقيت الصلاة Prayer Times في الدوت نت 2008 و 2005 RaggiTech 0 2,104 05-10-12, 01:48 PM
آخر رد: RaggiTech
  حساب مواقيت الصلاة الشرعية لأى مكان بالعالم RaggiTech 0 1,054 03-10-12, 12:34 PM
آخر رد: RaggiTech
  حساب قيمة معادلة(اقصد صيغة دون مجاهيل) مكتوبة بالتكست - الدرس الخامس والاخير RaggiTech 0 636 03-10-12, 12:34 PM
آخر رد: RaggiTech
  تشفير الأسرار للمستخدم الحالي RaggiTech 0 243 03-10-12, 08:48 AM
آخر رد: RaggiTech

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


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