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

الخميس أكتوبر 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 وكذلك دوال فيجوال بيسك نفسها .