شاطر
اذهب الى الأسفل
عدد المساهمات : 134
تاريخ التسجيل : 08/10/2012
معاينة صفحة البيانات الشخصي للعضو

أحصل على أي جزء من الوقت : استخلاص الساعات والدقائق والثواني والملي ثواني !

في الخميس أكتوبر 18, 2012 8:59 pm
اعتقد جازما بأنه لا يمكن لأي مبرمج ان لا يحتاج في يوم من الأيام إلى معرفه الساعة الحالية من الوقت الحالي ، بمعنى ان يستخلص الساعه فقط من الوقت ، أو الدقائق، أو الثواني ، ما رأيك أن تكون الملي ثانيه لنجعلها أكثر متعه ؟
حسنا هذا ممكن بأكثر من طريقة ، وهنا سنفعلها بطريقتين ، هذه الأولى ممثله في الكود التالي :
الكود:

        ‘الوقت والتاريخ الحالي
        Dim rightNow As Date = Now
        ‘الساعه الحالية
        Dim hourNow As Integer = rightNow.Hour
        ‘الدقائق الحالية
        Dim minuteNow As Integer = rightNow.Minute
        ‘الثواني
        Dim secondNow As Integer = rightNow.Second
        ‘استخلاص الملي ثواني
        Dim millisecondNow As Integer = rightNow.Millisecond

        Dim results As String = String.Format( _
          “Hour: {1}{0}Minute: {2}{0}Second: ” & _
          “{3}{0}Millisecond: {4}”, vbNewLine, _
          hourNow, minuteNow, secondNow, millisecondNow)
        MsgBox(results)
حسنا، أي كائن من النوع Date يحتوي على الكثير من الطرق المفيدة ، وهنا استخدمنا دوال مفيده واحده اسمها Hour تعيد لنا الساعه ، واخرى اسمها Minute تعيد الدقائق، واحده Second والأخيره Millisecond ، كلها تعيد قيم من النوع Integer تمثل الساعه ، الدقيقه ، الثانيه ، الملي ثانيه الموجوده في اللحظه الحالية.

طريقة أخرى لمحاكاة ذلك بإستخدام دوال Visual Basic.Net وحدها ، وهذه مماثله للإصدارات القديمة من VB ( 6 وما قبلها ) ولكن بدون الملي ثانيه فلا وجود لها :
الكود:

        ‘الوقت والتاريخ الحالي
        Dim rightNow As Date = Now
        ‘استخلاص الساعه
        Dim hourNow As Integer = Hour(rightNow)
        ‘استخلاص الدقائق
        Dim minuteNow As Integer = Minute(rightNow)
        ‘استخلاص الثواني
        Dim secondNow As Integer = Second(rightNow)

        MsgBox(“Hour:” & hourNow.ToString & vbNewLine & _
                “Minute:” & minuteNow & vbNewLine & _
                “Second:” & secondNow)
حيث استخدمنا الدوال Hour,Minute,Second التي تعود بالساعه ، الدقيقه ، الثانيه من القيم المرسله .

ملاحظة أخيره : الأمر مماثل بالنسبه للتاريخ ، فيمكن استخلاص اليوم ، الشهر ، السنة وتنسيقها بطرق مختلفه بفضل دوال system.date وكذلك دوال فيجوال بيسك نفسها .
الرجوع الى أعلى الصفحة
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى