[VB.NET] اضافة بشرط مرور 7 ايام - نسخة قابلة للطباعة

كود :

       Dim LastAddedDate As Date = #8-19-2020# 'اخر تاريخ يمكنك الاستعلام عنه من قاعدة البيانات

        Dim FirstAllowedDate As Date = LastAddedDate.AddDays(7) 'اول تاريخ مسموح به

        Dim DateToBeAdded = #8-20-2020# 'التاريخ المطلوب اضافته





        If DateToBeAdded.Date >= FirstAllowedDate.Date Then

            'كود اضافة التاريخ لقاعدة البيانات

        Else

            MsgBox("لا يمكنك الاضافة الا بعد اسبوع")

        End If

كود :

Public Function MaxID_Personal() As DataTable

        Dim Query As String = "Select IIF(MAX(CV_ID) IS Null,0,MAX(CV_ID)) From Personal"

        Dim dt As New DataTable()

        dt.Clear()

        Dim Da As New OleDbDataAdapter(Query, Con)

        Da.Fill(dt)

        Return (dt)

    End Function

كود :

Private Sub Btn_Save_Click(sender As Object, e As EventArgs) Handles Btn_Save.Click

        ' جلب اخرسجل 

        Dim Query As String = "Select * From Personal where CV_ID=" & MaxID_Personal.Rows(0)(0)

        Dim dt As New DataTable()

        dt.Clear()

        Dim Da As New OleDbDataAdapter(Query, Con)

        Da.Fill(dt)

        ' اذا كانت الداتاتابل تحتوي على سجل وهو وحيد

        If dt.Rows.Count > 0 Then

            ' التحقق من ان حقل التاريخ مضافا عليه 7 ايام اصغر او يساوي التاريخ الحالي

            ' تعريف متغير نوع تاريخ يحمل قيمة حقل التاريخ الذي تم تسجيل السجل فيه

            Dim kk As Date = CDate(dt.Rows(0)(3))

            If kk.AddDays(7) <= Now Then

                MsgBox("يمكن الاضافة")

                ' كود الاضافة

            Else

                MsgBox("لايمكن الاضافة")

                Exit Sub

            End If

            ' او ان الداتاتابل فارغة وليس فيها سجلات حيث يمكن الاضافة

        Else

            MsgBox("لايوجد سجلات الجدول فارغ يمكنك الاضافة")

        End If





    End Sub