[مساعدة]

السلام عليكم

تفض الكود يعمل مع كل تنتهي

كود :

Dim y As Integer = DateTimePicker1.Value.Year
If y < Now.Year Then
    MsgBox("عفوا السنة " & y & " مقفلة.")
    Exit Sub
End If

يعيبها أنه يمكن تجاوزها لو تم تغيير تاريخ الجهاز للسنة التي يحاول التسجيل بها بسبب اعتماد البرنامج على تاريخ الجهاز