مشكل مع التواريخ

[حسان12]

بعد التحية للاحبة الكرام اهل الخير 

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

الموضوع باختصار حول الاقدمية المهنية والدرجة 

اود المساعدة في التواريخ

المشكل بالتحديد هو كالتالي : 

بعد اجراء عملية الفرق بين تاريخين الناتج (الفرق) كان سلسلة رقمية وعند تحويل هذه السلسلة الرقمية الي تاريخ اناتج يكون سنوات 1888 

وعند تغيير التاريخ تتغير النتيجة و يتغير التاريخ الناتج ولكن في حدود 1898-1900- 1925- وهكذا يكون الناتج دوما 

وما اريده هو التاريخ 2005-2015-2000- الرجاء المساعدة في حلها 

وشكرا مسبقا احبتي الكرام 

-

[ابوخليل]

عليكم السلام

هات امثلة من تجربتك على :

عملية اجراء الفرق .. والناتج 

تحويل السلسلة الى تاريخ  .. والناتج

تغييير التاريخ .. والناتج

وحبذا ترفع عملياتك هذه في مرفق مبسط

[حسان12]

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

شكراعلي الرد

رفعت لي سيادتكم النموذج المسمى Date 

اتمنى ان تجد لي حلا و شكر مسبقا 

[ابوخليل]

اخي حسان

لم اعرف ما المطلوب اظهاره .. حسب فهمي تريد ان تظهر تاريخ محدد بناء على الايام

انا فهمت انك تاريد معرفة ادنى او اقصى تاريخ كان المفترض ان الموظف يستحق الترقية فيه

فانا عملت على هذا الفهم

انظر الصورة وافدني  اذا هو مطلوبك

[حسان12]

شكرا اخي علي الاهتمام 

لم افهم شيئ 

عند اظهارك اليه ظهر كما اريده .

تماما التاريخ المراد لكن عندي لم يظهر هكذا .

بل ععو( 2018 -2017- 2019  )

تظهر لي 1900-1888-1901

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

علما ان  اكسس عند هو  2019 

وشكر اخي الكريم 

[ابوخليل]

انت ما فهمتني

انا ارسلت لك صورة اذا النتيجة صحيحة ارسل لك المرفق

سوف ارفق لك التعديل

ولكن لدي استفسار حول حقول باقي الاقدمية .. ما المقصود بباقي الاقدمية

اشرح لي  من اجل اعملها لك اذا لم تقدر

 

 

[ابوخليل]

المرفق 

teste2.rar

[حسان12]

 

شكرا اخي استاذ  علي الاهتمام

نعم النتائج صحيحة و ممتازة 

لكن الملحق عند تحميله 

لم يفتح للاسف 

[حسان12]

المقصود بباقي الاقدمية 

هي طرح التاريخ الاخير من احد التواريخ (الدنيا او المتوسطة او القصوى ) الناتح بالسنوات و الاشهر و الايام كل عل حدى 

مثال : سنة 1

و 3 اشهر 

و 15 يوم 

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

 

[ابوخليل]

المرفق بدون ضغط

teste2.accdb

[حسان12]

شكرا جزيلا استاذي الفاضل 

هذا هو المطلوب بالضبط 

شكرا و الف شكر 

لوسمحتي لي استاذ 

هل من طريقة لنقسم مدة العمل على 2

لحساب نصف المدة 

مثال

موظف عمل في من 12/10/2012 الى 20/05/2015

عند خساب المدة تكون 

بالسنوات =4

الاشهر =7

الايام =8

حساب نصف هذه المدة و تحويلها الى تاريخ للتنفبذ 

وشكرا مسبقا 

 

 

[ابوخليل]

6 ساعات مضت, حسان12 said:

 

موظف عمل في من 12/10/2012 الى 20/05/2015

عند خساب المدة تكون 

بالسنوات =4

الاشهر =7

الايام =8

حساب نصف هذه المدة و تحويلها الى تاريخ للتنفبذ 

وشكرا مسبقا 

 

اولا : حسبتك اعلاه غير صحيحة

لأن الناتج بين التاريخين اعلاه حوالي سنتين وكذا اشهر

ثانيا : كيف تريد الناتج تاريخ ؟؟ .. اكتب لي بيانات حقيقية او قريبة منها

مثلا : تاريخ بداية كذا ... تاريخ نهاية كذا ... الناتج يكون التاريخ كذا

[حسان12]

بعد التحية استاذنا الفاضل 

عندنا تحسب الاقدمية بطريقتين 

القطاع العام / القطاع الخاص 

القطاع العام تبقى المدة كماهي بالسنوات و الاشهر و الايام 

اما : القطاع الخاص فهي تقسم على اثنين 

هذا بالمختصر 

و ما اريده هو في حالة اختيار القطاع العام تبقى المدة و لا تتغير 

اما في حالة اختيار القطاع الخاص تقصم المدة على اثنين 

وشكرا مسبقا على المساعدة سيدي الكريم الفاضل 

 

test2.accdb

[ابوخليل]

تفضل

اتمنى يحقق مطلوبك

test12.accdb

[حسان12]

شكرا استاذ 

هذا هو المطلوب 

