+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : جمع ساعات الدوام (/showthread.php?tid=32671)
جمع ساعات الدوام - VB New - 24-12-19
السلام عليكم
سؤال لأهل الخبرة
كيف يمكن جمع الوقت للدوام
مثل :
12:20
13:10
10:50
المجموع :
36:20
وهكذا
أريد المجموع
RE: جمع ساعات الدوام - Ahmed_Mansoor - 24-12-19
وعليكم السلام ورحمة الله وبركاته
أهلا بك أخي الكريم , إستخدم هذا الكود :
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
بالتوفيق .
RE: جمع ساعات الدوام - VB New - 30-12-19
شكراً جزيلاً لك
لو أمكن كمان عملية طرح وقت مجموع وقت من مجموع وقت اخر
مثل :
58:24-30:20=28:04
RE: جمع ساعات الدوام - Ahmed_Mansoor - 31-12-19
اهلا بك أخي الكريم , إستخدم هذا الكود لعملية الطرح :
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")