[mohammed.atallah]

(17-08-16, 01:10 AM)Ahmed_Mansoor كتب : وعليك السلام ورحمة الله وبركاته

أهلا بك أخي الكريم , ضع Command1 على الفورم و DTPicker1 لتاريخ بداية الإجازة و Text1 لعدد أيام الإجازة و DTPicker2 لتاريخ نهاية الإجازة , ثم ضع هذا الكود في الزر1 :

PHP كود :

Private Sub Command1_Click()

If IsDate(DTPicker1.Value) = False Then
   MsgBox "تأكد من صحة تاريخ بداية الإجازة"
   DTPicker1.SetFocus
   Exit Sub
End If

If Val(Trim$(Text1.Text)) <= 0 Then
   MsgBox "تأكد من صحة عدد أيام الإجازة"
   Text1.SetFocus
   Exit Sub
End If

Command1.Enabled = False

Dim zStartDate As String
Dim zDayIndex As Integer
Dim zCounter As Integer
Dim I As Long

zStartDate = DTPicker1.Value

For I = 1 To 1000000
    
    'رقم يوم الجمعة يساوي 6
    'رقم يوم السبت يساوي 7
    zDayIndex = Weekday(zStartDate)
    
    If zDayIndex < 6 Then zCounter = zCounter + 1
    
    If zCounter = Val(Trim$(Text1.Text)) Then
       DTPicker2.Value = zStartDate
       Command1.Enabled = True
       Exit Sub
    End If
    
    zStartDate = DateAdd("d", 1, zStartDate)
    
Next

Command1.Enabled = True

End Sub 


كل الشكر والاحترام لك سيد احمد منصور هذا هو المطلوب بالزبط 
وجزاك الله خير وادام الله عليك نعمه ......