تقييم الموضوع :
  • 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]
الشرح حسب الطلب
مع بالغ الود
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  حساب قيمة معادلة(اقصد صيغة دون مجاهيل) مكتوبة بالتكست : الجزء الخامس والاخير محمد شريقي 4 1,595 23-02-18, 10:44 PM
آخر رد: العواد الصغير
  درس: كيفية حساب عدد الأسطر في نص المبرمج الطموح vb6 5 2,895 26-12-17, 09:46 PM
آخر رد: abo.alaa315
  حساب مكان الفورم علي شاشة الكمبيوتر silverlight 1 401 09-11-17, 09:35 PM
آخر رد: الوايلي
  كود- حساب مواقيت الصلاة Prayer Times في الدوت نت 2008 و 2005 RaggiTech 0 3,260 05-10-12, 01:48 PM
آخر رد: RaggiTech
  حساب مواقيت الصلاة الشرعية لأى مكان بالعالم RaggiTech 0 1,343 03-10-12, 12:34 PM
آخر رد: RaggiTech
  حساب قيمة معادلة(اقصد صيغة دون مجاهيل) مكتوبة بالتكست - الدرس الخامس والاخير RaggiTech 0 978 03-10-12, 12:34 PM
آخر رد: RaggiTech
  تشفير الأسرار للمستخدم الحالي RaggiTech 0 478 03-10-12, 08:48 AM
آخر رد: RaggiTech

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


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