اهلاك الأصول الثابتة

[ابوخليل]

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

اهلاك الاصول الثابتة .. ضروري لكل محاسب في  اي منشأة

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

يوجد اكثر من وسيلة لتحقيق النتيجة كالاعتماد على الاستعلامات  الاساسية والاستعلامات الفرعية  مع الاستعانة ببعض الاكواد للتنفيذ .. 

هنا اعرض لكم مع المثال المرفق : كود مختصر  يعطي  نتائج الاهلاكات لجميع اصناف المشروع دفعة واحدة بضغطة زر  داخل الجدول . .. ولو ملكت الوقت الكافي والهمة لأمكن تطويره وانتاجه بطريقة اكثر احترافية .

الاحتساب يبدأ من تاريخ الشراء ( التملك) وحتى نهاية السنة الحالية .

عمل صغير  ارجوا ان يكون فيه الخير الكثير .. 

 

 

ehlakAlosol_1.rar

[حربي العنزي]

استاذي الفاضل ابوخليل الله لايحرمنا من شخصكم الكريم والطيب يارب 

عمل اكثر من رائع جزاك الله خيرا 

جعله الله جل وعلا في ميزان حسناتك يارب يارب 

سائلا الله جل وعلا ان يمن عليك وعلى عائلتك الكريمة وعلى بلدكم الاغر بالصحة والعافية والامن والامان يارب يارب 

[ابوخليل]

آمين واياك  وعلى بلادكم وبلاد المسلمين 

ان اردت اي تعديل على الضوابط انا حاضر

[حربي العنزي]

استاذي الفاضل ابوخليل ربي يخليك يارب 

هناك خطأ بسيط ان شاء الله 

وهو عندما يكون تاريخ الشراء مثلا 6/5/2005 في البداية يكون الاحتساب هكذا  : المتبقي من السنة تقسيم 12 مضروب في الكلفة ثم مضروب في نسبة الاهلاك

كمثال : اذا كان تاريخ الشراء 6/5/2005   -  والكلفة 1500000   -   ونسبة الاندثار 10%     -  الحل هكذا المتبقي من السنة 7 شهور اذن 7 / 12 * 1500000 * 0.10  = 87500 

هذه لنهاية السنة والباقي كله صحيح حسب المعادلات 

مع وافر التحايا 

[ابو ياسين المشولي]

بارك الله فيه استاذي الجليل

وجعله الله في ميزان حسناتك

ياليت لو كان في تسميات توضيحيه للحقول كي يستفيد منها الكل

ولدي ملاحظه في الرقم التسلسلي كلها برقم صفر

وبعد اذنك استاذي ابوخليل

اضفت للكود هذا rs2!ID = Nz(DMax("[ID]", "TBL2") + 1, 1)

فصار بهذا الشكل

Dim db As DAO.Database
Dim rs1 As DAO.Recordset
Dim rs2 As DAO.Recordset
Dim jk, ct, thr
Dim i, ii, j As Integer
  Set db = CurrentDb
  Set rs1 = db.OpenRecordset("TBL1")
  Set rs2 = db.OpenRecordset("TBL2")
  rs1.MoveLast
  rs1.MoveFirst
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE TBL2.* FROM TBL2"
DoCmd.SetWarnings True
For ii = 1 To rs1.RecordCount
j = DateDiff("yyyy", rs1!FirstDate, "31/12/" & Year(Date))
ct = rs1!Cost
For i = 1 To (j + 1)
 If i = 1 Then
 vdate = rs1!FirstDate
 If Month(rs1!FirstDate) <> 12 Then
jk = Month(rs1!FirstDate) / 12
thr = (rs1!Cost * rs1!IndtharRute) * jk
Else
jk = 1
thr = (rs1!Cost * rs1!IndtharRute) * jk
End If
 End If
 rs2.AddNew
 rs2!ID = Nz(DMax("[ID]", "TBL2") + 1, 1)
 rs2!PrvtCode = rs1!PriavetCode
 rs2!ShopDate = vdate
 rs2!t_year = Year(vdate)
 rs2!t_month = Month(vdate)
 rs2!Cost2 = rs1!Cost
 rs2!EndtharYear = (rs1!Cost * rs1!IndtharRute) * jk
 rs2!End = thr
 rs2!Rasid = ct - thr
 rs2!BookValue = thr
 rs2.Update
 thr = thr + rs1!Cost * rs1!IndtharRute
  vdate = "31/12/" & (Year(vdate) + 1)
 jk = 1
 Next i
