[vb_net]

السلام عليكم تفضل اخي

كود :

' هنا تاريخ نهاية الرخصة
        Dim x As String = "20/06/2014"

        ' تعريف متغير الدي سياخد الفرق بين التاريخين
        Dim wd As Long = DateDiff("d", Date.Now, x)

        Label3.Text = wd

        ' هنا حددنا ادا كانت القيمة المتبقة تساوي 30 يعني شهر
        If Label3.Text = 30 Then

            ' اضهر هده الرسالة
            MsgBox("لم يتبقى الا 30 يوم لتجديد الرخصة")

        End If