تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
جمع ساعات الدوام
#1
السلام عليكم

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

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

مثل :

12:20
13:10
10:50

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

أريد المجموع
الرد
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته

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

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 

بالتوفيق .
كود :
For Each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد
تم الشكر بواسطة: VB New , VB New , asemshahen5 , Amir_Alzubidy , amkhalid , sendbad100
#3
شكراً جزيلاً لك




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


مثل :

58:24-30:20=28:04
الرد
تم الشكر بواسطة: asemshahen5 , Ahmed_Mansoor , Amir_Alzubidy
#4
اهلا بك أخي الكريم , إستخدم هذا الكود لعملية الطرح :

PHP كود :
Private Sub Command1_Click()

Dim Minutes As Integer
Dim Hours1 
As IntegerMinutes1 As Integer
Dim Hours2 
As IntegerMinutes2 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
الرد
تم الشكر بواسطة: Amir_Alzubidy , Amir_Alzubidy , VB New , amkhalid , sendbad100


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  برنامج حساب ساعات إضافية فيصل علي 2 780 30-03-17, 02:17 AM
آخر رد: فيصل علي
  [سؤال] جمع ساعات العمل ABO.BANCIANA 1 970 21-01-14, 04:00 PM
آخر رد: ABO.BANCIANA

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم