منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : طرح التاريخ
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم و رحمة الله وبركاته
احتاج ان يقوم الموقع عند دخول الشخص الى طرح التاريخ السابق من الحالي و المتضمن الزمن مثلاً
24/07/12 23:55:13  -  24/07/10 09:35:03
(11-07-24, 07:06 AM)الجيل كتب : [ -> ]السلام عليكم و رحمة الله وبركاته
احتاج ان يقوم الموقع عند دخول الشخص الى طرح التاريخ السابق من الحالي و المتضمن الزمن مثلاً
24/07/12 23:55:13  -  24/07/10 09:35:03

جرب هذه الدالة فقط قوم بتمرير التواريخ

PHP كود :
 Private Sub CalculateTimeDifference(dateTime1 As DateTimedateTime2 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 
الله يعطيك العافية
اريد ان اضع الكود في حدث تحميل الصفحة ولكن يعطيني خطأ (التحويل من السلسلة "46/01/05 14:06:02" إلى النوع 'Date' غير صالح )
إذا كان التاريخ الاول في textbox1  و التاريخ الثاني في textbox2 فكيف يكون الكود في حدث تحميل الصفحة
جرب هذا التعديل

في حدث التحميل للفورم
PHP كود :
CalculateTimeDifference(DateTime.Parse(TextBox1.Text), DateTime.Parse(TextBox2.Text)) 

والدالة

PHP كود :
Private Sub CalculateTimeDifference(dateTime1 As DateTimedateTime2 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 )
دائما مبدع اخ تركي الله يعيطك العافية
هل ممكن التعديل على الدالة بحيث تأخذ وقت السرفر و ليس جهاز الزائر
(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