أحتاج كود لحساب الوقت

رجاء جاوبو على سؤالي

لان حاولت كثير وماضبط معايا

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

أنا أحاول أفكر بصوت عال معك.

أظن إحنا محتاجين دالتين: واحدة لتحويل الوقت الذي هو ممثل أو موصف كنص الي تمثيل رقي لكي يسهل عملية الجمع و الطرح الخ

و دالة أخري لتحويل الرقم الي نص في شكل وقت

Private Sub Command1_Click()
h1 = Val(Left(Text1.Text, 2))
m1 = Val(Mid(Text1.Text, 3, 2))

h2 = Val(Left(Text2.Text, 2))
m2 = Val(Mid(Text2.Text, 3, 2))

Text3.Text = h1 - h2 & " Hours and " & m1 - m2 & " Mintutes"
End Sub

3 text boxes and 1 command

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

أنا جربت الكود الذي أرسله الأخ hishamnasr

بسيط ومفهوم و لكن المشكلة إنه يشترط أن الوقت ألاول أكبر من الثاني

أبا المنذر

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

يمكن يكون هذا الكود صعب شوية لكنه يسير علي جميع الأحوال

Private Sub Command1_Click()

Dim num1 As Long

num1 = fromTimeToLong(Text1) - fromTimeToLong(Text2)

Text3 = fromLongToTime(Abs(num1))

End Sub

Private Function fromTimeToLong(Time1 As String) As Long

Dim Arr

Arr = Split(Time1, ":")

fromTimeToLong = Arr(0) * 60 * 60 + Arr(1) * 60 + Arr(2)

End Function

Private Function fromLongToTime(Num As Long) As String

Dim Hours As Integer

Dim Minutes As Integer

Dim Seconds As Integer

Hours = Floor(Num / 3600)

Minutes = Floor((Num - (Hours * 3600)) / 60)

Seconds = (Num - (Hours * 3600) - (Minutes * 60)) Mod 60

fromLongToTime = Hours & ":" & Minutes & ":" & Seconds

End Function

Function Floor(iReal As Single) As Integer

Floor = Round(iReal - 0.5)

End Function

أبا المنذر

بارك الله في جهودكم

وجزاكم الله خير جميعاً : )