اذهب الي المحتوي
أوفيسنا

اريد حساب مجموع اوقات الفترات في الوقت


hh88

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

اسعد الله اوقاتكم بكل خير

اريد حساب مجموع اوقات الفترات في الوقت

حاوت وضع فانكشن ولكن لاحتسب العدد الصحيح

مفترض ان يكون المحموع أعلى من 29 ساعة

وشكراً جزيلاً والله يوفقكم يارب

:fff:

5a323f9ccdc8d_.png.5aa77c41d35b67ccddba7beb7c50d9ea.png

حساب فترات الوقت.rar

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

3 hours ago, hh88 said:

اسعد الله اوقاتكم بكل خير

اريد حساب مجموع اوقات الفترات في الوقت

حاوت وضع فانكشن ولكن لاحتسب العدد الصحيح

مفترض ان يكون المحموع أعلى من 29 ساعة

وشكراً جزيلاً والله يوفقكم يارب

:fff:

5a323f9ccdc8d_.png.5aa77c41d35b67ccddba7beb7c50d9ea.png

حساب فترات الوقت.rar

اعتذر عن الأخطاء الإملائية 

المقصد في السؤال هو ان مجموع الفترات غير صحيح 

مفترض ان يكون اعلى من هذا الرقم للمجموع العام 

ماهي الصيغه التي تأتي بالعدد الصحيح للمجموع

وشكرا أساتذتي 

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

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

 

في احد الاوقات ، النهاية قبل البداية ، فيجب مراجعته (انا عدلت عليه في القاعدة المرفقة):smile:

 

اولا نحسب فارق الوقت بالدقائق

800.Clipboard01.jpg.447f044d4a95396084a918c00724d417.jpg

.

ثم في التقرير ، عندنا حلقين للنتائج (لأنك قد تختار الاقصر):

Private Sub PageFooterSection_Print(Cancel As Integer, PrintCount As Integer)

'الطريقة المفضلة
    Total_Miutes = DSum("[Minutes]", "qry_CT")
    H = Int(Total_Miutes / 60)
    M = (Total_Miutes / 60) - H
    M = Round(M * 60)
    Me.iTime = H & ":" & M
    
 
'الطريقة اعلاه في سطر واحد ، وهي ابطأ
    Me.iT2 = Int(DSum("[Minutes]", "qry_CT") / 60) & ":" & Round(((DSum("[Minutes]", "qry_CT") / 60) - Int(DSum("[Minutes]", "qry_CT") / 60)) * 60)
    
End Sub

 

جعفر

800.حساب فترات الوقت.accdb.zip

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

35 minutes ago, jjafferr said:

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

 

في احد الاوقات ، النهاية قبل البداية ، فيجب مراجعته (انا عدلت عليه في القاعدة المرفقة):smile:

 

اولا نحسب فارق الوقت بالدقائق

800.Clipboard01.jpg.447f044d4a95396084a918c00724d417.jpg

.

ثم في التقرير ، عندنا حلقين للنتائج (لأنك قد تختار الاقصر):


Private Sub PageFooterSection_Print(Cancel As Integer, PrintCount As Integer)

'الطريقة المفضلة
    Total_Miutes = DSum("[Minutes]", "qry_CT")
    H = Int(Total_Miutes / 60)
    M = (Total_Miutes / 60) - H
    M = Round(M * 60)
    Me.iTime = H & ":" & M
    
 
'الطريقة اعلاه في سطر واحد ، وهي ابطأ
    Me.iT2 = Int(DSum("[Minutes]", "qry_CT") / 60) & ":" & Round(((DSum("[Minutes]", "qry_CT") / 60) - Int(DSum("[Minutes]", "qry_CT") / 60)) * 60)
    
End Sub

 

جعفر

800.حساب فترات الوقت.accdb.zip

الف شكر استاذي الكريم جعفر 

بارك الله فيك وزادك علما 

هل في طريقة اجعل هذا الكود فانكشن داخل مربع نص 🌹

