:و: الفرق بين الايام وجعل كل ساعات يوم في حقل

[sah]

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

مثال

القطار غادر يوم 1/1/2004 ووصل 3/1/2004

الفرق يومين مثلا وخمسة ساعات

اليوم الاول =24 ساعة كاملة يجعلها في حقل

واليوم الثاني =24ساعة كاملة في حقل

واليوم الثالث = 5 ساعات فقط في حقل

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

ارجو أن يكون سؤالي واضحاً ... ارجو مساعدتي وتفريج هذه الكربة عني

[الدكتور خضر الرجبي]

1. ننشأ الجدول ولنسميه Trains ونضع فيه لنقل 5 حقول Day1, Day2, Day3, Day4, Day4 كلها من نوع رقم وحجم الحقل بايت ورمز خاص بالقطار يميز كل قطار عن غيره ولنقل TrainId من نوع نص وحجم الحقل لنقل 10 وهذا هو بالطبع المفتاح

الرئيسي للجدول.

2. ننشأ النموذج الذي سندخل فيه تاريخ المغادرة ولنسميه FromDate وتاريخ الرجوع ولنسميه ToDate (وطبعا التاريخ يشمل اليوم والساعة) ويجب أن يكون في النموذج بالطبع رمز القطار TrainId وهو عبارة عن مربع تحرير وسرد بحثي.

3. بعد تعيين القطار المطلوب الحساب له من خلال TrainId وتحديد تاريخ المغادرة والرجوع نضغط على زر أمر نسميه ComputeDays يصمم ليقوم بالعملية الحسابية المطلوبة في السؤال ونضع الكود التالي في حدث (عند النقر) لذلك الزر

Private Sub ComputeDays_Click()
' Compute the difference between the two dates in hours
D = DateDiff("h", Me.FromDate, Me.ToDate)
' Reset the days in the table
Me.Day1 = 0
Me.Day2 = 0
Me.Day3 = 0
Me.Day4 = 0
Me.Day5 = 0
' The main loop
For c = 1 To 5
If D / 24 > 1 Then ' This condition to check for days
 Select Case c
  Case 1: Me.Day1 = 24
  Case 2: Me.Day2 = 24
  Case 3: Me.Day3 = 24
  Case 4: Me.Day4 = 24
  Case 5: Me.Day5 = 24
 End Select
Else ' This else is for days
 Select Case i
  Case 1:  Me.Day1 = D
  Case 2:  Me.Day2 = D
  Case 3:  Me.Day3 = D
  Case 4:  Me.Day4 = D
  Case 5:  Me.Day5 = D
 End Select
Exit For
End If
D = D - 24
Next c
End Sub

[sah]

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

اظن في خطأ مطبعي بسيط بس صراحة تعبني كثير لو في واحد حابب يستخدم الكود ويستفيد منه

في select الثانية بدل i ضع c والامور تكون تمام التمام

تم تعديل يناير 25, 2005 بواسطه sah