مطلوب حساب رصيد لاجازت

هذه الكود لحساب الفرق بين تاريخين واعطاء الناتج بالسنين

dim myyear as integer
myyear= DateDiff("yyyy", date1,date2)

فتحصل على فرق السنوات في المتغير myyear ثم تستخدم if statment او select case لاختبار القيمة التي بالمتغير

اريد الكود كاملا بع اجراء الاختبارات المنطقية

مع الشكر

قم بكتابة الكود التالي

dim myyear as integer
dim balnce as integer
dim balnce1 as integer

myyear= DateDiff("yyyy", تاريخ التعيين,التاريخ الحالي)
if myyear = 1 then
balnce = 21
end if
if myyear = 10 then
balnce = 30
end if

myyear= DateDiff("yyyy", تاريخ الميلاد,تاريخ الحالي)
if myyear >= 45 then
balnce1 = 21
end if

;)

اسف في اخر كود

balnce1 = 45

بدلا من

balnce1 = 21

اشكرك اخى العزيز على اهتمامك وردك

لكن هناك مشكلة

فمثلا لو كان العمر 52 عاما مدة العمل 25 عاما

من المفروض ان يكون الرصيد

رصيد السن فوق الخمسين =2*45=90

اذا الرصيد عندما يكمل 10 سنوات خدمه =(25-2)-9=14*30=420

رصيد فى فترة قبل 10 سنوات خدمه =9*21=189

الرصيد الاجمالى=90+420+189=699

ويتم قياس الاختارات على هذا المنوال

مثال موظف عمره 45 عاما قضى 15 سنه فى الوظيفة

موظف عمره 51 عاما قضى فى الوظيفة 9 سنوات

مع خالص اجلالى وتقديرى

ارجو ان تشرح لي المطلوب بالتفصيل وسوف اكتب لك الكود المطلوب كاملاً ولكن اريد ايضاح تفصيلي

ياسيدى فى مؤسسه يعمل بها موظفون

اولا:

-من حق العامل ان ياخذ اجاوة اعتيادية

- يوجد رصيد اجازات سنوى ويتم ترحيل الرصيد المتبقى التراكمى للسنة القادمة

مثال موظف عمل لمدة 3 سنوات

يصبح رصيده = 3*21 كمثال

اذا اخذ اجازه اعتيادى لمدة 15 يوم

الرصيد المرحل للعام القادم= 63-15=48 يوم

ثانيا يتم حساب الرصيد السنوى بناء على مايلى

21 يوما لمن تجاوز السنة الاولى ولمدة تسعة سنوات

30 يوما وتحسب لكل سنه لمن امضى عشر سنوات

45 يوما كل سنه لمن تجاوز سن الخمسين

مما سبق هناك رصيد تراكمى تجميعى

الرصيد يتأثر بتاريخ الميلاد لحساب العمر لمن تجاوز الخمسين

الرصيد يتاثر بتاريخ استلام العمل لحساب مدة الخدمة ( لمن بلغ لسنة العاشرة )

ارجو ان تكون رسالتى واضحة مع الشكر

يصبح الكود كالتالي

dim myyear as integer

dim balnce as integer

myyear= DateDiff("yyyy", تاريخ الميلاد,تاريخ الحالي)

if myyear >= 50 then

balnce = 45

end if

myyear= DateDiff("yyyy", تاريخ التعيين,التاريخ الحالي)

if myyear >=1 and myyear <9 then

balnce = 21

end if

if myyear >= 10 then

balnce = 30

end if

يصبح الكود كالتالي

dim myyear as integer

dim balnce as integer

myyear= DateDiff("yyyy", تاريخ الميلاد,تاريخ الحالي)

if myyear >= 50 then

balnce = 45

end if

myyear= DateDiff("yyyy", تاريخ التعيين,التاريخ الحالي)

if myyear >=1 and myyear <9 then

balnce = 21

end if

if myyear >= 10 then

balnce = 30

end if

مشكورين اخوتى...............لمشاركتكم ولكن المطلوب رصيد تراكمى

شكرا علاء وشكرا بلاك بوكسر

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