منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

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

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

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

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

السؤال:

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

كود :

Dim UmAlQura As New Globalization.UmAlQuraCalendar

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

        DateTimePicker2.Value = d

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

abomo3ath

Fareed2