اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

اضافة ايام الى تاريخ متغير


al.sheen2000

الردود الموصى بها

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

تحية مباركة للجميع

اذكان عندي تاريخ معين واريد ان يعطيني التاريخ

 التاريخ المخزن                          التاريح المطلوب ايجاده

25/5/2017                                28/5/2017

1/3/2017                                  28/3/2017

28/6/2017                                 28/7/2017

30/4/2017                                  28/4/2017

اشكر الجميع

 

رابط هذا التعليق
شارك

19 ساعات مضت, al.sheen2000 said:

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

تحية مباركة للجميع

اذكان عندي تاريخ معين واريد ان يعطيني التاريخ

 التاريخ المخزن                          التاريح المطلوب ايجاده

25/5/2017                                28/5/2017

1/3/2017                                  28/3/2017

28/6/2017                                 28/7/2017

30/4/2017                                  28/4/2017

اشكر الجميع

 

حسب ما ورد في مثالك انك تريد ان يعطيك يوم 28 من نفس الشهر ونفس السنة الا اذا كان يوم تاريخ المخزن بيكون 28 تريد ان يعطيك 28 للشهر بعده 
هل انا فهمت من طلبك ام تريد شيء اخر 

رابط هذا التعليق
شارك

11 ساعات مضت, al.sheen2000 said:

نعم هذا اللذي اقصده 

اتفضل اليك هذا الكود
 

Private Sub Text0_AfterUpdate()
    If Day(Me.Text0) = 28 Then Me.Text2 = DateAdd("m", 1, Me.Text0) Else Me.Text2 = 28 & Format(Me.Text0, "/MM/YYYY")
End Sub

 

  • Like 1
رابط هذا التعليق
شارك

11 ساعات مضت, al.sheen2000 said:

هل ممكن يصير هذا الكود ضمن الاستعلام 

بكل تأكيد لكن بتغير بسيط
 

IIf(Day([Text0]) = 28 ; DateAdd("m"; 1; [Text0]) ;  28 & Format([Text0]; "/MM/YYYY"))

Text0 هو اسم حقل اللي فيه تاريخ
واذا ما عرفت ان تطبق ارفع نسخة من قاعدة بياناتك للتعديل عليه

  • Like 1
رابط هذا التعليق
شارك

اخي الفاضل هذا القاعدة  

وهناك استدراك لموضوع اخر سجل في الجدول اذا كان التاريخ اكبر من يوم 28 في الشهر الحالي يعطيني 28 في الشهر التالي 

30/4/2017   يعطي 28/5/2017

اشكككككككككككككككرك

db1.rar

رابط هذا التعليق
شارك

في 12/12/2017 at 13:17, al.sheen2000 said:

وهناك استدراك لموضوع اخر سجل في الجدول اذا كان التاريخ اكبر من يوم 28 في الشهر الحالي يعطيني 28 في الشهر التالي 

30/4/2017   يعطي 28/5/2017

الكود صار هكذ
 

Expr1: IIf(Day([date1])>=28;28 & Format(DateAdd("m";1;[date1]);"/mm/yyyy");28 & Format([date1];"/mm/yyyy"))

 

db1.rar

  • Like 1
رابط هذا التعليق
شارك

اخي الفاضل اشكرك على مجهودك معاي 

هنا في الملف المرفق معطيني شهر 12

وشهر 12 لم نوصل فيه الى بوم 28 

معنى ذلك لا اريد يعطيني الشهر الذي يتجاوز تاريخ الجهاز

 

اطلع على اخر سجل 

حيث اخر تاريخ 28/12/2017   وتاريخ الجهاز 15/12/2017

تحياتي 

 

db1.rar

تم تعديل بواسطه al.sheen2000
رابط هذا التعليق
شارك

اخي الفاضل اشكرك على مجهودك معاي 

هنا في الملف المرفق معطيني شهر 12

وشهر 12 لم نوصل فيه الى بوم 28 

معنى ذلك اريد لايعطيني الشهر الذي يتجاوز تاريخ الجهاز

اطلع على اخر سجل 

تحياتي 

 

 

للرفع فضلا

تم تعديل بواسطه al.sheen2000
رابط هذا التعليق
شارك

18 ساعات مضت, al.sheen2000 said:

هنا في الملف المرفق معطيني شهر 12

وشهر 12 لم نوصل فيه الى بوم 28 

معنى ذلك اريد لايعطيني الشهر الذي يتجاوز تاريخ الجهاز

اذن غير الكود الى هذا

IIf([date1]>=Date();[date1];IIf(Day([date1])>=28;28 & Format(DateAdd("m";1;[date1]);"/mm/yyyy");28 & Format([date1];"/mm/yyyy")))

 

db1 (1).rar

  • Like 1
رابط هذا التعليق
شارك

في 12/19/2017 at 14:04, al.sheen2000 said:

لا اريد يعطيني شهر 12

لان شهر 12 لم نصل فيه الي يوم 28

امل منك التعديل اشكككككككككككككككككككرك

اذا تريد ان يعطيك اي بدل شهر 12 ؟
هل تريد ان يعطيك تاريخ اليوم ؟
اذا نعم اليك هذا

Expr1: IIf([date1]>=Date();[date1];IIf(Month([date1])=Month(Date());Format(Date();"dd/mm/") & Year([date1]);IIf(Day([date1])>=28;28 & Format(DateAdd("m";1;[date1]);"/mm/yyyy");28 & Format([date1];"/mm/yyyy"))))

والا اشرح لي بالتفصيل ماذا تريد بالامثلة 
 

db1 (1).rar

رابط هذا التعليق
شارك

اخي الفاضل اتعبتك معايه تحملني  هذا مثال 

 

لتاريخ المخزن                          التاريح المطلوب ايجاده

25/5/2017                                28/5/2017

1/3/2017                                  28/3/2017

28/6/2017                                 28/7/2017

30/4/2017                                  28/4/2017

21/12/2017                         هو الان يعطيني 28/12/2017  واريده  يعطي  28/11/2017    ----------------- ( هذا التاريخ اللذي يوجد فيه مشكلة )

----------------------------------------------------------------------------

اذا لم يكتمل الشهر يوم 28  يعطني الشهر 28 من الشهر الماضي 

انظر الى اخر تاريخ 

تاريخ اليوم هو 21/12/2017       الواجب يعطي تاريخ 28/11/2017

علما ان معادلة الأربع تواريخ الاولي صحيحية  المشكلة في اخر تاريخ .

الف شكررر

db1.rar

تم تعديل بواسطه al.sheen2000
رابط هذا التعليق
شارك

Expr1: IIf(Month([date1])=Month(Date());28 & "/" & Month([date1])-1 & "/" & Year([date1]);IIf(Day([date1])>=28;28 & Format(DateAdd("m";1;[date1]);"/mm/yyyy");28 & Format([date1];"/mm/yyyy")))

Capture.PNG.5753211a5817a5bf0e9a06e512222b27.PNG

db1 (1).rar

تم تعديل بواسطه Shivan Rekany
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information