ناتج طرح تاريخين

[الرايق2080]

اساتذتي الكرام

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

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

اساتذتي

لدي نموذج وبه حقل 1ـ التاريخ من 2ـ التاريخ إلى 3 ـ ناتج طرح التاريخ

مثال :

لو فرضنا عامل خدم في الشركة مدة 10 سنوات

من تاريخ 2007م الى 2017 = 10 سنوات

اريد الحصول على الناتج التالي في حقل جديد :  

1 ـ اول اربع سنوات من ناتج طرح التاريخ  

2 ـ مازاد عن اربع سنوات في حقل جديد اخر

في النهاية اجمالي الخدمة 10 سنوات

[ابوخليل]

وعليكم السلام

وكأنك تريد  حسبة خاصة لاول اربع سنوات  وحسبة اخرى لما زاد عن ذلك

ارى الافضل لك  تعلن عن ثلاث متغيرات 

1- الاول ياخذ الفرق الكلي بين التاريخين

2- الثاني ياخذ قيمة 4 اذا الاول اكبر من او يساوي 4

3- الثالث ياخذ الباقي من طرح الاول من الثاني اذا  قيمة الاول اكبر من 4

[الرايق2080]

فعلاً استاذي ابو خليل 

اريد ان يتم استخراج استحقاق اول 4 سنوات 

ثم استحقاق ما عن 4 سنوات بعد خصم 4 سنوات الاولى 

ياريت مثال على ذلك 

 

[ابوخليل]

تفضل 

Public adat1_, bdat2, cdat3 As Integer
Public Function kmDate(d1 As Date, d2 As Date)
adat1 = DateDiff("yyyy", d1, d2)
If adat1 >= 4 Then
bdat2 = 4
cdat3 = adat1 - bdat2
Else
MsgBox "لا يوجد مدة كافية او البيانات غير صحيحة"
End If
End Function

 

db1.rar

[الرايق2080]

في ١٤‏/١١‏/٢٠١٧ at 07:36, ابوخليل said:

كل الشكر و التقدير للستاذ ابو خليل