حساب الفرق بين تاريخين عن طريق مربعات تحرير وسرد

kaser906 كتب:

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

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

حيث أن جميع النتائج تأتي خاطئة

لأني أريد عند أدخال المدة وأدخال تاريخ البداية يعطيني تاريخ النهاية تلقائيا

وجدت أن اغلب الدالات لاتتعرف على التاريخ المدرج بحقل النص على أنه تاريخ وتأتي النتائج خطأ

أتمنى من الأخوة المساعدة في التعديل على المثال

ولكم تحياتي

استخدم هذا الكود اخى

ليقوم باضافة عدد الايام التى تحددها فى حقل المدة

Me.EndDat = CStr(Format(DateAdd("d", Me.Moditoha, CDate(startDat)), "yyyy/mm/dd"))

شكراً لك أخي mrnooo2000

وجدت أن الكود الذي وضعته يعطيني يوم زيادة

مثلاً اذا كانت المدة 5 ايام وتاريخ البداية 1/1/1431 فأن الكود يعطيني تاريخ النهاية بزيادة يوم فيكون تاريخ النهاية 6/1/1431

حاولت التعديل على الكود بهذه الطريقة

Me.EndDat = CStr(Format(DateAdd("d", Me.Moditoha, CDate(startDat))-1, "yyyy/mm/dd"))

فأعطاني التيجة الصحيحة

هل التعديل بهذه الطريقة على الكود له نتائج غير متوقعه مثلاً مستقبلاً

لكن المشكلة بقيت أن الحقل لايستطيع حساب تاريخ البداية عند ما يكون 30/2/1431 وأنتقال التركيز إلى تاريخ النهاية تأتي رسالة خطأ

لي أيضاً طلب اخر أخي هل هناك طريقة لادراج اليوم تلقائياً

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

مازلت بنتظار أجابه منك أخي mrnooo2000

أو أي حد من الشباب لديه الحل

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

kaser906 كتب:

شكراً لك أخي mrnooo2000

وجدت أن الكود الذي وضعته يعطيني يوم زيادة

مثلاً اذا كانت المدة 5 ايام وتاريخ البداية 1/1/1431 فأن الكود يعطيني تاريخ النهاية بزيادة يوم فيكون تاريخ النهاية 6/1/1431

حاولت التعديل على الكود بهذه الطريقة

Me.EndDat = CStr(Format(DateAdd("d", Me.Moditoha, CDate(startDat))-1, "yyyy/mm/dd"))

فأعطاني التيجة الصحيحة

هل التعديل بهذه الطريقة على الكود له نتائج غير متوقعه مثلاً مستقبلاً

لكن المشكلة بقيت أن الحقل لايستطيع حساب تاريخ البداية عند ما يكون 30/2/1431 وأنتقال التركيز إلى تاريخ النهاية تأتي رسالة خطأ

لي أيضاً طلب اخر أخي هل هناك طريقة لادراج اليوم تلقائياً

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

تمام

و لكن الاحوط هكذا

Me.EndDat = CStr(Format(DateAdd("d", Me.Moditoha - 1, CDate(startDat)), "yyyy/mm/dd"))
Me.Day = Format(CDate(startDat), "dddd")
Me.Daay = CStr(Format(DateAdd("d", Me.Moditoha - 1, CDate(startDat)), "dddd"))

ألله يعطيك العافية أخي mrnooo2000

كل هذا جميل جداً

بقي أن دالة Cdate ترجع في الحساب الى التقويم الهجري مما يعطي نتيجة خطأ في حال كان تقويم أم القرى 30 يوم والتقويم الهجري 29 يوم

لأن الدالة تعطي تاريخ يوم النهاية بزيادة يوم فعند أدخال المدة 5 أيام مثلاً ويكون تاريخ بداية الدورة التدريبية 29/02/1431 تقوم الدالة بأعطاء تاريخ النهاية 04/03/1431

أي أن الدالة تخطة تاريخ يوم 30 حسب تقويم أم القرى

فهل هناك دالة أخرى لاترجع للتقويم وتحسب التاريخ الهجري على أنه 30 يوم في كل الأحوال سواء كان التقويم هجري أو .أم القرى

تقبل تحياتي مجددا

سأحاول ان شاء الله اخى

و الله المستعان

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

تفضل اخى جرب هذا الكود و أخبرنى

Dim x, y, z As Integer
x = Val(Me.cmdYoom) + Val(Me.Moditoha) - 1
y = Me.cmdShaher
z = Me.cmdSanh

If x > 30 Then
y = y + (x \ 30)
x = x - 30
End If

If y > 12 Then
z = z + (y \ 12)
y = y - 12
End If
Me.[cmdYoomm] = Format$(x, "00")
Me.[cmdShaherr] = Format$(y, "00")
Me.[cmdSanhh] = Format$(z, "00")

Me.[EndDat] = Format$(z, "00") & "/" & Format$(y, "00") & "/" & Format$(x, "00")

تسلم اخي بارك الله فيك الأن النتيجة اصبحت صحيحه

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

أخي mrnooo2000

وجدت أن الكود إذا كان مدة الايام مثلاً 50 يوم وتاريخ البداية مثلاً 25/2/1431 فأنه يعطيني تاريخ النهاية 44/4/1431

أي أن الكود يقوم بحساب

ثانياً وجدت أن الكود لايعطيني نتائج صحيحه بالنسبة لأسماء الأيام

اعتذر على أزعاجك

عندك حق اخى

و الخطأ عندى

