[سيلفو]

لدي برنامج
فية
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
الوقت الناتج من المعادلة يضاف الى اليبل الاول لينتج وقت اليبل الثاني
وهكذا بحيث يكون الليبل الاخير هو الوقت الثاني

اذا احد يعرف كيف يحل هذا السوال اكون ممنون للمساعدة والمجهود

ارجوكم جدا محتاج اللحل

[ناجح احمد]

[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

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

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

اذا احد يعرف كيف يحل هذا السوال اكون ممنون للمساعدة والمجهود

ارجوكم جدا محتاج اللحل

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

  فرق بين وقتين.rar (الحجم : 2.12 ك ب / التحميلات : 19)

[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

[سيلفو]

(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

مشكوووووووووووووووووووووووووووووووووووووووووووووررررررررررررررررررررر
الله يجعلة بميزان حسناتك اكثير ساعدتني