منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - كيف نرسل ترميز النص مع الــ webrequest

الصفحات : 1 2 3

(08-09-15, 09:05 PM)الطالب كتب : [ -> ]سلام

ما هي الدله gd

ماذا تقصد (المقارنة بين التواريخ من نمط Shortdate ومعرفة كم بقي يوم)؟

موفقين

لالا . مايهم الدالة هذي من صنعي Smile

فكرة غبية خصوصا لو اردت تطبيق المقارنة بين التواريخ.

اقصد ان التاريخ الذي اود التعامل معه بالجدول shortdate
هذا الاجراء التالي يفحص حالة الاشتراك

PHP كود :

       Dim un As String = "", cpid As String = "", dt As String = ""
        un = txtid.Text
        cpid = CpuId()
        Dim da As DateTime = Now.Date
        dt = da.ToShortDateString

        Dim forcheck As String = "?un=" & un & "&cpid=" & cpid & "&dt=" & dt & "&reqtype=check"

        Dim url As String = "http://localhost:63003/Default.aspx" & forcheck
        Dim req As WebRequest = WebRequest.Create(url)
        Dim res As WebResponse = req.GetResponse
        If res.Headers("active") = "yes" Then
            lblstate.Text = "الاشتراك نشط"
        End If 

وهذا في الويب

PHP كود :

               Dim days As Integer = 3
                Dim cm As New Data.OleDb.OleDbCommand("", cls.con)
                cm.CommandText = "select * from tb where cpid='" & cpid & "'"
                If cls.con.State = Data.ConnectionState.Closed Then cls.con.Open()
                Dim dr As Data.OleDb.OleDbDataReader = cm.ExecuteReader
                If dr.Read Then
                    Dim dd As DateTime = dr("dt")
                    If dd.AddDays(days) > da Then
                        Response.AddHeader("active", "yes")
                        'اريد ان اكتب كود يبين كم بقي يوم
                    End If
                End If 

سلام

كود :

Dim days As Integer = 3

Using cmd As New OleDb.OleDbCommand("Select DateDiff('d', [dt], NOW()) AS [Days] From [tb] Where [cpid] = ?", cls.con)

    cmd.Parameters.AddWithValue("@cpid", cpid)

    If cls.con.State = Data.ConnectionState.Closed Then cls.con.Open()

    Dim d As Integer = cmd.ExecuteScalar

    If d <= days Then

        Response.AddHeader("active", "yes")

        'اريد ان اكتب كود يبين كم بقي يوم

    End If

    cls.con.Close()

End Using

موفقين

طيب اخي الكريم كيف اعرف كم بقي يوم وينتهي الاشتراك اذا حددنا ايام التجربة بثلاث ايام مع المتغير days

سلام

المتغير d فيه عدد الايام وممكن نقول

كود :

If d <= days Then

    Response.AddHeader("active", "yes")

    MsgBox("بقي لك: " & days - d & " يوما")

    'اريد ان اكتب كود يبين كم بقي يوم

Else

    Response.AddHeader("active", "no")

    MsgBox(" عفوا انتهى اشتراكك")

End If

موفقين

الصفحات : 1 2 3

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

سعود

الطالب

سعود

الطالب