لو دققت في مشاركتي الأخيرة لوجدت الحل فيها
أزيد توضيحاً
أولا نحول الشكل 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
وهذا استدعائها
وهذا كود كامل للتجربه 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
لابد من عمل دوال مساعدة تستدعيها عند الحاجة على أن ترجع لك معلومة بشكل تريده
كمبرمج ينبغي أن تكون لديك مكتبة أو حتى مكتبات مصنفة حسب طبيعتها، تحتفظ بها وتقوم بإضافتها في أي برنامج يحتاجها لتسهل عليك عملك بدلا من كتابة الأكواد في كل مرة.
فالمبرمج يريد أن يسهل على نفسه عمل البرامج وإنجازها بأقصر وقت ممكن، مع الحفاظ على تنظيم الأكواد ووضع الشرح داخله ليسهل التعديل إذا احتاج الأمر بعد فترة من الزمن.
والمستخدم للبرنامج لا يهمه ما يجري في الكود، ما يهمه هو استلام البرنامج في أقصر وقت ممكن وأن يعمل بشكل صحيح.