منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] مطلوب كود يقوم بحساب إجازة موظف - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=17290)

مطلوب كود يقوم بحساب إجازة موظف - naden - 14-09-16

السلام عليكم
مطلوب كود يقوم بحساب إجازة موظف بدون  يومي الجمعة والسبت  مثلاا لو بداية الإجازة 9/10/2016 ونهاية الإجازة 15/10/2016
اريد ان يظهر في textBox عدد ايام الإاجازة( 6 ) لكن اذا كان من ضمن الايام جمعة وسبت يلتغو ويصبح 4 ايام للإجازة 
وكذلك العطلات الرسمية كيف يتم الغاء تواريخ العطلات

RE: مطلوب كود يقوم بحساب إجازة موظف - أبو عمر - 14-09-16

آمل أن يكون هذا الكود يحل لك المشكلة
PHP كود :
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim days As Integer = DateDiff(DateInterval.Day, Me.DateTimePicker2.Value, Me.DateTimePicker1.Value)
        Label1.Text = days.ToString
    End Sub 


RE: مطلوب كود يقوم بحساب إجازة موظف - silverlight - 14-09-16

PHP كود :
  Dim dt1 As DateTime = DateTimePicker1.Value
        Dim dt2 As DateTime = DateTimePicker2.Value
        Dim days As Integer = 1
        If dt2 > dt1 Then
            Dim difference As Integer = CInt(dt2.Subtract(dt1).TotalDays)
            days += System.Linq.Enumerable.Range(1, difference).Select(Function(x) dt2.AddDays(x)).Count(Function(x) x.DayOfWeek <> DayOfWeek.Saturday AndAlso x.DayOfWeek <> DayOfWeek.Friday)
            Me.Label1.Text = days
        End If