20-05-14, 03:49 PM
السلام عليكم تفضل اخي
كود :
' هنا تاريخ نهاية الرخصة
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