لكن اشكال بسيط  و هو في السنوات تظهر بالفاصلة مثل  2.5سنة 

.هل يمكن تحويل ما بعد الفواصل 

 فواصل السنوات الي اشهر و فواصل الاشهر الي ايام 

و الايام اذا وصلت مدتها الى شهر ترجع الى الشهور 

تظهر بهذه الطريقة 

  مثال:1  3سنة -  5اشهر - 15 يوم  صحيح 

وليس بهذه الطريقة

مثال 2 بعد القسمة :  1.5 سنة - 2.5 شهر - 7.5يوم  خطا 

لان 0.5 سنة = 6 اشهر 

و 0.5 شهر = 15 يوم

يتم اظافتها الى مثال 2

ليكون الناتج النهائي :  1 سنة 8 شهر  22 يوم  

يمكن اهمال فواصل الايام 

وشكرا سيدي 

اتعبتك معي 

 

 

 

 

[ابوخليل]

تفضل

 '  من روائع ابي هادي مع بعض تصرف
  '--------------------------------------
  Const YearAvg = 365.25
  Dim vDays As Long
  '----------------
  Dim vyy As Integer
  Dim vmm As Integer
  Dim vdd As Integer
  Dim alldays As Integer, halfdays As Integer
    alldays = DateDiff("d", date1, date2)
    halfdays = alldays \ 2
  If Me.Frame1 = 1 Then
  vDays = alldays
  Else
  vDays = halfdays
  End If
  
  vyy = Fix(vDays / 365)
  If Fix(vyy * YearAvg) > vDays Then
    vyy = vyy - 1
  End If
  '-------------------------------
  vDays = vDays - Fix(vyy * YearAvg)
  '-------------------------------
  vmm = Fix(vDays / 29.5)
  If IIf(vmm > 2, CLng((vmm - 2) * 30.6) + 59, CLng(vmm * 30.6) + Int(vmm > 1) * 2) > vDays Then
    vmm = vmm - 1
  End If
  '-------------------------------
  vdd = vDays - IIf(vmm > 2, CLng((vmm - 2) * 30.6) + 59, CLng(vmm * 30.6) + Int(vmm > 1) * 2)
        Me.m_d = vdd
        Me.m_m = vmm
        Me.m_y = vyy

 

test13.rar

[حسان12]

ممنون لك سيدي الفاضل 

بعد تحميل الملف لم يفتح 

 و عند نسخ الكود  ووضعه مع السابق لم تنجح العملية 

و ولما محوت السابق ووضع الجديد لم يحدث شيء بل لم يحسب نهائيا 

وشكرا استاذي 

لا تؤاخذني لاني اتعلم منك 

و انا جديد في الميدان 

[ابوخليل]

هذه المرة الثانية تذكر انه لا يفتح

الملف مضغوط يجب ان تفك الضغط عنه اولا

 الملف يعمل بكفاءة 100% .. جربته اكثر من مرة

تفضل هذا ملف غير مضغوط

test13.accdb

[حسان12]

معذرة استاذ 

لعلى المشكل في برنامج winrar 

لهذا لم يفتح معي 

العديل في غاية الروعة شكرا 

والف شكر 

و مليون شكر 

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

 فضلك فوق الرأس سيدي الفاضل  

[ابوخليل]

الفضل لله ، وشكرا لدعواتك الطيبة

والحمد لله على تحقق مطلوبك

[حسان12]

السلام عليكم 

وجمعة مباركة يا رب 

اسمحلي سيدي الفضل ان اطلب منكم مساعدتي في حل لهذه الاشكال 

لاني لم اتمكن من حله 

وشكرا مسبقا 

 

 

test.accdb

تم تعديل أغسطس 18, 2023 بواسطه حسان12

[ابوخليل]

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

ايضا عملت لك بعض التحسينات :

مادمت تعمل على جدولين :

1- تم عمل نموذج رئيسي مرتبط بجدول الاسماء

2- تم ضبط النموذج الفرعي لتلافي ترك سجلات فارغة ، ( جعلت حقل التاريخ : الى .. اجباري )

3- الازرار (حفظ /جديد ) لا داعي لهما فأكسس يحفظ آليا

اما زر جديد فانت لست بحاجة جديد او بمعنى آخر لا يتصور عمل سجل جديد لانك سوف تحسب الفترة لموظف موجود فعلا ، وكل ما عليك هو البحث عنه داخل مربع التحرير

test2 (1).accdb

[حسان12]

شكرا شكرا 

دمت ذخرا لنا استاذ 

بارك الله فيك و جزاك الله خير جزاء عما تقدمه من مساعدات 

[حسان12]

السلام عليكم 

  استاذنا الفاضل  اتمنى مساعدتك  في مايلي : 

1-  عدم تغيير الاسلاك و الرتب في الجدول الخاص  بهم 

2-  هل الربط بين السلك و الرتبة  صحيح 

 في الحقيقة ممكن تراجعلي هذا العمل 

 لانه نموذج لاظافة  جدد  و التعديل و الحذف و البحث

 

 

 

 

 

test0.7z

[ابوخليل]

عليكم السلام

اهلا اخي حسان

من قواعد المشاركة افراد كل استفسار او سؤال بموضوع وعنوان جديد يخصه .