عاوز كود يضرب الزمن فى مبلغ

ممكن توضح الطريقه الى بتدخل بيها البيانات

يعنى الفلوس بتدخل ارقام صحيحه ولا فيها كسور والوقت كمان

لأن انت ممكن تصربها على طول من غير اى حاجه

بس يا سيدى

مثلا الفلوس تكتب بالشكل التالى

0.25 قرش

و الوقت بشكل ده

00:15:24

و مع العلم انا مش كده وبس ده انا عاوز اعرف 0.25 = دقيقة مثلا يعنى

سوال صعب مش كده ورخ

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

اخي من الممكن انك تعمل لكل قسم من الوقت مكان خاص بمعنى...

الدقائق توضع في text1

والساعات توضع في text2

وهكذا او تستبدل ذلك بمتغيرات يتم التصريح عنها في البرنامج

وتقوم انت ببرمجتها على ان الدقائق مثلا لو وصلت لـ 60 يتم تغيير قيمتها الى صفر وتزيد قيمة الساعات بمقدار واحد

وستقوم ايضا بعمل متغير ثابت يحتوي على قيمة الفلوس لكل دقيقة ونفس الحكاية بالنسبة للساعات

وممكن تضع تايمر مثلا وتضع فيه كود يقوم بضرب قيمة الدقيقة في عدد الدقائق وقيمة الساعة في عدد الساعات

فتحصل على القيمة الاجمالية للوقت كله

أتمنى تكون فاهم الفكرة

حاول تطبقها ولو واجهت مشاكل اكتبها هنا وان شاء الله نحاول نحلها

ولو احد الاعضاء عنده فكرة اخرى ياريت يكتبها ونتناقش فيها

=========

الى اللقاء

السلام عليكم.

ممكن تستخلص قيمه الدقائق من الزمن وكذالك الساعات ( والثوانى يتقربها لدفيقه لو تهملها او حسب برنامجك)

وبعد كده تحول الساعات لدقائق وتجمعها على الدقائق ثم تضربها فى قيمه الدقيقه... ولو مش واضح الموضوع

ياريت توضح اكثر فكره برنامجك وان شاء الله كلنا حنساعدك..

اقتباس

تستخلص قيمه الدقائق من الزمن وكذالك الساعات ( والثوانى يتقربها لدفيقه لو تهملها او حسب برنامجك)

بالظبت كده يعنى علشان تكون العمليه بسيطه يجب عليك توحيد الزمن اللى هتتعامل معاه اى يا تتعامل مع دقائق

او سعات على طول او اى وحده زمنيه اهم شىء توحد الوحده الزمنيه بتاعتك

مثلا 1 دقيقه = .25 قرش و انت عندك الزمن التالى 1:2:30 اذن الساعه = 60 دقيقه + 2 + 1 =63

دقيقه لاحظ ان الثوانى تم تقريبها و فى الاخر 63 * .25 قرش شوف بقه هيطلعو كام

السلام عليكم

هل هذا طلبك?

	Dim MinutePrice As Double, dSum As Double
	Dim lpTime As String
	lpTime = Text2.Text ' "01:20:50"
	Dim TimeParts
	TimeParts = Split(lpTime, ":")

	For i = 1 To 2 - UBound(TimeParts)
		ReDim Preserve TimeParts(i + 1)
		TimeParts(i + 1) = 0
	Next
	lpTime = ""
	For i = 0 To 2
		lpTime = lpTime + IIf(lpTime = "", "", ":") & Val(TimeParts(i))
	Next

	MinutePrice = Val(Text1.Text)
	dSum = (MinutePrice * Hour(lpTime) * 60) + _
		   (MinutePrice * (Minute(lpTime))) + _
		   (MinutePrice * (Second(lpTime) / 60))

	MsgBox Format(dSum, "currency")