(25-11-22, 01:39 AM)عبدالله الدوسري كتب : وعليكم السلام ورحمة الله وبركاته

كود :

       Dim TotalTime As TimeSpan
       For Each Tim In Me.ListBox1.Items
           Dim ItemString As String = Tim.ToString
           If ItemString <> String.Empty Then
               Dim ItemTimeSpan As TimeSpan
               If ItemString.Split(":").Length > 2 Then
                   ItemTimeSpan = DateTime.ParseExact(ItemString, "HH:mm:ss", Nothing).TimeOfDay
               Else
                   ItemTimeSpan = DateTime.ParseExact(ItemString, "mm:ss", Nothing).TimeOfDay
               End If
               TotalTime = TotalTime.Add(ItemTimeSpan)
           End If
       Next
       MsgBox(TotalTime.ToString)

إذا كان الناتج أقل من أو يساوي 60 دقيقة النتيجة ستكون بهذا السياق : 00:59:59 ( مع وجود 00 في خانة الساعات ) ( بلإمكانة تهيئة النص بالشكل الذي تريدة )
إذا كان الناتج أقل من أو يساوي 24 ساعة النتيجة ستكون بهذا السياق : 01:06:00
إذا كان الناتج أكبر من 24 ساعة النتيجة ستكون بهذا السياق : 1.01:06:00 ( الرقم بعد الفاصلة للأيام )