تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
برنامج التعداد الزمني
#1
السلام عليكم ورحمة الله تعالى وبركاته
أما بعد فإني أرغب في إظهار الفرق بين وقت البداية ووقت النهاية في التكست 3 حيث يكون الفرق بالساعات والدقائق فقط وبشكل صحيح دون إشارة السالب في حالة ما إذا كان وقت البداية أكبر من وقت النهاية .
والمثال في المرفقات أرجوا المساعدة وشكرا


الملفات المرفقة
.rar   برنامج التعداد &#1.rar (الحجم : 2.24 ك ب / التحميلات : 23)
الرد }}}}
تم الشكر بواسطة:
#2
تفضل اخي ان شاء الله هذا هو طلبك


الملفات المرفقة
.rar   YOUR REQUEST.rar (الحجم : 1.35 ك ب / التحميلات : 28)
الرد }}}}
تم الشكر بواسطة:
#3
بارك الله فيك اخي agashe

على التجاوب السريع معي وشكرا جزيلا لك
الرد }}}}
تم الشكر بواسطة:
#4
السلام عليكم

- هذا كود آخر . ضعه في كود الزر :
كود :
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

- تحياتي .
الرد }}}}
تم الشكر بواسطة:
#5
اخى الكريم للمعلومة يوجد داله تلغى الاشارة للارقام بمعنى اخر تجعلها موجبة على طول واظن ان هذا ما تريدة انت
وهى اسمها ABS
اذا قم باستخدامها فى الكود الخاص بك
Hours = Abs(DateDiff("h", StartTime, EndTime))
Minutes = Abs(DateDiff("n", StartTime, EndTime) Mod 60)

بعد اضافتها الى الكود الخاص بك كما كتبتها لك ستعطيك النتيجة المطلوبه
الرد }}}}
تم الشكر بواسطة:
#6
مشكورين يا جماعة الحقيقة ما قصرتوا معايا
بارك الله فيكم هكذا يتحد الإخوة العرب
إن لم يتحدوا في العالم الواقعي
إتحدوا في العالم الإفتراضي
الدكتور / عبان عبد القادر
ورقلة ( الجزائر )
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  برنامج مواقيت الصلاة لشهر رمضان لولاية بسكرة عبد الرحمان البسكري 4 144 09-05-17, 09:45 PM
آخر رد: Ratchinko
  اريد المساعدة في عمل برنامج مواقيت الصلاة نوراني 1 56 03-05-17, 09:34 AM
آخر رد: Ahmed_Mansoor
  السؤال عن برنامج تسطيب عبد الرحمان البسكري 1 48 03-05-17, 12:17 AM
آخر رد: Ahmed_Mansoor
  برنامج مكافح الفيرس يعترض ملف exe عند بداية تشغيله عبد الرحمن على 8 159 26-04-17, 10:27 PM
آخر رد: عبد الرحمن على
  [vb6.0] أريد المساعدة بشأن كود أو برنامج يرسل لـ whatsapp صعب الوصول 9 201 15-04-17, 04:13 AM
آخر رد: sendbad100
  [vb6.0] طلب برنامج عرض اجهزة الشبكه f16 1 257 21-01-17, 06:35 PM
آخر رد: Ashraf Elafify
  اعادة نشر برنامج لتصفح المصحف الكريم مفتوح المصدر a_senan 4 855 07-01-17, 09:06 PM
آخر رد: Ashraf Elafify
  برنامج لخدمة مراكز اصلاح وصيانة الأجهزة الألكترونية salaheldin 9 1,472 25-12-16, 09:26 AM
آخر رد: Famo15385
Rainbow [سؤال] مساعدة لعمل برنامج حضور وانصراف+وقاعدة بيانات+ربط بالوورد لسهولة طباعة بعض الفورمز فاطمة غ 8 793 01-12-16, 06:37 PM
آخر رد: Amir_alzubidy
  أحتاج برنامج فيجوال بيسك 6 .. يدعم الكتابة باللغة العربية المهندسة رسل 6 2,048 25-11-16, 12:23 AM
آخر رد: fkwinna

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم