[سعود]

(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 


---

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