17-08-16, 09:54 AM
(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
كل الشكر والاحترام لك سيد احمد منصور هذا هو المطلوب بالزبط
وجزاك الله خير وادام الله عليك نعمه ......
