24-09-13, 06:09 PM
الصفحات : 1 2
24-09-13, 06:20 PM
السلام عليكم تفضل اخي سعووود ..
كود :
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Label1.Text = Format(Now, "HH:MM:ss")
End Sub24-09-13, 06:22 PM
هو Format لما تكون اللغه ( أمريكا ) بتظهر بالشكل اللى موجود في الصورة وانا أساسا مثبتها عندي .
24-09-13, 06:23 PM
بارك الله بيكم جميعا
ساحاول الاكواد ان شاء الله.
واجهت مشكلة وهو انه الساعة تحفظ هكذا hh:mm
s
كيف اكتب الكود
[ltr]الكود الخاص بالمتغير ts[/ltr]
اووووووووه خلاص عرفت المشكلة والحل بحذف .toshorttimestring
ساحاول الاكواد ان شاء الله.
واجهت مشكلة وهو انه الساعة تحفظ هكذا hh:mm
sكود :
insert.Parameters.AddWithValue("@mtime", Data.SqlDbType.NVarChar).Value = Format(ts.ToLongTimeString, "HH:MMs")كيف اكتب الكود
[ltr]الكود الخاص بالمتغير ts[/ltr]
كود :
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()اووووووووه خلاص عرفت المشكلة والحل بحذف .toshorttimestring
25-09-13, 12:01 AM
يااخوان واجهت مشكلة غريبة جدا
صارت الساعة تعمل بشكل تنازلي يعني لما اكتب موضوع الساعة 1.22.10 يكون الرد 1.22.00
الصورة تبين المشكلة
طبعا استخدم كود التحويل ليحول التاريخ الى تاريخ جهاز العميل
كل هذا لاني النوع اللي اخترته بالقاعدة هو varchar ولتحويله لنوع datetime احتاج شهر اعدل على الاكواد لذلك رجاء اريد طريقة لنوع varchar يعني اضبط الوقت قبل الحفظ.
صارت الساعة تعمل بشكل تنازلي يعني لما اكتب موضوع الساعة 1.22.10 يكون الرد 1.22.00
الصورة تبين المشكلة
طبعا استخدم كود التحويل ليحول التاريخ الى تاريخ جهاز العميل
كود :
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()ولحفظ القيمة
كود :
Format(ts, "HH:MMs")ماهي المشكلة.
كل هذا لاني النوع اللي اخترته بالقاعدة هو varchar ولتحويله لنوع datetime احتاج شهر اعدل على الاكواد لذلك رجاء اريد طريقة لنوع varchar يعني اضبط الوقت قبل الحفظ.
25-09-13, 07:58 AM
عملت حيلة ونجحت وهي بالكود الاول مع كود حذف ص و م و am,AM,pm and PM
25-09-13, 01:18 PM
لم تنجح الحيلة من حيث احدث واقدم ساعة
فالساعة
12:02:19 ظهرا
احدث من
5:52:29 فجرا
وطريقة ضبط التاريخ
لقيت حل روعة بس اجربه لمدة 24 ساعة حتى اشوف فروق التوقيت صباحا ومساء
الى اللقاء
فالساعة
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 ساعة حتى اشوف فروق التوقيت صباحا ومساء
الى اللقاء
25-09-13, 09:32 PM
ماشاءلله عليك ياسعود كبير ياسعود كبير .. انت تطرح المشكلة وبنفس الوقت توجد لها حلول
أما بالنسبة لي فليس بيدي سوى الوقوف على ماتقوم به ومشاهدة وليدك المنتدى الذي تعمل عليه اتمنى أن يكون
من افضل المنتديات وان يقارعها . فانا حملت ممنتداك السابق وكان روعة جدا .
تقبل مروري
أما بالنسبة لي فليس بيدي سوى الوقوف على ماتقوم به ومشاهدة وليدك المنتدى الذي تعمل عليه اتمنى أن يكون
من افضل المنتديات وان يقارعها . فانا حملت ممنتداك السابق وكان روعة جدا .
تقبل مروري
27-09-13, 01:09 PM
لم اصل لحل الى الان 
المطلوب المقارنة بين تاريخي مع وقتيهما
3:33:05 AM 9/27/2013
12:00:39 PM 9/27/2013
ايهما احدث؟

المطلوب المقارنة بين تاريخي مع وقتيهما
3:33:05 AM 9/27/2013
12:00:39 PM 9/27/2013
ايهما احدث؟
27-09-13, 08:03 PM
(27-09-13, 01:09 PM)سعود كتب : [ -> ]لم اصل لحل الى الان
المطلوب المقارنة بين تاريخي مع وقتيهما
3:33:05 AM 9/27/2013
12:00:39 PM 9/27/2013
ايهما احدث؟
جرب هذا الكود أخ سعود:
كود :
Dim x As DateTime = "27/9/2013 3:33:5 AM"
Dim t As DateTime = "27/9/2013 12:00:39 PM"
If x < t Then
MsgBox("OK")
End Ifالصفحات : 1 2