الحصول على المجموع الاجمالي في التقارير

[firad8666]

السلام عليكم اعضاء المنتدى الكريم.

لدي مشكلة بسيطة اتمنى ان تساعدوني في حلها وجزاكم الله كل خير سلفا

لدي قاعدة بيانات مرفقة لسجل دوام الموظفين وقد قمت ببعض العمليات للحصول على الوقت الاضافي وهو مقسم لقسمين OT R1 و OT R2 واريد الحصول على اجمالي ساعات الوقت الاضافي في التقرير النهائي بقاعدة البيانات المرفقة لدفع الرواتب للموظفين وفقا للمجموع النهائي

 

تحياتي 

example.zip

[jjafferr]

وعليكم السلام 

 

تفضل 

 

في التقرير حولنا الساعات والدقائق الى ثواني ، ثم جمعنا الثواني ، بطريقة مستقلة لكل من R1 , R2 ،

ثم استخدمنا الوحدة النمطية التالية لتحويل الثواني الي يوم : ساعة : دقيقة : ثانية  :

 
Function TimeInterval(value As Long) As String

'from
'http://bytes.com/topic/access/answers/532311-conversion-seconds-hours-minutes
'
' pass in a value in seconds
Dim secVal As Integer
Dim minVal As Integer
Dim hourVal As Integer
Dim dayVal As Integer
Dim days As Long
Dim hours As Long
Dim mins As Long
 
    days = 86400
    hours = 3600
    mins = 60
 
    dayVal = Fix(value / days)
    value = value - (dayVal * days)
    hourVal = Fix(value / hours)
    value = value - (hourVal * hours)
    minVal = Fix(value / mins)
    value = value - (minVal * mins)
    secVal = value
 
    'TimeInterval = dayVal & ":" & hourVal & ":" & minVal & ":" & secVal
    TimeInterval = dayVal & "D : " & hourVal & "H : " & minVal & "M : " & secVal & "S"
 
End Function
 
 

والنتيجة في التقرير:

 

 

جعفر

 

75.sum time.accdb.zip

[firad8666]

وعليكم السلام 

 

تفضل 

 

في التقرير حولنا الساعات والدقائق الى ثواني ، ثم جمعنا الثواني ، بطريقة مستقلة لكل من R1 , R2 ،

ثم استخدمنا الوحدة النمطية التالية لتحويل الثواني الي يوم : ساعة : دقيقة : ثانية  :

 
Function TimeInterval(value As Long) As String

'from
'http://bytes.com/topic/access/answers/532311-conversion-seconds-hours-minutes
'
' pass in a value in seconds
Dim secVal As Integer
Dim minVal As Integer
Dim hourVal As Integer
Dim dayVal As Integer
Dim days As Long
Dim hours As Long
Dim mins As Long
 
    days = 86400
    hours = 3600
    mins = 60
 
    dayVal = Fix(value / days)
    value = value - (dayVal * days)
    hourVal = Fix(value / hours)
    value = value - (hourVal * hours)
    minVal = Fix(value / mins)
    value = value - (minVal * mins)
    secVal = value
 
    'TimeInterval = dayVal & ":" & hourVal & ":" & minVal & ":" & secVal
    TimeInterval = dayVal & "D : " & hourVal & "H : " & minVal & "M : " & secVal & "S"
 
End Function
 
 

والنتيجة في التقرير:

75.Clipboard01.jpg

 

 

جعفر

 

الله يجزيك الخير وشكرا كتير على مساعدتك ... الله بعلم اني تعبت وانا بدور على هل المعلومة والك وعد مني اني رح اتعلم الكود واي شخص رح يحتاجو رح علمو اياه والاجر والثواب الك انشالله 

 

تحياتي 

فراس 

[jjafferr]

 

في التقرير حولنا الساعات والدقائق الى ثواني ، ثم جمعنا الثواني ، بطريقة مستقلة لكل من R1 , R2 ،

 

 

 

حياك الله 

 

وهذه معادلة R1 الموجودة في التقرير:

حولنا الساعات والدقائق الى ثواني ، ثم جمعنا الثواني

=Sum(DatePart("h",[OT R1])*3600  +  DatePart("n",[OT R1])*60  +  DatePart("s",[OT R1]))

جعفر

تم تعديل مايو 27, 2015 بواسطه jjafferr