+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : برنامج التعداد الزمني (/showthread.php?tid=8472)
برنامج التعداد الزمني - kader30 - 14-04-13
السلام عليكم ورحمة الله تعالى وبركاته
أما بعد فإني أرغب في إظهار الفرق بين وقت البداية ووقت النهاية في التكست 3 حيث يكون الفرق بالساعات والدقائق فقط وبشكل صحيح دون إشارة السالب في حالة ما إذا كان وقت البداية أكبر من وقت النهاية .
والمثال في المرفقات أرجوا المساعدة وشكرا
برنامج التعداد الزمني - AGASHE - 14-04-13
تفضل اخي ان شاء الله هذا هو طلبك
برنامج التعداد الزمني - kader30 - 14-04-13
بارك الله فيك اخي agashe
على التجاوب السريع معي وشكرا جزيلا لك
برنامج التعداد الزمني - VB_Coder - 14-04-13
السلام عليكم
- هذا كود آخر . ضعه في كود الزر :
كود :
Dim StartTime As Date
Dim EndTime As Date
Dim H As Integer
Dim M As Integer
StartTime = Format$(Text1.Text, "HH:MM:SS")
EndTime = Format$(Text2.Text, "HH:MM:SS")
Minutes = DateDiff("n", StartTime, EndTime)
If Minutes < 0 Then
Dim T As Integer
Dim tTime As Date
Do
T = T + 1
tTime = DateAdd("n", T, StartTime)
If Format$(tTime, "HH:MM:SS") = Format$(EndTime, "HH:MM:SS") Then
H = Int(T / 60)
M = T Mod 60
Text3.Text = Format$(H, "00") & ":" & Format$(M, "00")
Exit Sub
End If
Loop
Else
H = Int(Minutes / 60)
M = Minutes Mod 60
Text3.Text = Format$(H, "00") & ":" & Format$(M, "00")
End If- تحياتي .
برنامج التعداد الزمني - AhmedSamir3 - 14-04-13
اخى الكريم للمعلومة يوجد داله تلغى الاشارة للارقام بمعنى اخر تجعلها موجبة على طول واظن ان هذا ما تريدة انت
وهى اسمها ABS
اذا قم باستخدامها فى الكود الخاص بك
Hours = Abs(DateDiff("h", StartTime, EndTime))
Minutes = Abs(DateDiff("n", StartTime, EndTime) Mod 60)
بعد اضافتها الى الكود الخاص بك كما كتبتها لك ستعطيك النتيجة المطلوبه
برنامج التعداد الزمني - kader30 - 21-04-13
مشكورين يا جماعة الحقيقة ما قصرتوا معايا
بارك الله فيكم هكذا يتحد الإخوة العرب
إن لم يتحدوا في العالم الواقعي
إتحدوا في العالم الإفتراضي
الدكتور / عبان عبد القادر
ورقلة ( الجزائر )