تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طرح وقت من وقت بشكل صحيح 000 مين عندة الحل
#1
اخواني الاعضاء اسعد الله اوقاتكم

اخواني الاعضاء ومشرفينا الاعزاء تم البحث في هذا الموقع ومواقع اخرى عن طريقة طرج وقت من وقت بشكل صحيح ولكن بدون فائدة
نرجو منكم في هذة الايام الفضيلة ان نتوصل الى حل قطعي

عندي ثلاثة تكست بوكس وزر
يكتب في التكست الاول بداية الدوام وليكن 08:00 ص

يكتب في التكست التاني نهاية الدوام وليكن 05:00 م

بدي تظهر النتيجة في تكست ثلاثة وهو مدة الدوام بعد الضغط على الزر بهذة النتيجة 09:00


وهكذا ايها الاخوة
مرفق مثال للتطبيق علية وللتوضيح


الملفات المرفقة
.rar   Time.rar (الحجم : 59.66 ك ب / التحميلات : 73)
الرد }}}
تم الشكر بواسطة:
#2
اخى الفاضل يمكنك إستبدال التيكيست الاول ب datetimepicker لتتفادى أخطاء كتابة المستخدم للصيغة وكذلك التيكست بوكس الثانى
الرد }}}
تم الشكر بواسطة:
#3
السلام عليكم

كود :
Dim res As TimeSpan
        res = Date.Parse("05:00 PM") - Date.Parse("08:00 AM")
        TextBox5.Text = res.ToString("hh\:mm")
الرد }}}
تم الشكر بواسطة:
#4
السلام عليكم

اخي العزيز matrixmas نحن تعمدنا لاستعمال التكست بوكس وقد تم التغلب على مشكلة ادخال صيغة وقت خطا وذالك بكود اجبار المستخدم ادخال الوقت صجة في التكست ولك كل الشكر


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

ولكم كل الشكر
الرد }}}
تم الشكر بواسطة:
#5
يا اخي العزيز

الا تقدر ان تتعب نفسك قليلا لكي تكتب بدل الوقت الثابت هذا : TextBox1.Text؟!!!!!!!!!!

لا ادري لماذا لا تريدون ان تتعلموا؟ اخي العزيز انا تعمدت ان أكتب الكود ثابت لكي ابين لك انه صيغة طرح الاوقات تكون هكذا

يعني endtime-starttime واترك لك تبديل الوقت الثابت بالTextBox+ اضافة PM او AM

لماذا كل شيء تريدونه جاهزا؟ ألا تريد ان تتعب قليلا وتتعلم وتعلم الاخيرن؟

الرد }}}
تم الشكر بواسطة:
#6
sajad كتب :يا اخي العزيز

الا تقدر ان تتعب نفسك قليلا لكي تكتب بدل الوقت الثابت هذا : TextBox1.Text؟!!!!!!!!!!

لا ادري لماذا لا تريدون ان تتعلموا؟ اخي العزيز انا تعمدت ان أكتب الكود ثابت لكي ابين لك انه صيغة طرح الاوقات تكون هكذا

يعني endtime-starttime واترك لك تبديل الوقت الثابت بالTextBox+ اضافة PM او AM

لماذا كل شيء تريدونه جاهزا؟ ألا تريد ان تتعب قليلا وتتعلم وتعلم الاخيرن؟





مشرفنا العزيز sajad طول بالك علينا شوية

اولا اخي العزيز لا يوجد عندي وقت ثابت في التكست الاول او التاني فيجب علي حسب مثالي ان ادخل وقت البداية ووقت النهاية في التكست
ثانيا الكود الذى ارفقتة مع حالتنا في عدم وجود وقت بداية او نهاية ثابت لا يفي بالغرض
ثالثا قمت استعمال الكود المرفق من طرفكم وحاولت فية كثير بدون فائدة
واخير اشكرك كل الشكر لما تبذله من جهد
الرد }}}
تم الشكر بواسطة:
#7
الكود بعد التعديل :
كود :
im res As New TimeSpan
        res = Date.Parse(TextBox2.Text.Trim & "PM") - Date.Parse(TextBox1.Text.Trim & "AM")
        TextBox3.Text = String.Format("{0:00}:{1:00}", res.Hours, res.Minutes)
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}
تم الشكر بواسطة:
#8
السلام عليكم



