+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : [كود] حساب التاريخ والوقت بالايام والساعات والثواني الى تاريخ محدد (/showthread.php?tid=41763)
حساب التاريخ والوقت بالايام والساعات والثواني الى تاريخ محدد - محمد مسافر - 19-06-22
الاخوة الاعزاء :
موضح لكم في المرفق اداه لحساب التاريخ من تاريخ اليوم الذي نحن فيه الى تاريخ قادم 21/11/2022 بمعنى تحسب الفتره المتبقيه كماهو موضح ولكن مااريده تكرماً منكم تغيير الفتره المتبقيه التي تظهر بالاشهر الى ايام متبقيه بحيث تظهر عدد ايام , ساعات , دقائق , ثواني الى تاريخ 21/11/2022 وموضح لكم شرح في الصوره لما اريده , ومن ضمن الملاحظات ايضاً ان يظهر الوقت المتبقي الى تاريخ 21/11/2022 حتى الساعه 1 ظهراً في نفس اليوم وليس الى نهايه اليوم الساعه 12 ليلاً .
ملاحظه :
اشكر الاخ المبدع / asmarsou حيث فعلاً افادني في موضوع سابق بالاكواد وكذلك الشكر موصول للاستاذ/ [b]سعود [/b]
RE: حساب التاريخ والوقت بالايام والساعات والثواني الى تاريخ محدد - سعود - 19-06-22
هل تقصد هذا:
PHP كود :
Private Function Betweentwodate(d1 As DateTime, d2 As DateTime) As Integer
Return DateDiff(DateInterval.Day, d1, d2)
End Function
PHP كود :
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
lbltime.Text = Betweentwodate(Now, CDate("11/21/2022").ToShortDateString) & GetDateSpanText(Now, CDate("11/21/2022").ToShortDateString)
End Sub
RE: حساب التاريخ والوقت بالايام والساعات والثواني الى تاريخ محدد - محمد مسافر - 20-06-22
حياك استاذ/ ابو سعود
جربت الاكواد ومااشتغل موضح لك الاشكاليه في المشروع هل ياتري الاشكاليه في تنسيق التاريخ عندي في الجهاز جربت اكثر من تنسيق .
RE: حساب التاريخ والوقت بالايام والساعات والثواني الى تاريخ محدد - asmarsou - 20-06-22
(20-06-22, 05:56 PM)محمد مسافر كتب : حياك استاذ/ ابو سعود
جربت الاكواد ومااشتغل موضح لك الاشكاليه في المشروع هل ياتري الاشكاليه في تنسيق التاريخ عندي في الجهاز جربت اكثر من تنسيق .
اخي العزيز جرب تغيير تنسيق التاريخ في الكود الخاص بالمؤقت من 11/22/2022 الى 22/11/2022 و انشاء الله تشتغل معاك
RE: حساب التاريخ والوقت بالايام والساعات والثواني الى تاريخ محدد - محمد مسافر - 20-06-22
(20-06-22, 06:05 PM)asmarsou كتب :(20-06-22, 05:56 PM)محمد مسافر كتب : حياك استاذ/ ابو سعود
جربت الاكواد ومااشتغل موضح لك الاشكاليه في المشروع هل ياتري الاشكاليه في تنسيق التاريخ عندي في الجهاز جربت اكثر من تنسيق .
اخي العزيز جرب تغيير تنسيق التاريخ في الكود الخاص بالمؤقت من 11/22/2022 الى 22/11/2022 و انشاء الله تشتغل معاك
اهلين اخي العزيز جربت مانفع في حاجه محتاجه لتعديل اشكرك على تعاونك واهتمامك .
RE: حساب التاريخ والوقت بالايام والساعات والثواني الى تاريخ محدد - سعود - 20-06-22
حسب اللي انا متعود عليه اليوم يكون بالمنتصف:
RE: حساب التاريخ والوقت بالايام والساعات والثواني الى تاريخ محدد - محمد مسافر - 21-06-22
اسعد الله صباحكم
حاولت وجربت مانفع اذا امكن ممكن استاذ/ سعود توضحلي ايش الخطا عندي واذا امكن ترسل لي المشروع جاهز علشان اتاكد اكون شاكر لكم جميعاً .
RE: حساب التاريخ والوقت بالايام والساعات والثواني الى تاريخ محدد - سعود - 21-06-22
(21-06-22, 06:40 AM)محمد مسافر كتب : اسعد الله صباحكم
حاولت وجربت مانفع اذا امكن ممكن استاذ/ سعود توضحلي ايش الخطا عندي واذا امكن ترسل لي المشروع جاهز علشان اتاكد اكون شاكر لكم جميعاً .
طيب ماهي رسالة الخطأ؟
قد تصلحها بنفسك و تستفيد.
PHP كود :
lbltime.Text = GetDateSpanText(Now, CDate("7/21/2022").ToShortDateString)
ايضا عدل على الدالة لتكون هكذا
PHP كود :
Public Shared Function GetDateSpanText(ByVal fromDate As DateTime, Optional ByVal toDate As DateTime = Nothing) As String
Try
Dim days As Integer = 0, hours As Integer = 0, minuts As Integer = 0, sec As Integer = 0
If toDate = Nothing Then toDate = DateTime.Now
'Do Until toDate.AddYears(-1) < fromDate
' years += 1
' toDate = toDate.AddYears(-1)
'Loop
'Do Until toDate.AddMonths(-1) < fromDate
' months += 1
' toDate = toDate.AddMonths(-1)
'Loop
Do Until toDate.AddDays(-1) < fromDate
days += 1
toDate = toDate.AddDays(-1)
Loop
Do Until toDate.AddHours(-1) < fromDate
hours += 1
toDate = toDate.AddHours(-1)
Loop
Do Until toDate.AddMinutes(-1) < fromDate
minuts += 1
toDate = toDate.AddMinutes(-1)
Loop
Do Until toDate.AddSeconds(-1) < fromDate
sec += 1
toDate = toDate.AddSeconds(-1)
Loop
Return String.Format("{0} Days {1} Houres {2} Minutes {3} Seconds", days, hours, minuts, sec)
Catch ex As Exception
Return " Error"
End Try
End Function
المثال معدل مرفق
RE: حساب التاريخ والوقت بالايام والساعات والثواني الى تاريخ محدد - محمد مسافر - 21-06-22
(21-06-22, 07:44 AM)سعود كتب :(21-06-22, 06:40 AM)محمد مسافر كتب : اسعد الله صباحكم
حاولت وجربت مانفع اذا امكن ممكن استاذ/ سعود توضحلي ايش الخطا عندي واذا امكن ترسل لي المشروع جاهز علشان اتاكد اكون شاكر لكم جميعاً .
طيب ماهي رسالة الخطأ؟
قد تصلحها بنفسك و تستفيد.
كودك الاول جيد ولا شيء فيه الا فقط تنسيق التاريخPHP كود :
lbltime.Text = GetDateSpanText(Now, CDate("7/21/2022").ToShortDateString)
ايضا عدل على الدالة لتكون هكذا
PHP كود :
Public Shared Function GetDateSpanText(ByVal fromDate As DateTime, Optional ByVal toDate As DateTime = Nothing) As String
Try
Dim days As Integer = 0, hours As Integer = 0, minuts As Integer = 0, sec As Integer = 0
If toDate = Nothing Then toDate = DateTime.Now
'Do Until toDate.AddYears(-1) < fromDate
' years += 1
' toDate = toDate.AddYears(-1)
'Loop
'Do Until toDate.AddMonths(-1) < fromDate
' months += 1
' toDate = toDate.AddMonths(-1)
'Loop
Do Until toDate.AddDays(-1) < fromDate
days += 1
toDate = toDate.AddDays(-1)
Loop
Do Until toDate.AddHours(-1) < fromDate
hours += 1
toDate = toDate.AddHours(-1)
Loop
Do Until toDate.AddMinutes(-1) < fromDate
minuts += 1
toDate = toDate.AddMinutes(-1)
Loop
Do Until toDate.AddSeconds(-1) < fromDate
sec += 1
toDate = toDate.AddSeconds(-1)
Loop
Return String.Format("{0} Days {1} Houres {2} Minutes {3} Seconds", days, hours, minuts, sec)
Catch ex As Exception
Return " Error"
End Try
End Function
المثال معدل مرفق
شكرأ استاذي سعود عرفت الاشكاليه وكل شي تمام الان بارك الله فيك .
RE: حساب التاريخ والوقت بالايام والساعات والثواني الى تاريخ محدد - سعود - 21-06-22
(21-06-22, 12:31 PM)محمد مسافر كتب : شكرأ استاذي سعود عرفت الاشكاليه وكل شي تمام الان بارك الله فيك .
العفو و فيك بارك الله.
الحمدلله.