السلام عليكم ورحمة الله وبركاته
لدي 3 تيكست بوكس الاول والثاني بهم الوقت والثالث = الفرق بين التيكست الاول والثاني احاول استخدام كود الطرح العادي للأرقام ولكن لم ينجح هل من حل ؟
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
www.acrowing.com
اول موقع عربي لرياضة التجديف
السلام عليكم
طبعا لازم يجيب خطأ لأنه بيتعامل معاه على إنه نص وval مش هاتجيب قيمة الوقت عامة أنا عملتلك مثال حمله وجربه
سلاااااااااااااااااااااااااااااااام
المحلة الكبري - كلية الطب جامعة الأزهر بدمياط
من مواضيعي
برنامج تحويل mp3,wav,wma إلى exe والكود موجود
أداة تصميم الفورم على شكل صورة مع الكود
واحدة من أحدث الشفرات بمناسبة إنتهاء الإمتحانات
أفضل الإختصارات لكود برنامج خفي السواقات(الدرايفات
مؤثر عرض على مجموعة من الجمل تشبة المنتديات
إليكم أداة شاشة العرض مع الكود
برنامج تحويل exe,dll إلى Ico مع الكود
من المواضيع التي شاركت فيها
كيف يتم تصدير محتويات الفورم على شكل صورة؟
كيفية إعادة تسمية المجلدات Folders
Colored List Box Control with Horizontal Scroll
وهناك الجديد إن شاء الله
Private Sub Computer_Think()
On Error Tray Again
If You = "Real Computer" Then
DoIt("By Your Self")
Else
Kick("Your Self")
End If
End Subwalled_aall@hot كتب:السلام عليكم ورحمة الله وبركاته
لدي 3 تيكست بوكس الاول والثاني بهم الوقت والثالث = الفرق بين التيكست الاول والثاني احاول استخدام كود الطرح العادي للأرقام ولكن لم ينجح هل من حل ؟
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
تفضل
Dim T1 As Date Dim T2 As Date T1 = Me.Text1 T2 = Me.Text2 Text3 = Format(T2 - T1, "HH:MM:SS")
تم تعديل هذه المشاركة بواسطة عبدالفتاح حسن في 5 مايو 2010 في 02:58
كن كالنخيل عن الأحقاد مرتفعا .. يرمى بصخر فيرمى أطيب الثمر
شكرا عبد الفتاح حسن ولكن يبدوا أن صاحب الموضوع سأل السؤال وهرب ههههههه
عامة أنا حذفت الملف اللي كنت رافعه
بس أنا كنت عايز أنبه إن الكود اللي أخونا عبد الفتاح حاطه مش هايفرق مين الوقت الأكبر يعني مثلا
5:30-3:13=3:13-5:30
سلااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااام
تم تعديل هذه المشاركة بواسطة بلال حمدي في 5 مايو 2010 في 06:57
المحلة الكبري - كلية الطب جامعة الأزهر بدمياط
من مواضيعي
برنامج تحويل mp3,wav,wma إلى exe والكود موجود
أداة تصميم الفورم على شكل صورة مع الكود
واحدة من أحدث الشفرات بمناسبة إنتهاء الإمتحانات
أفضل الإختصارات لكود برنامج خفي السواقات(الدرايفات
مؤثر عرض على مجموعة من الجمل تشبة المنتديات
إليكم أداة شاشة العرض مع الكود
برنامج تحويل exe,dll إلى Ico مع الكود
من المواضيع التي شاركت فيها
كيف يتم تصدير محتويات الفورم على شكل صورة؟
كيفية إعادة تسمية المجلدات Folders
Colored List Box Control with Horizontal Scroll
وهناك الجديد إن شاء الله
Private Sub Computer_Think()
On Error Tray Again
If You = "Real Computer" Then
DoIt("By Your Self")
Else
Kick("Your Self")
End If
End Subاليكم هذا الحل