+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كيف استثني يوم الجمعة في الكود التالي (/showthread.php?tid=38597)
كيف استثني يوم الجمعة في الكود التالي - abomo3ath - 07-06-21
السلام عليكم ورحمة الله وبركاته
لدي كود يأخذ (التاريخ الأول)
وأضيف عليه ( عدد الأيام)
والنتيجة تاريخ انتهاء الأيام
السؤال:
كيف أستثني يوم الجمعة من التوزيع في أيام الأسبوع ؟
كود :
Dim UmAlQura As New Globalization.UmAlQuraCalendar
Dim d As Date = UmAlQura.AddDays(dt3.Value, day_c.Text - 1)
DateTimePicker2.Value = dRE: كيف استثني يوم الجمعة في الكود التالي - Fareed2 - 07-06-21
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