[الوادي]

لو دققت في مشاركتي الأخيرة لوجدت الحل فيها

أزيد توضيحاً

أولا نحول الشكل 4:48 إلى دقائق

PHP كود :

(4*60) + 48 = 288 minutes 


وهذه دالة التحويل

PHP كود :

Public Function time2minute(t As String) As Integer
    Dim s() As String
    s = Split(t, ":")
    Dim m As Integer
    t = (Val(s(0)) * 60) + Val(s(1))
    time2minute = t
End Function 


وهذا استدعائها

PHP كود :

Dim m As Integer
m = time2minute("4:48") 


الآن سيحتوي المتعير m على مجموع الدقائق وهي 288


لخطوة التحقق التي تريدها:
نقوم بضرب الدقائق 288 في  5 فنحصل على 1440 دقيقة
ثم نقوم بتحويل الدقائق 1440 دقيقة إلى ساعات بقسمتها على 60
1440 / 60 = 24 ساعة

وإذا أدرتها بشكل h:m استخدم هذه الدالة

PHP كود :

Public Function minute2time(m As Integer) As String
    Dim h As Integer
    Dim s() As String
    Dim t As Double
    t = (m / 60)
    s = Split(Format(t, "0.0#"), ".")
    h = s(0)
    m = (Val("." & s(1))) * 60
    Dim tm As String
    tm = h & ":" & m
    minute2time = tm
End Function 


وهذا استدعائها

PHP كود :

MsgBox minute2time(1440) 


وهذا كود كامل للتجربه Text1 وLabel1 وLabel2 وLabel3 وCommand1 وCommand2 وCommand3

PHP كود :

Option Explicit


Private Sub Command1_Click()
    Label1.Caption = time2minute(Text1.Text)
End Sub

Private Sub Command2_Click()
    Label2.Caption = Val(Label1.Caption) * 5
End Sub

Private Sub Command3_Click()
    Label3.Caption = Val(Label2.Caption) / 60
End Sub



Public Function time2minute(t As String) As Integer
    Dim s() As String
    s = Split(t, ":")
    Dim m As Integer
    t = (Val(s(0)) * 60) + Val(s(1))
    time2minute = t
End Function


Public Function minute2time(m As Integer) As String
    Dim h As Integer
    Dim s() As String
    Dim t As Double
    t = (m / 60)
    s = Split(Format(t, "0.0#"), ".")
    h = s(0)
    m = (Val("." & s(1))) * 60
    Dim tm As String
    tm = h & ":" & m
    minute2time = tm
End Function 


---

لابد من عمل دوال مساعدة تستدعيها عند الحاجة على أن ترجع لك معلومة بشكل تريده

كمبرمج ينبغي أن تكون لديك مكتبة أو حتى مكتبات مصنفة حسب طبيعتها، تحتفظ بها وتقوم بإضافتها في أي برنامج يحتاجها لتسهل عليك عملك بدلا من كتابة الأكواد في كل مرة.

فالمبرمج يريد أن يسهل على نفسه عمل البرامج وإنجازها بأقصر وقت ممكن، مع الحفاظ على تنظيم الأكواد ووضع الشرح داخله ليسهل التعديل إذا احتاج الأمر بعد فترة من الزمن.

والمستخدم للبرنامج لا يهمه ما يجري في الكود، ما يهمه هو استلام البرنامج في أقصر وقت ممكن وأن يعمل بشكل صحيح.