[@@أبورائد@@]

السلام عليكم ورحمة الله وبركاته


هناك طريقتين لتطبيق فارق التوقيت في عرض البيانات

احداهما تطبيقها من داخل جملة الاستعلام

كود :

Dim sql As String = " SELECT *, DATEADD(hour,@tzone,[mtime]) AS mtime " & _
                    "   FROM [rdod]                 " & _
                    "  WHERE [mformid] = @mformid   "

Dim cm As New SqlCommand(sql, con)
cm.Parameters.AddWithValue("@tzone", 3)
cm.Parameters.AddWithValue("@mformid", Val(tid.text))
'
'
'
Dim m As Date = CDate(tbr.Item("mtime"))

الاخر بعد الاستعلام بالشكل العادي يتم تطبق فارق التوقيت على ال Item

كود :

Dim sql As String = " SELECT *       " & _
                    "   FROM [rdod]                 " & _
                    "  WHERE [mformid] = @mformid   "

Dim cm As New SqlCommand(sql, con)
cm.Parameters.AddWithValue("@mformid", Val(tid.text))
'
'
'
Dim mtime As Date = DateAdd(DateInterval.Hour, 3, CDate(tbr.Item("mtime")))

السلام عليكم ورحمة الله وبركاته