الجواب الوافي في مسألة حساب الفرق بين وقتين

[lyla]

السلام عليكم جميعا

قرأت وبحثت وسألت عن فرق وقتين ولم أجد الجواب الوافي وكان سؤالي دائما في مايتعلق بأجزاء الدقيقة

حيث يتعامل بها كرقم عشري :

00:20 دقيقة يحولها الى 00:2

00:30 دقيقة يحولها الى 00:50

فمثلا لوكان عندنا time1-time2

[06:30]-[05:00]=01:50

كذه يعطينا الجواب في الأكسس والمفروض تكون على هذة الصيغة

[06:30]-[05:00]=01:30

وأكثر أجوبة أعضاء المنتدى لي كانت هي أضربي التاتج في 24 (اليوم24ساعة) أشان يتحول الناتج الى زمن بالساعات , وهذا الجواب صحيح 100% لكن أجزاء الدقائق هي كانت مشكلتي

فعندما طرحت موضوعين عن الوقت وأدرجت موضوع لأختي الكريمة زهرة عن هذه القضية لم أجد أحد

يتفاعل عن الموضوع ( مع الشكر للأخ سهل طبعا ) مع العلم أن هذة الدالة يجب أن يعرفها كل من يريد أن يتعامل بالوقت ... سراحة يأست ومليت من كثرة أسألتي فشمرت عن ساعدي الى أن وصلت للنتيجة المطلوبه ولله الحمد . لذا

بقي علي أن أنقل تجربتي للمنتدى لعلى الله ينفع بها .

صورة التقرير بعد أتمام العملية :

وهذة الدالة

Public Function HoursAndMinutes(interval As Variant) As String
'***********************************************************************
' Function HoursAndMinutes(interval As Variant) As String
' Returns time interval formatted as a hours:minutes string
'***********************************************************************
Dim totalminutes As Long, totalseconds As Long
Dim hours As Long, minutes As Long, seconds As Long
If IsNull(interval) = True Then Exit Function

hours = Int(CSng(interval * 24))

totalminutes = Int(CSng(interval * 1440))   ' 1440 = 24 hrs * 60 mins
minutes = totalminutes Mod 60

totalseconds = Int(CSng(interval * 86400))  ' 86400 = 1440 * 60 secs
seconds = totalseconds Mod 60

If seconds > 30 Then minutes = minutes + 1  ' round up the minutes and If minutes > 59 Then hours = hours + 1: minutes = 0 ' adjust hours

HoursAndMinutes = hours & ":" & Format(minutes, "00")
End Function

مرفق مثال

أختكم في الله (y) :d

test.rar

تم تعديل أبريل 18, 2005 بواسطه سهل احمد العريشي

[asaz]

جميل اخت ليلى

لكن ماذا بأن اذا اردت أن احول الساعات إلى دقائق

وما هو تنسيق مربع النص لهذا الرقم