24-12-19, 03:10 PM
24-12-19, 08:33 PM
وعليكم السلام ورحمة الله وبركاته
أهلا بك أخي الكريم , إستخدم هذا الكود :
بالتوفيق .
أهلا بك أخي الكريم , إستخدم هذا الكود :
PHP كود :
Private Sub Command1_Click()
Dim Hours As Integer
Dim Minutes As Integer
Hours = Hours + Hour("12:20")
Hours = Hours + Hour("13:10")
Hours = Hours + Hour("10:50")
Minutes = Minutes + Minute("12:20")
Minutes = Minutes + Minute("13:10")
Minutes = Minutes + Minute("10:50")
Minutes = Minutes + (Hours * 60)
MsgBox CLng(Minutes / 60) & ":" & (Minutes Mod 60)
End Sub
بالتوفيق .
30-12-19, 10:52 AM
شكراً جزيلاً لك
لو أمكن كمان عملية طرح وقت مجموع وقت من مجموع وقت اخر
مثل :
58:24-30:20=28:04
لو أمكن كمان عملية طرح وقت مجموع وقت من مجموع وقت اخر
مثل :
58:24-30:20=28:04
31-12-19, 05:37 AM
اهلا بك أخي الكريم , إستخدم هذا الكود لعملية الطرح :
PHP كود :
Private Sub Command1_Click()
Dim Minutes As Integer
Dim Hours1 As Integer, Minutes1 As Integer
Dim Hours2 As Integer, Minutes2 As Integer
Hours1 = Val(Split("58:24", ":")(0))
Minutes1 = Val(Split("58:24", ":")(1))
Minutes1 = (Hours1 * 60) + Minutes1
Hours2 = Val(Split("30:20", ":")(0))
Minutes2 = Val(Split("30:20", ":")(1))
Minutes2 = (Hours2 * 60) + Minutes2
If Minutes2 > Minutes1 Then
MsgBox "مجموع الوقت الثاني أكبر من مجموع الوقت الأول يجب أن يكون أصغر منه"
Exit Sub
End If
Minutes = Minutes1 - Minutes2
MsgBox Format$(CLng(Minutes / 60), "00") & ":" & Format$((Minutes Mod 60), "00")