[سيلفو]

(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

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