[abomo3ath]

السلام عليكم ورحمة الله وبركاته

لدي كود يأخذ (التاريخ الأول) 

وأضيف عليه ( عدد الأيام) 

والنتيجة تاريخ انتهاء الأيام

السؤال:

كيف أستثني يوم الجمعة من التوزيع في أيام الأسبوع ؟

كود :

Dim UmAlQura As New Globalization.UmAlQuraCalendar
       Dim d As Date = UmAlQura.AddDays(dt3.Value, day_c.Text - 1)

       DateTimePicker2.Value = d

[Fareed2]

dim i as integer=0
DateTimePicker2.Value=dt3.Value
while i<val(day_c.Text)
DateTimePicker2.Value=DateTimePicker2.Value.adddays(1)
if DateTimePicker2.Value.dayofweek<>dayofweek.friday then i=i+1
end while