العام الدراسي

[ابو عبد الله العراقي]

السلام عليكم ورحمة الله وبركاته

الأستاذة الافاضل والاخوة الأعزاء المشتركين في منتدى اوفيسنا

رمضان مبارك ، تقبل الله منا ومنكم الصيام والقيام والطاعات وكل عام وانتم بخير.

في قاعدة البيانات المرفقة ( AcademicYear ) في النموذج الرئيسي الذي يظهر عند تشغيل قاعدة البيانات يحتوي على مربعي نص الأول يظهر التاريخ الحالي ( تاريخ الحاسبة ) والأخر المفروض يظهر العام الدراسي مثلا (2024-2025) . المطلوب كيف اجعل هذا المربع الأخير يظهر العام الدراسي بصورة تلقائيا من تاريخ الحاسبة علما أن العام الدراسي محسوب بداية مثلا من 1/9/2024 ولغاية 1/6/2025 .

هل من الممكن صناعة كود يقوم بهذه العملية تلقائيا بدون تدخل من المستخدم ، او حتى عن طريق دوال التاريخ ؟؟؟ تحياتي للجميع

AcademicYear.rar

[Foksh]

وعليكم السلام ورحمة الله تعالى وبركاته

استخدم الدالة التالية في مديول :-

Function GetAcademicYear() As String
    Dim currentDate As Date
    Dim currentYear As Integer
    Dim nextYear As Integer
    
    currentDate = Date
    currentYear = Year(currentDate)
    nextYear = currentYear + 1
    
    If currentDate >= DateSerial(currentYear, 9, 1) Then
        GetAcademicYear = currentYear & " - " & nextYear
    Else
        GetAcademicYear = (currentYear - 1) & " - " & currentYear
    End If
End Function

في مربع النص اجعل مصدر بياناته =

=GetAcademicYear()

 

وتقدر تستخدمه في استعلام على سبيل المثال ، بالشكل التالي :-

SELECT 
    IIf(Date() >= DateSerial(Year(Date()), 9, 1), 
        Year(Date()) & " - " & (Year(Date()) + 1), 
        (Year(Date()) - 1) & " - " & Year(Date())) AS AcademicYear;

 

النتيجة :-

1️⃣ إذا كان التاريخ الحالي بعد أو يساوي 1 سبتمبر 2024 ، ستكون النتيجة 2024 - 2025

2️⃣ إذا كان التاريخ الحالي قبل 1 سبتمبر 2024 ، ستكون النتيجة 2023 - 2024

🔚 بهذه الطريقة ، يمكنك الحصول على السنة الدراسية الحالية والسنة اللاحقة بناءً على التاريخ المحدد

 

 

AcademicYear.accdb

تم تعديل مارس 14 بواسطه Foksh
تعديل فكرة الكود وإضافة ملف مرفق

[ابو عارف]

مشاركة مع الأخي/ @Foksh

من يسار الى اليمين
=IIf(Month(Date())>=9,Year(Date())+1 & "-" & Year(Date()),Year(Date()) & "-" & Year(Date())-1)
من يمين الى اليسار
=IIf(Month(Date())>=9,Year(Date()) & "-" & Year(Date())+1,Year(Date())-1 & "-" & Year(Date()))

AcademicYear.rar

تم تعديل مارس 14 بواسطه ابو عارف

[ابو عبد الله العراقي]

الاخ Foksh

والاخ ابو عارف 

شكرا جزيلا لكما وعاشت الايادي 

مضبوط  100 بالمئة