[محمد مسافر]

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

موضح لكم في المرفق اداه لحساب التاريخ من تاريخ اليوم الذي نحن فيه الى تاريخ قادم 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 


[محمد مسافر]

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

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

[asmarsou]

(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)محمد مسافر كتب : شكرأ استاذي سعود عرفت الاشكاليه وكل شي تمام الان بارك الله فيك .

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