[VB New]

السلام عليكم

سؤال لأهل الخبرة

كيف يمكن جمع الوقت للدوام

مثل :

12:20
13:10
10:50

المجموع :
36:20
وهكذا

أريد المجموع

[Ahmed_Mansoor]

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

أهلا بك أخي الكريم , إستخدم هذا الكود :

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 


بالتوفيق .

[VB New]

شكراً جزيلاً لك




لو أمكن كمان عملية طرح وقت مجموع وقت من مجموع وقت اخر


مثل :

58:24-30:20=28:04

[Ahmed_Mansoor]

اهلا بك أخي الكريم , إستخدم هذا الكود لعملية الطرح :

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")