[سعود]

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


ما هي الدله gd

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


موفقين

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

اقصد ان التاريخ الذي اود التعامل معه بالجدول 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

موفقين