تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
برنامج لتقسيم الوقت بين توقيتين احد يعرف كيف يحل هذا السوال اكون ممنون للمساعدة والمج
#1
لدي برنامج
فية
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

واليبل الاخير يحتوي التوقيت الاخير

المعادلة هية Huh Huh Huh
الفرق في الوقت نقسمه على 11
الوقت الناتج من المعادلة يضاف الى اليبل الاول لينتج وقت اليبل الثاني
وهكذا بحيث يكون الليبل الاخير هو الوقت الثاني
Confused Confused Confused
اذا احد يعرف كيف يحل هذا السوال اكون ممنون للمساعدة والمجهود

ارجوكم جدا محتاج اللحل
الرد
تم الشكر بواسطة: awidan76
#2
[attachment=17081]
[attachment=17081 كتب :سيلفو pid='114265' dateline='1517925914'][attachment=17081]لدي برنامج
فية
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

واليبل الاخير يحتوي التوقيت الاخير

المعادلة هية Huh Huh Huh
الفرق في الوقت نقسمه على 11
الوقت الناتج من المعادلة يضاف الى اليبل الاول لينتج وقت اليبل الثاني
وهكذا بحيث يكون الليبل الاخير هو الوقت الثاني
Confused Confused Confused
اذا احد يعرف كيف يحل هذا السوال اكون ممنون للمساعدة والمجهود

ارجوكم جدا محتاج اللحل
اطلع على المثال المرفق واتمنى من الاساتذه اختصار الاكواد ان امكن

.rar   فرق بين وقتين.rar (الحجم : 2.12 ك ب / التحميلات : 19)
الرد
تم الشكر بواسطة: eiocm , سيلفو , awidan76 , Ahmed_Mansoor
#3
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
الرد
تم الشكر بواسطة: سيلفو , سيلفو , ناجح احمد , awidan76 , Ahmed_Mansoor
#4
(06-02-18, 11:27 PM)ناجح احمد كتب : اطلع على المثال المرفق واتمنى من الاساتذه اختصار الاكواد ان امكن

جزاك الله الف خير

(07-02-18, 01:11 AM)eiocm كتب : 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
مشكوووووووووووووووووووووووووووووووووووووووووووووررررررررررررررررررررر
الله يجعلة بميزان حسناتك اكثير ساعدتني
الرد
تم الشكر بواسطة: ناجح احمد , awidan76 , Ahmed_Mansoor


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  برنامج setup factory 9 norhan 16 8,605 12-08-20, 10:06 AM
آخر رد: gonm64
Question [vb6.0] كيف انشي زر امر يتأكد انه يوجد برنامج Wordعلى الحاسب وإذا لم موجود يظهر رسالة لمستخدم Microformt 2 242 01-08-20, 07:23 PM
آخر رد: Microformt
  طلب دوره تصميم برنامج حضور ونصراف بصمه ahmed250 0 189 25-07-20, 07:24 AM
آخر رد: ahmed250
  طرقة تصميم برنامج ارشيف ملفات الموظفين ahmed250 5 449 25-06-20, 05:28 AM
آخر رد: ahmed250
  رابط تحميل برنامج 6.0 Microsoft Visual Basic ابو يسرية 9 33,942 18-06-20, 10:49 AM
آخر رد: princeofislam
  [سؤال] احتاج ربط برنامج vb مع قاعده البيانات access mera 4 464 08-06-20, 10:23 PM
آخر رد: mera
  هل يمكن استخدام برنامج يعمل بالباركود في تنزيل درجات امتحانات؟ gonm64 11 977 03-06-20, 05:16 AM
آخر رد: gonm64
  [سؤال] إدخال الوقت و التاريخ Abdellah 3 266 03-06-20, 04:17 AM
آخر رد: Ahmed_Mansoor
Question [vb6.0] هل يعمل برنامج Visual Studio Code مع فجوال بيسك 6 وكيف ذلك إن امكن ؟؟ Microformt 2 352 13-05-20, 11:40 PM
آخر رد: Microformt
Question [vb6.0] كيف يمكن اجبار المستخدم ادخال صيغة الوقت في تكست بوكس بهذة الصيغة مثلا 08:06 ص؟ Microformt 2 292 04-05-20, 11:27 PM
آخر رد: Microformt

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم