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

- مربع النص الأول ولتكن تسميته البرمجية : txtStarttime
- مربع النص الثاني ولتكن تسميته البرمجية : txtEndTime
- مربع النص الثالث ولتكن تسميته البرمجية : txtTotaltime

ثم ضع الكود التالي في الحدث Click لزر الأمر
PHP كود :
Dim Stime As Date
        Dim ETime 
As Date
        Dim hh 
As Integer
        Dim mm 
As Integer
        Dim TimeDiff 
As String

        Stime 
Convert.ToDateTime(Me.txtStarttime.Text)
        
ETime Convert.ToDateTime(Me.txtEndtime.Text)
        
hh ETime.Subtract(Stime).Hours
        mm 
ETime.Subtract(Stime).Minutes

        TimeDiff 
hh.ToString ":" mm.ToString
        txtTotalTime
.Text TimeDiff 

أتمنى لكم التوفيق

المثال الثاني : إستخراج الأيام بين تاريخين

PHP كود :
Dim SDate As Date
        Dim EDate 
As Date
        Dim myDay 
As Integer

        Dim TimeDiff 
As String

        SDate 
Convert.ToDateTime(Me.txtStartDate.Text)
        
EDate Convert.ToDateTime(Me.txtEndDate.Text)
        
myDay EDate.Subtract(SDate).Days


        TimeDiff 
myDay.ToString
        txtTotalDate
.Text TimeDiff 

أو الطريقة الثانية :
PHP كود :
Dim myDay As Long DateDiff(DateInterval.DayConvert.ToDateTime(Me.txtStartDate.Text), Convert.ToDateTime(Me.txtEndDate.Text))
        
txtTotalDate.Text myday 
الرد }}}}
تم الشكر بواسطة: أبو عمر
#2
جزاك الله خيرا
                                                        Heart سبحان الله والحمد لله ولا اله الا الله والله اكبر  Heart
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مشروع] إجراء عملية حسابية بسيطة من مربع نص واحد سعود 5 1,141 18-03-15, 12:42 AM
آخر رد: سعود

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


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