برنامج لتقسيم الوقت بين توقيتين احد يعرف كيف يحل هذا السوال اكون ممنون للمساعدة والمج - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4) +--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18) +---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28) +---- الموضوع : برنامج لتقسيم الوقت بين توقيتين احد يعرف كيف يحل هذا السوال اكون ممنون للمساعدة والمج (/showthread.php?tid=23708) |
برنامج لتقسيم الوقت بين توقيتين احد يعرف كيف يحل هذا السوال اكون ممنون للمساعدة والمج - سيلفو - 06-02-18 لدي برنامج فية 2 تيكست يوضع بهما وقت المطلوب حساب الفرق بين التوقيتين Dim dtime1 As Date Dim dTime2 As Date Dim dTimeDiff As Date dtime1 = CDate(Text1.Text) dTime2 = CDate(Text2.Text) dTimeDiff = dTime2 - dtime1 ثم توزيع هذا الوقت على 12 ليبل بحيث الليبل الاول يحتوي الوقت الاول Label1.Caption = Text1.Text واليبل الاخير يحتوي التوقيت الاخير المعادلة هية الفرق في الوقت نقسمه على 11 الوقت الناتج من المعادلة يضاف الى اليبل الاول لينتج وقت اليبل الثاني وهكذا بحيث يكون الليبل الاخير هو الوقت الثاني اذا احد يعرف كيف يحل هذا السوال اكون ممنون للمساعدة والمجهود ارجوكم جدا محتاج اللحل RE: برنامج لتقسيم الوقت بين توقيتين احد يعرف كيف يحل هذا السوال اكون ممنون للمساعدة والمج - ناجح احمد - 06-02-18 [attachment=17081] [attachment=17081 كتب :سيلفو pid='114265' dateline='1517925914'][attachment=17081]لدي برنامجاطلع على المثال المرفق واتمنى من الاساتذه اختصار الاكواد ان امكن [attachment=17082] RE: برنامج لتقسيم الوقت بين توقيتين احد يعرف كيف يحل هذا السوال اكون ممنون للمساعدة والمج - eiocm - 07-02-18 Private Sub Command1_Click() Dim d1 As Date d1 = CDate(Text1) Dim TotalSeconds1 As Single TotalSeconds1 = CDate(d1) * 60 * 60 * 24 Dim d2 As Date d2 = CDate(Text2) Dim TotalSeconds2 As Single TotalSeconds2 = CDate(d2) * 60 * 60 * 24 Dim TotalSeconds As Single TotalSeconds = TotalSeconds2 - TotalSeconds1 Dim spl As Single spl = TotalSeconds / 11 Label1 = d1 Label2 = DateAdd("s", spl * 1, d1) Label3 = DateAdd("s", spl * 2, d1) Label4 = DateAdd("s", spl * 3, d1) Label5 = DateAdd("s", spl * 4, d1) Label6 = DateAdd("s", spl * 5, d1) Label7 = DateAdd("s", spl * 6, d1) Label8 = DateAdd("s", spl * 7, d1) Label9 = DateAdd("s", spl * 8, d1) Label10 = DateAdd("s", spl * 9, d1) Label11 = DateAdd("s", spl * 10, d1) Label12 = d2 End Sub RE: برنامج لتقسيم الوقت بين توقيتين احد يعرف كيف يحل هذا السوال اكون ممنون للمساعدة والمج - سيلفو - 07-02-18 (06-02-18, 11:27 PM)ناجح احمد كتب : اطلع على المثال المرفق واتمنى من الاساتذه اختصار الاكواد ان امكن جزاك الله الف خير (07-02-18, 01:11 AM)eiocm كتب : Private Sub Command1_Click()مشكوووووووووووووووووووووووووووووووووووووووووووووررررررررررررررررررررر الله يجعلة بميزان حسناتك اكثير ساعدتني |