سامحني ازعجتك 

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

6 hours ago, jjafferr said:

حياك الله:smile:

 

نعم ، استعمل السطر الاخير ،

ولكنه 3 مرات ابطأ من الكود الاصل.

 

جعفر

فعلا استاذي الكريم احس الفانكشن داخل مربع النص 

عند ظهور النتيجه تكون بطئية في كل أعمالي 

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

وتسبب لي بطء شديد في ظهور النتائج 

لاأعلم لماذا 

انا افضل هذي الطريقة المختصرة لانها سهله 

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

السلام عليكم :smile:

 

هذا الرابط به جواب على سؤال البطء:

 

 

19 ساعات مضت, hh88 said:

انا افضل هذي الطريقة المختصرة لانها سهله

.

هذا التفكير غير صحيح ، حيث انك تضع الكود مرة واحدة في برنامجك ، بغض النظر عن طوله ،

انا استخدم هذه الوحدة النمطية في جميع برامجي ، لربط الواجهة مع الجداول ، وطولها 1000 سطر :

.

بالاضافة الى المكتبات الاخرى:smile:

 

جعفر

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

59 minutes ago, jjafferr said:

هذا التفكير غير صحيح ، حيث انك تضع الكود مرة واحدة في برنامجك ، بغض النظر عن طوله ،

انا استخدم هذه الوحدة النمطية في جميع برامجي ، لربط الواجهة مع الجداول ، وطولها 1000 سطر :

استاذي الكريم جعفر

معليش تحملي 

هل اقدر 

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

وشكرا حبيبنا 

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

13 hours ago, jjafferr said:

السلام عليكم :smile:

 

هذا الرابط به جواب على سؤال البطء:

 

 

.

هذا التفكير غير صحيح ، حيث انك تضع الكود مرة واحدة في برنامجك ، بغض النظر عن طوله ،

انا استخدم هذه الوحدة النمطية في جميع برامجي ، لربط الواجهة مع الجداول ، وطولها 1000 سطر :

.

بالاضافة الى المكتبات الاخرى:smile:

 

جعفر

شكرا شكرا اخي واستاذي الكريم جعفر 

شكر على التوضيح  

أسال الله ان يرزقك من واسع رزقه وان يزدك عما 

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

المفترض يكون الفرق 01:10

هل من حل لتغيير المحسوب في حقل الفترة 

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

5a34d3066e310_After24hours.png.339872d3c1e9175c12b2a3a2158b0264.png

 

5a34d380eaffa_.png.d3afe5c781a1b38086d806645696155e.png

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

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

 

تفضل (هذا للنسخ واللصق) ، ولكنه للأسف بسبب العربية ، فان الحقول تلخبطت:

IIf([النهاية]>[البداية],[النهاية]-[البداية],([النهاية]+1)-[البداية])

.

وهنا الصورة الصحيحة:

800.1.Clipboard01.jpg.5d76b3cabdba7e6ae8febd2aafb59cd9.jpg

.

وتم تعديل الاستعلام كذلك في المرفق:smile:

 

جعفر

800.1.حساب فترات الوقت.accdb.zip

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

On ‏٢٨‏/‏٠٣‏/‏١٤٣٩ at 7:56 PM, jjafferr said:

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

 

تفضل (هذا للنسخ واللصق) ، ولكنه للأسف بسبب العربية ، فان الحقول تلخبطت:


IIf([النهاية]>[البداية],[النهاية]-[البداية],([النهاية]+1)-[البداية])

.

وهنا الصورة الصحيحة:

800.1.Clipboard01.jpg.5d76b3cabdba7e6ae8febd2aafb59cd9.jpg

.

وتم تعديل الاستعلام كذلك في المرفق:smile:

 

جعفر

800.1.حساب فترات الوقت.accdb.zip

الف مليون شكر استاذي الكريم جعفر

بارك الله فيك ولايحرمنا منك يارب

تقبل خالص تحياتي :fff:

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

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