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")
كود :
For Each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next