[سعود]

لم تنجح الحيلة من حيث احدث واقدم ساعة
فالساعة
12:02:19 ظهرا
احدث من
5:52:29 فجرا

وطريقة ضبط التاريخ 

كود :

       '***************تحويل الوقت لوقت الكمبيوتر*****************
       Dim dt As Date = Date.Now.ToString
       Dim ts As DateTime
       ts = TimeZoneInfo.ConvertTimeBySystemTimeZoneId(dt, TimeZoneInfo.Local.Id, "Arab Standard Time").ToString  'ddlTimeZone.SelectedValue).ToString()
       '**************************************************************

والحيلة التي ذكرتها هي

كود :

       Dim d2 As String = ts.ToLongTimeString
       d2 = d2.Replace("am", "")
       d2 = d2.Replace("AM", "")

       d2 = d2.Replace("PM", "")
       d2 = d2.Replace("pm", "")

       d2 = d2.Replace("ص", "")
       d2 = d2.Replace("م", "")

واحفظ المتغير بشكل عادي

كود :

insert.Parameters.AddWithValue("@mtime", d2)

والمقارنة بالشكل التالي:

اولا اضم الوقت للتاريخ بواسطة &

هكذا

كود :

vv2 = v2.Item("mdate") & v2.Item("mtime")
tb = tbsdr.Item("lastdate") & tbsdr.Item("lasttime")

المقارنة تكون بهذا الشكل

كود :

If vv > tb   Then
               Image1.ImageUrl = "~/mgs/on.png"
               Image1.Visible = True
           Else

               Image1.ImageUrl = "~/mgs/off.png"
               Image1.Visible = True
           End If

من لديه الحل اخواني؟

---

لقيت حل روعة بس اجربه لمدة 24 ساعة حتى اشوف فروق التوقيت صباحا ومساء
الى اللقاء