كيف ا قوم بجمع ساعات ؟؟؟؟

الزميل العزيز

أضف الكود التالي:

Function AddTime(Hours As Integer, Minutes As Integer) As Integer
	Static Total As Integer
	Dim H As Integer
	Dim M As Integer
	Total = Total + Hours * 60 + Minutes
	M = Total Mod 60
	H = Total \ 60
	AddTime = IIf(M < 30, H, H + 1)
End Function

Private Sub Command1_Click()
	Debug.Print AddTime(Val(Text1), Val(Text2))
End Sub