sah قام بنشر يناير 15, 2005 مشاركة قام بنشر يناير 15, 2005 السلام عليكم .. اعمل برنامج لادارة قطارات الذي يدخل البيانات يدخل تاريخ مغادرة القطار وتاريخ رجوعه إليه والفرق يكون ايام أريد من البرنامج أن ياتي بالفرق بين الايام وهذا سهل ولكن الصعب علي أني اريده أن يحول عدد الايام إلى ساعات وكل 24 ساعة يجعلها في في حقل في جدول مثال القطار غادر يوم 1/1/2004 ووصل 3/1/2004 الفرق يومين مثلا وخمسة ساعات اليوم الاول =24 ساعة كاملة يجعلها في حقل واليوم الثاني =24ساعة كاملة في حقل واليوم الثالث = 5 ساعات فقط في حقل كيف استطيع عمل ذلك برمجيا ارجو أن يكون سؤالي واضحاً ... ارجو مساعدتي وتفريج هذه الكربة عني رابط هذا التعليق شارك More sharing options...
الدكتور خضر الرجبي قام بنشر يناير 16, 2005 مشاركة قام بنشر يناير 16, 2005 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 رابط هذا التعليق شارك More sharing options...
sah قام بنشر يناير 25, 2005 الكاتب مشاركة قام بنشر يناير 25, 2005 (معدل) السلام عليكم الاخ خضر الرجبي وشكرا لتجاوبك ارسلت لك اني تلقيت الرد وساجرب الكود لكن لم يظهر المهم جربت الكود وظبط معاي تمام ويااخي الف شكر ومتاسف على التاخير في الرد لظروف العيد وكل عام وانت والاخوة في المنتدى بالف خير اظن في خطأ مطبعي بسيط بس صراحة تعبني كثير لو في واحد حابب يستخدم الكود ويستفيد منه في select الثانية بدل i ضع c والامور تكون تمام التمام تم تعديل يناير 25, 2005 بواسطه sah رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.