+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : طرح التاريخ (/showthread.php?tid=49560)
طرح التاريخ - الجيل - 11-07-24
السلام عليكم و رحمة الله وبركاته
احتاج ان يقوم الموقع عند دخول الشخص الى طرح التاريخ السابق من الحالي و المتضمن الزمن مثلاً
24/07/12 23:55:13 - 24/07/10 09:35:03
RE: طرح التاريخ - تركي الحلواني - 11-07-24
(11-07-24, 07:06 AM)الجيل كتب : السلام عليكم و رحمة الله وبركاته
احتاج ان يقوم الموقع عند دخول الشخص الى طرح التاريخ السابق من الحالي و المتضمن الزمن مثلاً
24/07/12 23:55:13 - 24/07/10 09:35:03
جرب هذه الدالة فقط قوم بتمرير التواريخ
PHP كود :
Private Sub CalculateTimeDifference(dateTime1 As DateTime, dateTime2 As DateTime)
Dim timeDifference As TimeSpan = dateTime1 - dateTime2
Dim days As Integer = timeDifference.Days
Dim hours As Integer = timeDifference.Hours
Dim minutes As Integer = timeDifference.Minutes
Dim seconds As Integer = timeDifference.Seconds
MessageBox.Show("الفرق هو: " & days & " أيام، " & hours & " ساعات، " & minutes & " دقائق، " & seconds & " ثواني.")
End Sub
RE: طرح التاريخ - الجيل - 11-07-24
الله يعطيك العافية
اريد ان اضع الكود في حدث تحميل الصفحة ولكن يعطيني خطأ (التحويل من السلسلة "46/01/05 14:06:02" إلى النوع 'Date' غير صالح )
إذا كان التاريخ الاول في textbox1 و التاريخ الثاني في textbox2 فكيف يكون الكود في حدث تحميل الصفحة
RE: طرح التاريخ - تركي الحلواني - 11-07-24
جرب هذا التعديل
في حدث التحميل للفورم
PHP كود :
CalculateTimeDifference(DateTime.Parse(TextBox1.Text), DateTime.Parse(TextBox2.Text))
والدالة
PHP كود :
Private Sub CalculateTimeDifference(dateTime1 As DateTime, dateTime2 As DateTime)
Dim timeDifference As TimeSpan = dateTime2 - dateTime1
Dim days As Integer = timeDifference.Days
Dim hours As Integer = timeDifference.Hours
Dim minutes As Integer = timeDifference.Minutes
Dim seconds As Integer = timeDifference.Seconds
MessageBox.Show("الفرق هو: " & days & " أيام، " & hours & " ساعات، " & minutes & " دقائق، " & seconds & " ثواني.")
End Sub
لكن تأكد من التاريخ يكون بهذه الطريقة (02/01/2024 12:00:00 )
RE: طرح التاريخ - الجيل - 11-07-24
دائما مبدع اخ تركي الله يعيطك العافية
هل ممكن التعديل على الدالة بحيث تأخذ وقت السرفر و ليس جهاز الزائر
RE: طرح التاريخ - تركي الحلواني - 14-07-24
(11-07-24, 06:12 PM)الجيل كتب : دائما مبدع اخ تركي الله يعيطك العافية
هل ممكن التعديل على الدالة بحيث تأخذ وقت السرفر و ليس جهاز الزائر
في هذا الحال نحتاج الى توضيح لعمل الكود وما هو التاريخ الأول والتاريخ الثاني.
اما فيما يخص توقيت السيرفر ما هو المقصود سيرفر داخل ام الوقت عن طريق الانترنت
في حال الوقت عن طريق الانترنت كيف يكون الوقت الأول والثاني
هذا كود لجلب الوقت من الانترنت
PHP كود :
Public Async Function GetTime() As Task(Of DateTime)
Dim client As New HttpClient()
Dim response As HttpResponseMessage = Await client.GetAsync("http://worldtimeapi.org/api/ip")
If response.IsSuccessStatusCode Then
Dim content As String = Await response.Content.ReadAsStringAsync()
Dim json As JObject = JObject.Parse(content)
Dim datetimeStr As String = json("datetime").ToString()
Dim datetime As DateTime = DateTime.Parse(datetimeStr)
Return datetime
Else
Return DateTime.MinValue
End If
End Function
وهذه الجلب البيانات
PHP كود :
Private Async Sub SomeMethod()
Dim currentTime As DateTime = Await GetTime()
If currentTime <> DateTime.MinValue Then
TextBox1.Text = currentTime.ToString("yyyy-MM-ddTHH:mm:ss")
Else
TextBox1.Text = "Failed to retrieve time."
End If
End Sub
وطريقة استدعائة في النموذج
PHP كود :
SomeMethod