rs1.MoveNext
Next ii
MsgBox "تم"
Set db = Nothing
Set rs1 = Nothing
Set rs2 = Nothing

 

تم تعديل أكتوبر 2, 2018 بواسطه ابو ياسين المشولي

[ابوخليل]

اقتباس

ياليت لو كان في تسميات توضيحيه للحقول كي يستفيد منها الكل

اقتباس

اضفت للكود هذا rs2!ID = Nz(DMax("[ID]", "TBL2") + 1, 1)

مشكور ابو ياسين .. انا غفلت عن التسميات

لو طبقت الكود على المثال  ووضعت التسميات ايضا .. وارفقته ,, كنت احسنت الينا والى اخوانك

5 ساعات مضت, حربي العنزي said:

كمثال : اذا كان تاريخ الشراء 6/5/2005   -  والكلفة 1500000   -   ونسبة الاندثار 10%     -  الحل هكذا المتبقي من السنة 7 شهور اذن 7 / 12 * 1500000 * 0.10  = 87500 

 

جرب  احذف رقم 1 من هذا السطر

For i = 1 To (j + 1)

بحيث يصبح :

For i = 1 To j 

ووافني بالنتيجة

[ابو ياسين المشولي]

20 دقائق مضت, ابوخليل said:

مشكور ابو ياسين .. انا غفلت عن التسميات

لو طبقت الكود على المثال  ووضعت التسميات ايضا .. وارفقته ,, كنت احسنت الينا والى اخوانك

استاذي ابوخليل

لوكنت عرفت التسميات كنت فعلتها ولكني انا كمان اجهل التسميات ارجو ان تعذرني

اظن الاخ حربي العنزي هو يعرف التسميات

تم تعديل أكتوبر 2, 2018 بواسطه ابو ياسين المشولي

[ابوخليل]

تم تحديث المرفق اعلاه :

1- اضافة التسميات  2- وادراج سطر الترقيم  3- ازلت الرقم واحد حسب رغبة اخونا حربي

[حربي العنزي]

استاذي الفاضل ابوخليل ربي يخليك يارب 

جربت حذف رقم 1 ووضعت هذه المعادلة For i = 1 To j 

لكن لم يحدث شيء بقي نفس الشي 

وان شاء الله سوف اضع التسميات 

مع وافر التحايا 

[حربي العنزي]

استاذي الفاضل ابوخليل جزاك الله خيرا يا طيب والله ماقصرت والنعم منك 

احتساب الاهلاك يبدأ من تاريخ الشراء الى نهاية السنة ومن ثم تمشي الامور كما في البرنامج الذي حضرتك وضعت الاكواد فيه 

احيانا تاريخ الشراء يكون 1/8/2006  -- اذان باقي على نهاية السنة 4 اشهر راح تكون المعادلة هكذا  : 4 / 12 * الكلفة  * نسبة الاهلاك 

مع وافر التحايا استاذي الفاضل 

 

[حربي العنزي]

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

هذا البرنامج في المرفقات بعد وضع التسميات عليه 

البرنامج من برمجة الاستاذ القدير ابوخليل جزاه الله خيرا 

وامانه على كل من يستفاد من هذا البرنامج دعوه صالحة بظهر الغيب للاستاذ الفاضل ابوخليل ربي يحميه من كل سوء يارب يارب 

مع وافر التحايا 

اسف هذا البرنامج في المرفقات مع وافر التحايا

ehlakAlosol1.rar

[ابو ياسين المشولي]

كي نفهم هذة 4 / 12 * الكلفة  * نسبة الاهلاك

نرجو تسميتها بسمها بالجدول

فستكون 4 / 12 * الكلفة  * نسبة الاهلاك

كيف نعرف تاريخ الشراء

هذة معادله وليس لحقل واحد

فيها تاريخ شراء شهر واحد وفيها شهر 3

وفيها شهر اربعه

فلابد لها معرفه كيف تقسمها

11 دقائق مضت, حربي العنزي said:

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

هذا البرنامج في المرفقات بعد وضع التسميات عليه 

البرنامج من برمجة الاستاذ القدير ابوخليل جزاه الله خيرا 

وامانه على كل من يستفاد من هذا البرنامج دعوه صالحة بظهر الغيب للاستاذ الفاضل ابوخليل ربي يحميه من كل سوء يارب يارب 

مع وافر التحايا 

اسف هذا البرنامج في المرفقات مع وافر التحايا

ehlakAlosol1.rar

ربنا يحفظه ويطول بعمرة ويجعل كل ما يبذله في ميزان حسناته

[حربي العنزي]

استاذي الفاضل ابو ياسين ربي يخليك يا طيب 