عدل هذا الجزء فى الكود

If x > 30 Then
y = y + (x \ 30)
x = x - ((x \ 30) * 30)
End If

If y > 12 Then
z = z + (y \ 12)
y = y - ((y \ 12) * 12)
End If

او استخدم هذا الكود وحده و سيفى بالغرض ان شاء الله

Dim d As Date
Application.SetOption "Use Hijri Calendar", True
d = CDate(strdate)
Me.EndDat = Format(DateAdd("d", Val(Me.Moditoha) - 1, d), "yyyy/mm/dd")
Me.Day = Format(d, "dddd")
Me.Daay = Format(Me.EndDat, "dddd")
Application.SetOption "Use Hijri Calendar", False

و بالنسبة للايام

لا يوجد خطأ الا فى يوم 30/2

و لاننى استخدم التاريخ الميلادى

فارجو منك التجريب و اخبارى بالنتيجة

او استخدم هذا الكود وحده و سيفى بالغرض ان شاء الله

Dim d As Date 
Application.SetOption "Use Hijri Calendar", True 
d = CDate(strdate) 
Me.EndDat = Format(DateAdd("d", Val(Me.Moditoha) - 1, d), "yyyy/mm/dd") 
Me.Day = Format(d, "dddd") 
Me.Daay = Format(Me.EndDat, "dddd") 
Application.SetOption "Use Hijri Calendar", False

بالنسبة لهذا الكود يوجد خطأ في هذا الجزأ

d = CDate(strdate)

تأتي رسالة خطأ عند تنفيذ الكود

سأقوم بتجربة الكود الأول وأرد عليك

تحياتي لك وتقديري

أه من التسرع

استبدله بهذا

d = CDate(startDat)

اخي mrnooo2000

بالنسبة للكود الأول يعمل بشكل جيد

بالنسبة للكود الثاني

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

لكن يبدو به مشكلة

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

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

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

ايضا عند اختيار التاريخ من خلال التقويم ( مربع انتقاء التاريخ ) يتحول التاريخ من هجري الى ميلادي ويكون من اليسار الى اليمين

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

بنفس تنسيق التاريخ بمربعات التحرير والسرد كي اتلافى الأخطاء بالتاريخ اثناء البحث واثناء التحقق من عدم ادخال تاريخ مكرر

اسمح لي اخي mrnooo2000

فقد تعبتك معي ولكن بما انك ابتدأت فلا اعتقد ان شخص اخر سوف يكمل مساعدتي

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

تقضل اخى

جرب المرفق

و ان شاء الله ستجد به الحل لجميع مشاكلك

لادخال التاريخ اضغط ضغطا مزدوجا على حقل تاريخ البداية

و بعد ذلك ادخل المدة

و سيتم حساب تاريخ النهاية

date nember.rar

فعلاً طريقة سهلة جدا أخي

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

الله يعطيك العافية ويجزيك كل خير

mrnooo2000 كتب:

تقضل اخى

جرب المرفق

و ان شاء الله ستجد به الحل لجميع مشاكلك

لادخال التاريخ اضغط ضغطا مزدوجا على حقل تاريخ البداية

و بعد ذلك ادخل المدة

و سيتم حساب تاريخ النهاية

يبدو أن المشاكل لاتريد أن تنتهي

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

وعند محاولة النقر المزدوج تظهر عندي رسال خطأ

رفعت الصورة بالمرفقات

Eroor.rar

تحتاج الى تعريف المرجع

microsoft dao 3.6

mrnooo2000 كتب:

تحتاج الى تعريف المرجع

microsoft dao 3.6

ارجو منك اخي اضافة كافة المراجع التي يحتاجها التقويم

لأني لمى وضعت المرجع الذي أشرت مازال هناك فيه أخطاء

Dim dbs As Database
  Dim vic As Recordset
  Dim wkd As Recordset
  Dim a As Integer
  Dim MyGrDate As Date
  Dim NoVic As Boolean
  Dim NoWkd As Boolean

  On Error Resume Next

  Set dbs = CurrentDb
  Set vic = dbs.OpenRecordset("Cal_Holidays", dbOpenDynaset)
  NoVic = Err.Number > 0
  Err.Clear
  Set wkd = dbs.OpenRecordset("Cal_Weekends", dbOpenDynaset)
  NoWkd = Err.Number > 0
  If Not NoWkd Then
    wkd.Filter = "W_VICAT = -1"
    Set wkd = wkd.OpenRecordset
  End If

الخطأ الآن هنا

OpenRecordset

اخى افتح المثال الاخير

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

نعم أخي قمت بتنشيط جميع المراجع ومازال الخطأ هنا

OpenRecordset

Dim dbs As Database 
  Dim vic As Recordset 
  Dim wkd As Recordset 
  Dim a As Integer 
  Dim MyGrDate As Date 
  Dim NoVic As Boolean 
  Dim NoWkd As Boolean 

  On Error Resume Next 

  Set dbs = CurrentDb 
  Set vic = dbs.OpenRecordset("Cal_Holidays", dbOpenDynaset) 
  NoVic = Err.Number > 0 
  Err.Clear 
  Set wkd = dbs.OpenRecordset("Cal_Weekends", dbOpenDynaset) 
  NoWkd = Err.Number > 0 
  If Not NoWkd Then 
    wkd.Filter = "W_VICAT = -1" 
    Set wkd = wkd.OpenRecordset 
  End If

أشكرك أخي mrnooo2000

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

تقبل تحياتي وتقديري وامتناني