بخصوص اداة التاريخ datepiker

قد يفيدك هذا

  Public Shared Function getEndWorkDate(ByVal dStartDate As Date, ByVal nDay As Integer) As Date
        Dim con3 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\DB.mdb;Persist Security Info=True")
        Dim cmd3 As New OleDb.OleDbCommand("", con3)
        Try
            Dim iDayAdd As Integer, i As Integer
            Dim nDropDays(6) As Integer

            Dim d1 As Date, tmpdate As Date

            If con3.State = ConnectionState.Closed Then con3.Open()
            cmd3.CommandText = "SELECT MAX(ptsDropDaysTxt) FROM ptDropDays WHERE pnDropDaysTypeCode=1;"

            Dim cDropDays() As Char = cmd3.ExecuteScalar.ToString().ToCharArray()

            Do
                d1 = DateAdd("d", i, dStartDate)
                If cDropDays(DatePart("w", d1, vbSaturday, vbFirstJan1) - 1) = DatePart("w", d1, vbSaturday, vbFirstJan1).ToString() Then
                    iDayAdd = iDayAdd + 1
                Else
                    If tmpdate <> d1 Then
                        tmpdate = d1

                        cmd3.CommandText = "SELECT COUNT(ptnDropDaysCode) FROM ptDropDays WHERE pnDropDaysTypeCode=2 AND ptdDropDaysStartDate>=#" & d1 & "# AND ptdDropDaysEndDate<=#" & d1 & "#;"

                        If cmd3.ExecuteScalar <> 0 Then iDayAdd = iDayAdd + 1

                    End If
                End If
                i = i + 1
                If i = nDay Then Return DateAdd("d", (nDay - 1) + iDayAdd, dStartDate)

            Loop

        Finally
            If con3.State = ConnectionState.Open Then con3.Close()
        End Try
    End Function

days.accdb

بارك الله فيك اخي الكريم

اكرمك الله