[الوايلي]

السلام عليكم ورحمه الله وبركاته 
في سؤال حاولت البحث فيه ولم اجد حل له 
كيفية زيادة مثلا رصيد الإجازة لموظف معين كيف اقوم بجعله تلقائي يزيد في مدة محددة بمقدار محدد مثلا لو أردته يزيد في كل شهر 3 ايام بشكل تلقائي في قاعدة البيانات 
بدون تدخل من المستخدم 
يعني لو فرضنا ان موظف جديد باشر في يوم 1/1/2018 ورصيده الابتدائي طبعا 0 ولما يجي 1/2/2018 المفترض يصير رصيده 3 طبعا رصيد الاجازات وهكذا في كل شهر 
وكذلك موظف منقول للقسم وهو موظف قديم لديه رصيد اجازات سابق ولكنه جديد في قسم معين واضفت إجازات مثلا 30 يوم ونفس الطريقة اريد رصيد يزيد بشكل تلقائي في كل شهر 3 ايام  
وشاكر لكم مسبقاً تعاونكم ومثل ماعودتونا بحل مشاكل المبتدأين دائماً وأبداً تحياتي لكم 

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

Date1 حقل مباشرة العمل = 2017/1/1
InitiatoryBalance حقل الرصيد إبتدائي = 0

لمعرفة رصيدة الآن , نحن بتاريخ 2018/01/20

الرصيد الإبتدائي :

        Dim InitiatoryBalance As Integer = 30

تاريخ مباشرة العمل :

        Dim Date1 As New DateTime(2017, 1, 1)

تاريخ اليوم :

        Dim Date2 As New DateTime(2018, 1, 20)

حساب عدد الأشهر من تاريخ مباشرة العمل حتى تاريخ اليوم

        Dim TotalMonth As Integer = DateDiff(DateInterval.Month, Date1, Date2)

حساب الرصيد :

        Dim TotalBalance As Integer = TotalMonth * 3

إضافة الرصيد الإبتدائي , تحسباً لو كان يمتلك رصيد سابق

        Dim EmployeeBalance As Integer = TotalBalance + InitiatoryBalance

لن يتم حساب هذا الشهر لأنه لم يكتمل 

في النهاية يجب أن تخصم عدد الأيام الذي أخذها الموظف من هذا الرصيد الناتج (EmployeeBalance)
عندها ستحصل على الرصيد الحقيقي للموظف



مطقياً أنت لا تزيد الرصيد في كل شهر 
بل تقول بحساب الفرق بين تاريخ مباشرة العمل وتاريخ اليوم والناتج هو عدد الأشهر مظروب في 3
وبذلك ستحصل على الرصيد

لا تحتاج إلى حقل في قاعدة البيانات لحفظ رصيد الموظف, إذا كان نظام الإجازة ثابت بالزيادة


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

[الوايلي]

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

[Sholh]

nice but i need it on access could be?