تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كيف نرسل ترميز النص مع الــ webrequest
#21
(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 
الرد }}}
تم الشكر بواسطة:
#22
سلام


كود :
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


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

المتغير d فيه عدد الايام وممكن نقول
كود :
If d <= days Then
    Response.AddHeader("active", "yes")
    MsgBox("بقي لك: " & days - d & " يوما")
    'اريد ان اكتب كود يبين كم بقي يوم
Else
    Response.AddHeader("active", "no")
    MsgBox(" عفوا انتهى اشتراكك")
End If


موفقين
متغيب
الرد }}}
تم الشكر بواسطة: سعود


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  بحث بالكومبو بوكس لا ى جزء من النص Lathe1 3 433 28-02-24, 02:59 AM
آخر رد: معاند الحظ
  [VB.NET] استخلاص جزء محدد من نص وإضافته إلى بداية النص ؟ AmeenRashed 2 208 02-01-24, 10:06 AM
آخر رد: AmeenRashed
  [VB.NET] مطلوب تصحيح سطر فى هذا الــ Function AhmedEissa 3 493 13-12-23, 12:55 AM
آخر رد: العتيق
  دالة ادخال ارقام فقط في مربع النص atefkhalf2004 7 806 20-08-23, 09:04 AM
آخر رد: atefkhalf2004
  طريقة حذف حرف زيادة من مربع النص علاء الكبابي 2 550 19-06-23, 05:08 PM
آخر رد: Taha Okla
  اريد كود لمسح النص من textbox بمجرد الضغط على ال textebox للكتابة رهف العريفي 21 11,863 03-06-23, 04:56 AM
آخر رد: سعود
Rainbow [كود] النص المكتوب يكون على شكل وميض او تغير في الالوان محمد مسافر 1 456 13-05-23, 01:30 AM
آخر رد: عبدالله الدوسري
  [VB.NET] كود نسخ النص MOHAMMED ALZWI 2 495 13-03-23, 11:24 AM
آخر رد: MOHAMMED ALZWI
  اريد مساعدة في ازالة جزء من النص لان لا يوجد لدي خبرة كافية للتعامل مع دوال النصوص Meroo1809 2 520 05-01-23, 07:38 PM
آخر رد: Meroo1809
  مسح جميع أدوات النص دفعة واحدة sads 8 3,646 29-10-22, 04:04 PM
آخر رد: خالد العصاوي

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم