[TAMER ELMORSY]

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

مطلوب منى تصميم تطبيق يحدد الثلث الاخير من الليل ومتى يبدأ 
الفورم فيه 2 تكست بوكس يدخل المستخدم فيهما وقت المغرب ووقت الفجر 
اما التكست بوكس الثالث تهر فيه النتيجة فلم استطع قسمة الوقت .. افيدونى اررجوكم

[rmlq]

كود :

Dim time1 As DateTime = CDate(TextBox1.Text) 'وقت المغرب
Dim time2 As DateTime = CDate(TextBox2.Text).AddDays(1) 'وقت الفجر ونزيد عليه يوم لانه سيكون في اليوم التالي

Dim minutes As Integer = (time2 - time1).TotalMinutes 'نطرح الوقتين ونحوله لدقائق

Dim third As Integer = (minutes / 3) 'نقسم الدقائق لنعرف مقدار الثلث
Dim third3 As Integer = third * 2 'نضرب في 2 لنحسب دقائق الثلثين اي بداية الثلث الثالث

Dim time3 As Date = time1.AddMinutes(third3)  'نظيف دقائق الثلثين لوقت المغرب ليصبح وقت الثلث الاخير

TextBox3.Text = time3.ToShortTimeString 'عرض وقت الثلث الاخير

[TAMER ELMORSY]

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