منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - حساب التاريخ والوقت بالايام والساعات والثواني الى تاريخ محدد

الاخوة الاعزاء :

موضح لكم في المرفق اداه لحساب التاريخ من تاريخ اليوم الذي نحن فيه الى تاريخ قادم 21/11/2022 بمعنى تحسب الفتره المتبقيه كماهو موضح ولكن مااريده تكرماً منكم تغيير الفتره المتبقيه التي تظهر بالاشهر الى ايام متبقيه بحيث تظهر عدد ايام , ساعات , دقائق , ثواني الى تاريخ 21/11/2022 وموضح لكم شرح في الصوره لما اريده , ومن ضمن الملاحظات ايضاً ان يظهر الوقت المتبقي الى تاريخ 21/11/2022 حتى الساعه 1 ظهراً في نفس اليوم وليس الى نهايه اليوم الساعه 12 ليلاً .

ملاحظه :

اشكر الاخ المبدع / asmarsou حيث فعلاً افادني في موضوع سابق بالاكواد وكذلك الشكر موصول للاستاذ/ [b]سعود [/b]

هل تقصد هذا:

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 

حياك استاذ/ ابو سعود

جربت الاكواد ومااشتغل موضح لك الاشكاليه في المشروع هل ياتري الاشكاليه في تنسيق التاريخ عندي في الجهاز جربت اكثر من تنسيق .

(20-06-22, 05:56 PM)محمد مسافر كتب : [ -> ]حياك استاذ/ ابو سعود

جربت الاكواد ومااشتغل موضح لك الاشكاليه في المشروع هل ياتري الاشكاليه في تنسيق التاريخ عندي في الجهاز جربت اكثر من تنسيق .

اخي العزيز جرب تغيير تنسيق التاريخ في الكود الخاص بالمؤقت من 11/22/2022 الى 22/11/2022 و انشاء الله تشتغل معاك

(20-06-22, 06:05 PM)asmarsou كتب : [ -> ]
(20-06-22, 05:56 PM)محمد مسافر كتب : [ -> ]حياك استاذ/ ابو سعود

جربت الاكواد ومااشتغل موضح لك الاشكاليه في المشروع هل ياتري الاشكاليه في تنسيق التاريخ عندي في الجهاز جربت اكثر من تنسيق .

اخي العزيز جرب تغيير تنسيق التاريخ في الكود الخاص بالمؤقت من 11/22/2022 الى 22/11/2022 و انشاء الله تشتغل معاك

اهلين اخي العزيز جربت مانفع في حاجه محتاجه لتعديل اشكرك على تعاونك واهتمامك .

حسب اللي انا متعود عليه اليوم يكون بالمنتصف:

اسعد الله صباحكم

حاولت وجربت مانفع اذا امكن ممكن استاذ/ سعود توضحلي ايش الخطا عندي واذا امكن ترسل لي المشروع جاهز علشان اتاكد اكون شاكر لكم جميعاً .

(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 

المثال معدل مرفق

(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

المثال معدل مرفق

شكرأ استاذي سعود عرفت الاشكاليه وكل شي تمام الان بارك الله فيك .

(21-06-22, 12:31 PM)محمد مسافر كتب : [ -> ]شكرأ استاذي سعود عرفت الاشكاليه وكل شي تمام الان بارك الله فيك .

العفو و فيك بارك الله.
الحمدلله.