مثلا حاجة تم شرءها بتاريخ 6/5/2005    هذه الحاجة نحسب لها اندثار من تاريخ شراءها الى نهاية السنة اذا هي تم شراءها في الشهر 5 من سنة  2005 كم شهر باقي على نهاية السنة  يعني الى 

2006  7 شهور تمام  اذن راح تكون المعادلة كتالي :  7 / 12 * الكلفة ( Cost)  * نسبة الاندثار  ( IndtharRute ) والباقي كله صح 

مع وافر التحايا 

[ابو ياسين المشولي]

6 دقائق مضت, حربي العنزي said:

استاذي الفاضل ابو ياسين ربي يخليك يا طيب 

مثلا حاجة تم شرءها بتاريخ 6/5/2005    هذه الحاجة نحسب لها اندثار من تاريخ شراءها الى نهاية السنة اذا هي تم شراءها في الشهر 5 من سنة  2005 كم شهر باقي على نهاية السنة  يعني الى 

2006  7 شهور تمام  اذن راح تكون المعادلة كتالي :  7 / 12 * الكلفة ( Cost)  * نسبة الاندثار  ( IndtharRute ) والباقي كله صح 

مع وافر التحايا 

الى هنا تمام

الان بقينا في التاريخ

[حربي العنزي]

استاذي الفاضل ابوخليل ربي يحميك من كل سوء يارب 

هذه صورة للنتائج الصحيحة عندما يكون تاريخ الشراء لهذه الحاجة هو  6/5/2005     ---   والكلفة  1500000    --- ونسبة الاندثار   10%  

مع جزيل الشكر والاحترام لك استاذي الفاضل 

الصورة في المرفقات 

ملاحظة  : الفترة او تاريخ الشراء نفس المسمى 

[ابوخليل]

شوف التعديل 

اذا تمام  .. ساعتمد المرفق  واستبدل الرئيسي به

ehlakAlosol_2.rar

[حربي العنزي]

استاذي الفاضل ابوخليل ربي يحميك من كل سوء يارب 

الله عليك استاذي الفاضل نعم هذا هو المطلوب تماما جزاك الله خيرا يا طيب ماقصرت وكلك زود يالطيب 

ربي يوفقك يارب 

[ابو ياسين المشولي]

8 دقائق مضت, ابوخليل said:

شوف التعديل 

اذا تمام  .. ساعتمد المرفق  واستبدل الرئيسي به

ehlakAlosol_2.rar

بارك الله فيك وزادك من علمه

[ابوخليل]

لاحظت في مثالي الاخير  عمود الاهلاك السنوي  انه يكون كامل .. فيما يقابل السنة الناقصة  .. هل في هذا اشكالية

 

[حربي العنزي]

استاذي الفاضل ابوخليل ربي يحميك من كل سوء يارب 

انا ضفت هذا التعديل على معادلتك استاذي الفاضل وكانت الصحيحى 

jk = (12 - (Month(rs1!FirstDate))) / 12

ربي يوفقك يارب 

استاذي الفاضل ابوخليل ربي يخليك يارب 

بقي شيء واحد فقط ويكتمل البرنامج تماما وهو عندما يصل الرصيد الى القيمة صفر تكون القيمة الدفترية واحد 

هذا كل شيء 

[ابوخليل]

انا اضفت عمود لعدد الاشهر من اجل الاستئناس  

 

[حربي العنزي]

استاذي الفاضل ابوخليل ربي يحميك من كل سوء يارب 

كهذه الصورة المرفقة واكون شاكرا لك استاذي الفاضل 

ربي يوفقك يارب 

[ابوخليل]

طيب والقيم الاخرى السالبة  في الاعمدة الاخرى ماذا بشأنها ؟

 

[حربي العنزي]

استاذي الفاضل ابوخليل ربي يحميك من كل سوء يارب 

احسنت استاذي الفاضل عندما يصل الى القيمة السالبة الاولى  ايضا تعتبر القيمة الدفترية واحد 

ربي يوفقك يارب 

كهذه الصورة المرفقة مع جزيل الشكر والاحترام لك استاذي الفاضل 

والله يساعدك على هذا التعب 

[حربي العنزي]

استاذي الفاضل ابوخليل يا لطيب 

الله يكون بعونك على هذا التعب 

نسبة الاندثار هي تحدد عمر الموجود او الصنف مثلا اذا كانت نسبة الاندثار 10 %   اذن عمر هذا الصنف عشرة سنين وبعدها تكون قيمته الدفترية تساوي 1 

وهكذا مع بقية نسب الاندثار