[0theghost0]

هذا الكود يعمل بالسنة

كود :

lblDate.Text = Date.Now.ToString("dddd") & " - " & Date.Now.ToString("MMM dd, yyyy")
       frmLogin.ShowDialog()
       txtna.Text = Date.Now.ToString("dd")
       If txtna.Text = "3" Then

           MsgBox("تم تحميل البيانات بنجاح", MsgBoxStyle.OkOnly, "تسجيل الدخول")
       Else

           MsgBox("انتهت النسخة المجانية", MsgBoxStyle.OkOnly, "انتهاء الخدمة")
           Me.Close()
       End If
       TextBox1.Text = Now.ToString("ddmmyyyy")

اذا بغيت احوله الى بعدد الايام كيف ؟؟
وايضا بعدد الاشهر كيف ؟؟

لو سمحتم

مثال ابغي اخليه يعمل لـ 15 يوم فقط

او اخليه يعمل لمدة لاتتجاوز شهرين او شهر واحد

[asemshahen5]

هذا مثال به ما تريد باذن الله في الفورم : FrmLogin 

في Private Sub Form_Open .

سورس كود برنامج IT للعهدة والمستخدمين والاجهزة .