تحويل رقم الى ايام ساعات دقائق

[alzahrani2014]

السلام عليكم ورحمة الله وبركاته

 

سؤالي ، عندي حقل لتجميع عدد الدقائق تاخير لموظف وبعد الجمع كانت دقائق التاخير تساوي 3213  دقيقة

 

المطلوب كود لتحويل الرقم الى ايام : ساعات : دقائق      2  :  5  :  33   ( يعني يومين و خمس ساعات و 33 دقيقة )

 

اسم حقل المجموع a1 مثلا 

 

بانتظار ردكم ---- 

 

تحياتي لكم

[Elsayed Bn Gemy]

تفضل اخى الكريم

تحويل الى ايام.rar

[jjafferr]

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

 

احفظ الكود التالي كوحدة نمطية:

Public Function Minutes2Duration(minutes As Long) As String
Dim dd As Integer, hh As Integer, mm As Integer

'from: http://bytes.com/topic/access/answers/696226-converting-minutes-days-hours-minutes
'

dd = minutes \ 1440
minutes = minutes - dd * 1440
hh = minutes \ 60
mm = minutes Mod 60

Minutes2Duration = Format(dd, "000") & ":" & Format(hh, "00") & ":" & Format(mm, "00")

End Function

وفي الحقل الذي تريد ان يتم فيه التحويل ، اكتب هذا الكود:

Minutes2Duration([a1])

جعفر

[alzahrani2014]

الف الف الف مليون شكر

 

كلاكما رائعان ولا اعلم ايهما اختار 

 

شكرا لكما من الاعماق