ادراج السنة المالية تلقائيا بصيغة ( 2018 / 2019 ) طبقا لتاريخ الجهاز

[wael_rafat]

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

اخواني الكرام  اعضاء ومشرفي منتدانا الجميل بارك الله فيكم

استفساري هو عن كيفية ادراج خانة للسنة المالية تعبأ تلقائيا من تاريخ الجهاز على هذا الشكل او الصيغة ( 2018 / 2019 )

الجميع يعلم بان السنة المالية للوزارات بتبدأ من تاريخ ( 1 / 4 / السنة الحالية )  وتنتهي بتاريخ ( 31 / 3 / السنة القادمة )

بمعنى ان السنة المالية الحالية ( 2018 / 2019 ) تبدأ من تاريخ ( 1 / 4 /2018 ) وتنتهي بتاريخ ( 31 / 3 / 2019 )

والسنة المالية القادمة ( 2019 / 2020 )  تبدأ من تاريخ ( 1 / 4 / 2019 ) وتنتهي بتاريخ ( 31 / 3 / 2020 )    وهكذا ،،،،،

مع كل الشكر والتقدير  ،،،

 

 

 

Acc_Year.accdb

[ابو جودي]

Your request is expensive but you are a great professor

Just give me tomorrow

I preach good

[AlwaZeeR]

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

ضع هذا الكود في حدث الحالي للنموذج:

Dim dtBgn
Dim dtEnd
dtBgn = DateSerial(Year(Date), 4, 1)
dtEnd = DateSerial(Year(Date), 3, 31)

Select Case Date
Case Is >= dtEnd
acc_year = Year(Date) & "/" & Year(Date) + 1
Case Else
acc_year = Year(Date) & "/" & Year(Date) - 1
End Select

 

Acc_YearN.accdb

[wael_rafat]

3 ساعات مضت, ابا جودى said:

Your request is expensive but you are a great professor

Just give me tomorrow 

I preach good

استاذنا الحبيب @ابا جودى  دائما سباق بالخير  بارك الله فيك

 

3 ساعات مضت, AlwaZeeR said:

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

ضع هذا الكود في حدث الحالي للنموذج:

استاذنا العزيز @Alwazeer  مشكور على المتابعة والمداخلة بارك الله فيك وجزاك الله عنا كل خير

بعد التجربة استاذنا كله تماام ولكن هناك نقطة وحيدة لم يظبط عندها السنة المالية وهي يوم  31 / 3

حيث تم تجربة ادخال تاريخ 31 / 3 / 2019  فظهر عندي 2019 / 2020  وهي المفروض داخل السنة المالية ( 2018 /2019 )

وايضا ادخال تاريخ 31 / 3 / 2020  فظهر عندي 2020 / 2021  وهي المفروض داحل السنة المالية ( 2019 / 2020 )

هو تعديل جزء صغير ان شاء الله  وسامحنى على الاطالة  وجزاك الله عنا كل خير

كل الشكر والتقدير استاذنا العزيز ،،،،

[AlwaZeeR]

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

احذف إشارة اكبر

Case Is = dtEnd

 

[Ali Mohamed Ali]

بارك الله فيكم جميعا كود ممتاز استاذى الكريم

[wael_rafat]

Case Is > dtEnd

 

تسلم ايدك استاذي العزيز  @AlwaZeeR

مع كل شكري وتقديري ......

تم تعديل نوفمبر 30, 2018 بواسطه wael_rafat