اخواني الاعضاء اسعد الله اوقاتكم
اخواني الاعضاء ومشرفينا الاعزاء تم البحث في هذا الموقع ومواقع اخرى عن طريقة طرج وقت من وقت بشكل صحيح ولكن بدون فائدة
نرجو منكم في هذة الايام الفضيلة ان نتوصل الى حل قطعي
عندي ثلاثة تكست بوكس وزر
يكتب في التكست الاول بداية الدوام وليكن 08:00 ص
يكتب في التكست التاني نهاية الدوام وليكن 05:00 م
بدي تظهر النتيجة في تكست ثلاثة وهو مدة الدوام بعد الضغط على الزر بهذة النتيجة 09:00
وهكذا ايها الاخوة
مرفق مثال للتطبيق علية وللتوضيح
اخى الفاضل يمكنك إستبدال التيكيست الاول ب datetimepicker لتتفادى أخطاء كتابة المستخدم للصيغة وكذلك التيكست بوكس الثانى
السلام عليكم
كود :
Dim res As TimeSpan
res = Date.Parse("05:00 PM") - Date.Parse("08:00 AM")
TextBox5.Text = res.ToString("hh\:mm")
السلام عليكم
اخي العزيز matrixmas نحن تعمدنا لاستعمال التكست بوكس وقد تم التغلب على مشكلة ادخال صيغة وقت خطا وذالك بكود اجبار المستخدم ادخال الوقت صجة في التكست ولك كل الشكر
اما اخي العزيزsajad نشكرك اولا على الرد ولكن اخي الكود المرفق هو كود ثابت بينما ما نبحث عنة حسب المثال المرفق هو ادخال وقتين وطرحهما واحد في الفترة الصباحية والتاني في الفترة المسائية
ولكم كل الشكر
يا اخي العزيز
الا تقدر ان تتعب نفسك قليلا لكي تكتب بدل الوقت الثابت هذا : TextBox1.Text؟!!!!!!!!!!
لا ادري لماذا لا تريدون ان تتعلموا؟ اخي العزيز انا تعمدت ان أكتب الكود ثابت لكي ابين لك انه صيغة طرح الاوقات تكون هكذا
يعني endtime-starttime واترك لك تبديل الوقت الثابت بالTextBox+ اضافة PM او AM
لماذا كل شيء تريدونه جاهزا؟ ألا تريد ان تتعب قليلا وتتعلم وتعلم الاخيرن؟
sajad كتب :يا اخي العزيز
الا تقدر ان تتعب نفسك قليلا لكي تكتب بدل الوقت الثابت هذا : TextBox1.Text؟!!!!!!!!!!
لا ادري لماذا لا تريدون ان تتعلموا؟ اخي العزيز انا تعمدت ان أكتب الكود ثابت لكي ابين لك انه صيغة طرح الاوقات تكون هكذا
يعني endtime-starttime واترك لك تبديل الوقت الثابت بالTextBox+ اضافة PM او AM
لماذا كل شيء تريدونه جاهزا؟ ألا تريد ان تتعب قليلا وتتعلم وتعلم الاخيرن؟
مشرفنا العزيز sajad طول بالك علينا شوية
اولا اخي العزيز لا يوجد عندي وقت ثابت في التكست الاول او التاني فيجب علي حسب مثالي ان ادخل وقت البداية ووقت النهاية في التكست
ثانيا الكود الذى ارفقتة مع حالتنا في عدم وجود وقت بداية او نهاية ثابت لا يفي بالغرض
ثالثا قمت استعمال الكود المرفق من طرفكم وحاولت فية كثير بدون فائدة
واخير اشكرك كل الشكر لما تبذله من جهد
الكود بعد التعديل :
كود :
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)
السلام عليكم
إقتباس :مشرفنا العزيز sajad طول بالك علينا شوية
اولا اخي العزيز لا يوجد عندي وقت ثابت في التكست الاول او التاني فيجب علي حسب مثالي ان ادخل وقت البداية ووقت النهاية في التكست
ثانيا الكود الذى ارفقتة مع حالتنا في عدم وجود وقت بداية او نهاية ثابت لا يفي بالغرض
ثالثا قمت استعمال الكود المرفق من طرفكم وحاولت فية كثير بدون فائدة
واخير اشكرك كل الشكر لما تبذله من جهد
هل رأيت التعديل على الكود من طرف الاخ Kslawy؟ أرأيت سهولة التعديل؟
اخي العزيز نصيحة مني الك اولا حاول ان تفهم الكود وحاول ان تفهم ما عنيته في كلامي لك فلم اقصد لك الا الخير
فكثير من الاعضاء يقعون في مشكلة لانهم لا يفهمون الاكواد لانها جاهزة فيبنون برامجهم على الاكواد الجاهزة واذا حدث خطأ ما يقعون في مشكلة كبيرة
اخي العزيز ما عنيته ب إقتباس :يعني endtime-starttime واترك لك تبديل الوقت الثابت بالTextBox+ اضافة PM او AM
هو تبديل الوقت الثابت الذي كتبته انا بTextBox + AM او PM كما فقعل الاخ kslawy
اتمنى لك التوفيق
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")
في نهاية هذا الموضوع اشكركم كل الشكر الجزيل لكل مشرفي واعضاء هذا المنتدى العامر
والى ان نلتقي في موضوع اخر يفيد ونستفيد منه لكم كل التحية
السلام عليكم
اخي العزيز انت لم تنتبه لما قلته جيدا إقتباس : بالtextbox+ اضافة pm او am
فقد كان النقص هو اضافة pm او am لهذا السبب كان بيطلعلك خطأ
الله يوفقك لكل خير