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

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

قام بنشر

هذا كود للاستاذ المحترم محمد صالح اعزه الله

اريد ه يعمل على الملف المرفق كرما منكم

Function mas_date_diff(oldd As Date, newd As Date, frmat As String) As String
Dim years, months, days As Integer
years = Year(newd) - Year(oldd)
If Month(newd) < Month(oldd) Then
years = years - 1
months = (Month(newd) + 12) - Month(oldd)
Else
months = Month(newd) - Month(oldd)
End If
If Day(newd) < Day(oldd) Then
months = months - 1
days = (Day(DateSerial(Year(oldd), Month(oldd) + 1, 1) - 1) - Day(oldd)) + Day(newd)
Else
days = Day(newd) - Day(oldd)
End If
If months < 0 Then
months = 11
years = years - 1
End If
mas_date_diff = IIf(frmat = "y", Format(years, "00"), IIf(frmat = "m", Format(months, "00"), IIf(frmat = "d", Format(days, "00"), Format(years, "00") & " Years, " & Format(months, "00") & " Months, and " & Format(days, "00") & " Days ")))
End Function

كشف- 12 للصف السادس 2014-2015.rar

قام بنشر

جزاك الله كل خير وبارك فيك

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

والتاريخين هنا هو تاريخ الميلاد والتاريخ 1/10/2014

فهل ادى الغرض منه

مازال لم يؤد الغرض منه

قام بنشر (معدل)

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

 

أخي الكريم، تم التعديل على معادلة حساب السن، أرجو أن يكون المطلوب...

 

 

أخوك بن علية

 

 

المرفق : كشف- 12 للصف السادس 2014-2015.rar

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

الأخ الكريم قصي

تفضل الملف المرفق ...

الدالة في رأيي تعمل ولكن تطبيقها لم يكن بالشكل الصحيح هذه نقطة

نقطة أخرى حساب الأيام بهذه الدالة قد لا يكون صحيحا هناك يوم فرق فقمت بعمل معادلة لعمل ذلك .. مع العلم أنه يمكن الاستغناء عن الدالة المستخدمة لوجود دالة في الإكسيل Datedif تؤدي هذا الغرض

كشف- 12 للصف السادس 2014-2015.rar

قام بنشر

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

 

أخي الكريم، تم التعديل على معادلة حساب السن، أرجو أن يكون المطلوب...

 

 

أخوك بن علية

 

 

المرفق : attachicon.gifفرق الوقت.rar

جزاك الله كل خير وبارك فيك اخي الاستاذ بن عليه

المرفق نريده 2003 كرما منك

بعد اذنك اريد كود طباعه ليطبع كل 25 اسم في صفحة وان وجد معادله لحساب السن تؤدي الغرض واسهل فأرفقها ايضا

قام بنشر

 

الأخ الكريم قصي

تفضل الملف المرفق ...

الدالة في رأيي تعمل ولكن تطبيقها لم يكن بالشكل الصحيح هذه نقطة

نقطة أخرى حساب الأيام بهذه الدالة قد لا يكون صحيحا هناك يوم فرق فقمت بعمل معادلة لعمل ذلك .. مع العلم أنه يمكن الاستغناء عن الدالة المستخدمة لوجود دالة في الإكسيل Datedif تؤدي هذا الغرض

 

جزاك الله كل خير اخي الاستاذ ياسر وبارك الله فيك

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

قام بنشر (معدل)

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

 

أخي الكريم قصي، عذرا لم أرفق الملف الصحيح...

 

أخوك بن علية

 

الملف المرفق الصحيح : كشف- 12 للصف السادس 2014-2015.rar

 

ملاحظة : تم إرفاق الملف الصحيح في ردي السابق (بالتعديل على الرد)

 

بالنسبة لكود الطباعة يمكنك استعمال الطباعة العادية بعد حذف الصفوف الفارغة التي أدرجتها بعد كل 25 صف... بعد حذف هذه الصفوف تبين لي أن الملف مهيأ للطباعة بالشروط التي طلبتها (طباعة كل 25 صف في صفحة) ولا أرى ضرورة لإدراج كود للطباعة.... والله أعلم

تم تعديل بواسطه بن علية حاجي

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