إقتباس :مشرفنا العزيز sajad طول بالك علينا شوية
اولا اخي العزيز لا يوجد عندي وقت ثابت في التكست الاول او التاني فيجب علي حسب مثالي ان ادخل وقت البداية ووقت النهاية في التكست
ثانيا الكود الذى ارفقتة مع حالتنا في عدم وجود وقت بداية او نهاية ثابت لا يفي بالغرض
ثالثا قمت استعمال الكود المرفق من طرفكم وحاولت فية كثير بدون فائدة
واخير اشكرك كل الشكر لما تبذله من جهد

هل رأيت التعديل على الكود من طرف الاخ Kslawy؟ أرأيت سهولة التعديل؟

اخي العزيز نصيحة مني الك اولا حاول ان تفهم الكود وحاول ان تفهم ما عنيته في كلامي لك فلم اقصد لك الا الخير

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

اخي العزيز ما عنيته ب
إقتباس :يعني endtime-starttime واترك لك تبديل الوقت الثابت بالTextBox+ اضافة PM او AM

هو تبديل الوقت الثابت الذي كتبته انا بTextBox + AM او PM كما فقعل الاخ kslawy

اتمنى لك التوفيق
الرد }}}
تم الشكر بواسطة:
#9
kslawy كتب :الكود بعد التعديل :
كود :
im res As New TimeSpan
        res = Date.Parse(TextBox2.Text.Trim & "PM") - Date.Parse(TextBox1.Text.Trim & "AM")
        TextBox3.Text = String.Format("{0:00}:{1:00}", res.Hours, res.Minutes)


اخي العزيزkslawy يا سلام عليك هذا هو الكود المطلوب بعينة

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

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

Dim res As TimeSpan
res = Date.Parse(TextBox2.Text.Trim) - Date.Parse(TextBox1.Text.Trim)
TextBox3.Text = res.ToString("hh\:mm")


في نهاية هذا الموضوع اشكركم كل الشكر الجزيل لكل مشرفي واعضاء هذا المنتدى العامر
والى ان نلتقي في موضوع اخر يفيد ونستفيد منه لكم كل التحية
الرد }}}
تم الشكر بواسطة:
#10
السلام عليكم

اخي العزيز انت لم تنتبه لما قلته جيدا
إقتباس : بالtextbox+ اضافة pm او am

فقد كان النقص هو اضافة pm او am لهذا السبب كان بيطلعلك خطأ

الله يوفقك لكل خير
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Heart اقدم لكم هدية تصفح منتدى vb4arb.com بشكل أفضل من قبل مع ( vb4arb Code Highlighter ) عبدالله الدوسري 5 1,715 24-01-24, 10:31 PM
آخر رد: annagui
  كيف يتم تعبئة قريد فيو بدون قاعدة بيانات بشكل مباشر؟ nowiglah 1 375 01-12-23, 10:57 PM
آخر رد: Taha Okla
Rainbow [كود] معرفه حجم كل المجلدات في القرص C بشكل واضح محمد مسافر 7 409 10-09-23, 01:56 AM
آخر رد: أبو خالد الشكري
  البرنامج لدي يعمل على ويندوز 11 والان لا يعمل على ويندوز 10 ماهو الحل moh61 1 279 01-09-23, 04:38 AM
آخر رد: اسامه الهرماوي
  [سؤال] كود معرفة العدد المطلوب للصفحات(هل هو صحيح؟ ام يحتاج تعديل؟) سعود 6 832 02-05-23, 09:21 PM
آخر رد: Taha Okla
  هل ممكن اجعل عناصر ال LISTBOX بشكل افقي ismaeel 0 380 01-05-23, 11:26 PM
آخر رد: ismaeel
  ممكن الحل masport tv 0 295 07-04-23, 11:36 AM
آخر رد: masport tv
Rainbow [كود] قراءه العدد بشكل صحيح من قاعده البيانات اكسس محمد مسافر 13 1,166 27-03-23, 10:48 PM
آخر رد: sanyor77
  [vb6.0] مساعدة في تثبت الفيجول بيسك بشكل صحيح ودمجه مع الكريستل ريبورت نورالدين محمد الغذيفي 0 382 14-03-23, 07:29 PM
آخر رد: نورالدين محمد الغذيفي
  ارجو ان لا تبخلو علينا با الحل ahmedbezia 3 466 06-12-22, 01:29 PM
آخر رد: ahmedbezia

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم