السلام عليكم ورحمة الله وبركاته
عندي مثلا مجموعة من الاوقات في اكثر من تيكست بوكس
ولتكن
textbox1.text=07:15
textbox2.text=01:10
textbox3.text=04:21
وهكذا
اريد الفرق بين كل وقت مع وقت الجهاز
يعني كل وقت في التيكست بوكس والفرق بينه وبين توقيت الجهاز
وايجاد اقرب وقت من هذه الاوقات لوقت الجهاز
وكذلك كيفية طرح وقت مثلا في لليوم مع وقت في اليوم الذي يليه
وشكرا
وعليكم السلام ورحمة الله وبركاته
انت تريد عمل طرح وجميع وقت مع اخر
لكن لم توضح مصدر التاريخ خصوصاً انك يتكون بحاجة له
وكذلك كما انت ذكرت فى اخر سطر بين يوم ويوم اخر
على اى حال اليك كود بشكل عام يمكنك التعديل عليه لما تريد فعله
انا قمت بعمل شرح على كود حتى توضح لك الفكرة كاملاً لتتمكن من التعامل معه كما تشاء
كود :
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
تحياتى لك
وتمنياتى لك التوفيق
(03-09-18, 11:10 PM)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
تحياتى لك
وتمنياتى لك التوفيق
مشكور على الرد سأجرب الكود واخبرك ومشكور مرة أخرى على الاجابة على تسائلي
ممكن طريقة ايجاد اقرب وقت من هذه الاوقات لوقت الجهاز
الشكر لله
بخصوص عرض رسالة توضح اى وقت اقرب مع وقت الجهاز
يمكنك استخدام الكود التالى طبقاً للشرح الذى تم
كود :
If Time01 <= TimePC Then
MsgBox("الوقت الاقرب هو : " & TextBox1.Text)
ElseIf Time01 > TimePC And Time02 <= TimePC Then
MsgBox("الوقت الاقرب هو : " & TextBox2.Text)
' ElseIf Time02 > TimePC And Time03 <= TimePC Then
' MsgBox("الوقت الاقرب هو : " & TextBox3.Text)
Else
MsgBox("أوشك اليوم على الانتهاء") ' يعنى ان كل التوقيت السابق اصبح اصغر من وقت الجهاز
End If
تحياتى لك
وتمنياتى لك التوفيق