[elgokr]

وعليكم السلام ورحمة الله وبركاته

انت تريد عمل طرح وجميع وقت مع اخر

لكن لم توضح مصدر التاريخ خصوصاً انك يتكون بحاجة له

وكذلك كما انت ذكرت فى اخر سطر بين يوم ويوم اخر

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

انا قمت بعمل شرح على كود حتى توضح لك الفكرة كاملاً لتتمكن من التعامل معه كما تشاء

كود :

       Dim TimePC As Date
       Dim Time01 As Date
       Dim Time02 As Date
       Dim TimeTotal1, TimeTotal2, TimeTotal3 As New TimeSpan

       Dim TimeArray1 As String() = TextBox1.Text.Split(":")
       Dim TimeArray2 As String() = TextBox2.Text.Split(":")
       'Dim TimeArray3 As String() = TextBox3.Text.Split(":")

       ' التاريخ والوقت الحاى
       TimePC = Now

       ' الوقت من TextBox1
       REM                   [ الثواني ]  [ الدقائق  ] [  الساعات  ]  [اليوم] [ الشهر ] [ السنة ]
       Time01 = New DateTime(Now.Year, Now.Month, Now.Day, TimeArray1(0), TimeArray1(1), 0)

       ' الوقت من TextBox2
       REM                   [ الثواني ]  [ الدقائق  ] [  الساعات  ]  [اليوم] [ الشهر ] [ السنة ]
       Time02 = New DateTime(Now.Year, Now.Month, Now.Day, TimeArray2(0), TimeArray2(1), 0)

       '' الوقت من TextBox3
       REM                   [ الثواني ]  [ الدقائق  ] [  الساعات  ]  [اليوم] [ الشهر ] [ السنة ]
       'Time03 = New DateTime(Now.Year, Now.Month, Now.Day, TimeArray3(0), TimeArray3(1), 0)

       ' طرح الوقت الاول من وقت الكمبيوتر
       TimeTotal1 = Time01 - TimePC

       ' طرح الوقت الثاني من وقت الكمبيوتر
       TimeTotal2 = Time02 - TimePC

       '' طرح الوقت الثالث من وقت الكمبيوتر
       'TimeTotal3 = Time03 - TimePC

       MsgBox("الوقت المتبقى هو " & TimeTotal1.Hours & " ساعة و " & TimeTotal1.Minutes & " دقيقة")
       MsgBox("الوقت المتبقى هو " & TimeTotal2.Hours & " ساعة و " & TimeTotal2.Minutes & " دقيقة")
       'MsgBox("الوقت المتبقى هو " & TimeTotal3.Hours & " ساعة و " & TimeTotal3.Minutes & " دقيقة")

الكود موضح للوت طبقاً لليوم الحالى

يمكنك التلاعب فى الايام والشهر والسنة من خلال الجمل التالية

PHP كود :

Now.Year, Now.Month, Now.Day 


تحياتى لك

وتمنياتى لك التوفيق