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

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

قام بنشر

السلام عليكم ..

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

بواسطة الكود وتطبيقه على الفورم المرفق والذي أعدته لذلك

شكراً لإهتمامكم ,, حفظكم الله

Time Difference.rar

قام بنشر

السلام عليكم


Private Sub Box_TimeIn_AfterUpdate()

Box_TimeIn = Format(Box_TimeIn, "00.00")

If Box_TimeOut <> "" And Box_TimeIn <> "" Then

Me.Box_Time = Me.Box_TimeIn - Me.Box_TimeOut

ElseIf Box_TimeOut = "" Or Box_TimeIn = "" Then

    Box_Time = ""

End If

End Sub

قام بنشر

أخي العزيز

رجاء الاطلاع على المرفق وفيه يمكنك إدخال الوقت بصيغة الأرقام العادية مع وضع علامة/فاصلة الكسر بين الساعات والدقائق والأرقام تعمل بتسيق 24 ساعة يعني الساعة تكتب 16.30 فتجدها بعد خروج من ال textbox هكذا 04:30 PM .

تحياتي

أبو عبدالله

Time Difference.rar

قام بنشر

اخي أبو عبد الله

جزاك الله كل خير

كود جميل

بس انا لاحظت انى لما بدخل الوقت من غير فاصل بيديني الساعة 12:00 AM , يعني لو كتبت 1 بس او 5 بس او اي رقم بس من غير ما اكتب بين الساعات و الدقايق ( . ) فالساعة بتطلع بالشكل ده 12:00 AM

و الله اعلم

قام بنشر

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

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

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

إلى أن يتوفر حلاً لذلك.

تقبلوا جميعاً تحياتي

قام بنشر

أخي الحبيب / أبو أسامة

أولاً جزاك الله كل خير على كلماتك الجميلة ومرورك الكريم

ثانياً أحمد الله تعالى أنك بخير وقد أطليت علينا من جديد وكان المنتدى بالكامل مفتقدك بشدة والكل يعلم ذلك فأرجو ألا تطيل الغيبة ولا تحرمنا من طلتك المشرقة دائماً، بارك الله فيك وبارك لك في علمك وأهلك ومالك وصحتك .

أخي الحبيب / خالد

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

أخي الحبيب / HaNcOcK

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

أخي العزيز / abuzzouz

أشكرك جزيل الشكر وبخصوص نفس ملحوظة أخي HaNcOcK فقد رددت عليها .

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

أبو عبدالله

  • 1 year later...

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