دوال الوقت و التاريخ Date and Time

3. دوال الوقت و التاريخ Date and Time
الدالة Now : تعيد هذه الدالة تاريخ اليوم و الوقت الحالي باستخدام ساعة الحاسب الذي تعمل علية وتكون بالصورة التالية :
رمز برمجي:
Label1.Caption = Now()
الدالة Time : تعيد هذه الدالة الوقت الحالي حسب ما هو مدون بساعة الحاسب الذي تعمل علية وتكون بالصورة التالية
رمز برمجي:
Label1.Caption = Time()
________________________________________
الدالة Date :تعيد التاريخ الحالي حسب ما هو مسجل بالحاسب ويكون بالصورة التالية :
رمز برمجي:
Label1.Caption = Date()
________________________________________
الدالة Day والدالة Month :تعيد الدالة Day() رقما يقع بين 1 ، 31 يمثل ترتيب اليوم المقابل لقيمة تاريخية بينما تعيد الدالة Month() رقما يقع بين 1 ، 12 يمثل ترتيب الشهر المقابل لقيمة تاريخية
رمز برمجي:
Label1.Caption =Day(Date())
Label1.Caption =Month(Date())
________________________________________
الدالة DateSerial : تعيد هذه الدالة التاريخ المسلسل المقابل لليوم والشهر والسنة المدون بين الأقواس وتأخذ الصورة التالية :
رمز برمجي:
GetDate=DateSerial(2003,4,11)
MsgBox GetDate
________________________________________
الدالة TimeSerial : تعيد هذه الدالة الوقت المسلسل المقابل للساعة و الدقيقة و الثانية المدونة بين الأقواس وتأخذ الصورة التالية :
رمز برمجي:
Get_Time=TimeSerial(12,59,20)
MsgBox Get_Time
________________________________________
الدالة DateValue : تعيد هذه الدالة التاريخ المقابل لتعبير معين وتأخذ الصورة التالية :
رمز برمجي:
RelVal = DateValue(Now – 1(
MsgBox RelVal
Select Case RelVal
Case Is < Int(Now): Verb "كان "=
Case Is > Int(Now): Verb = "سيكون"
Case Else: Verb = "اليوم هو"
End Select
WhatDay = Format(RelVal, "dddd”)
MsgBox UserDate & Verb & WhatDay
يبن هذا المثال تحديد يوم من أيام الأسبوع (أمس) بعد تحديد قيمة تاريخ اليوم (بفرض : الاثنين الموافق 2سنة 1997) ثم طرح (1) منة يظهر الناتج في صورة رسالة بان أمس "كان الأحد" .
________________________________________
دوال Hour,Minute,Second,TimeValue:
رمز برمجي:
Hour(رقم)
Minute(رقم)
Second(رقم)
TimeValue(تعبير)
تعيد هذه الدوال قيم الساعة ، الدقيقة ، الثانية أو الوقت .
رمز برمجي:
Midnight=TimeValue(“23:59:59”)
HourDiff=Hour(Midnight)-Hour(Now)
MinuteDiff=Minute(Midnight)-Minute(Now)
SecondDiff=Scond(Midnight)-Second(Now)+1
If Second Diff=60 Then
MinuteDiff=MinuteDiff+1
SecondDiff=0
End If
If MinuteDiff=60 Then
HourDiff=HourDiff+1
MinuteDiff=0
End If
TotalMinDiff=(HourDiff*60)+MinuteDiff
Total SecDiff=(Total MinDiff*60)+SeconDiff
Msg=”إجمالي الوقت المتبقي علي منتصف الليل هو”& Format(Total SecDiff,”#,##0”)
Msg=Msg&”ثانية ، يمكن ترجمتها إلي”
Msg=Msg & HourDiff & “ساعة، ” & MinuteDiff
Msg=Msg & “دقيقة، و ” & SecondDiff & “ثانية”
Msg BoxMsg
يستخدم هذا المثال الدوال السابقة لتحويل الوقت المتبقي علي منتصف الليل إلى ثواني ثم ترجمة هذا الوقت إلى ساعات ودقائق وثواني في رسالة كهذه "إجمالي الوقت المتبقي علي منتصف الليل هو 79972 ثانية يمكن ترجمتها إلى 22 ساعة 12 دقيقة 25 ثانية "
________________________________________
الدالة Weekday : تعيد هذه الدالة ترتيب اليوم بين أيام الأسبوع من التاريخ المدون بحقل التاريخ أو القيمة التاريخية باعتبار أن يوم الأحد رقم 1 والاثنين 2 ... وهكذا
رمز برمجي:
Label1.Caption = Weekday(#1/4/97#)
________________________________________
الدالة Year : تعيد هذه الدالة رقما يعبر عن السنة لتاريخ معين .
رمز برمجي:
Label1.Caption = Year(#1/4/97#)
________________________________________
الدالة DateAdd : تعيد هذه الدالة تاريخ جديد بعد أن تضيف له قيمة جديدة وبصرف عن اسم هذه الدالة فهي تعمل مع كل من التاريخ و الوقت . ويوضح الجدول التالي المقصود بالمعامل "الفاصل الزمني " و القيم التي يمكن تخصيصها له :
الفاصل الزمني -----------التوضيــــــــــــــــــــح
yyyy ----------- سنة
q -----------ربع سنة
m -----------شهر
y -----------يوم في سنة
d -----------يوم
w -----------يوم من الأسبوع ( الأحد 1 ، والاثنين 2 ... وهكذا
ww -----------أسبوع
h -----------ساعة
n -----------دقيقة
s -----------ثانية
رمز برمجي:
Label1.Caption = DateAdd("yyyy", -10, Date(
وفي هذا المثال تعيد هذه الدالة السنة الحالية 2003 إلى 10 سنوات مضت 1993
________________________________________
الدالة DateDiff : تقوم هذه الدالة بإعادة الفرق بين تاريخين .
Label1.Caption = DateDiff("y", 2000, 2003(
بينما المثال التالي يحدد عدد الأسابيع وعدد الأيام ما بين أول أيام سنة 2003 وتاريخ اليوم
رمز برمجي:
Label1.Caption = DateDiff("ww", #4/5/2003#, Now())
Label2.Caption = DateDiff("y", #4/10/2003#, Now())
________________________________________
الدالة DatePart : تقوم هذه الدالة بإعادة جزء من التاريخ (مثل اليوم أو الشهر أو الأسبوع أو الساعة ) ويتم تعين هذا الجزء بواسطة الفاصل الزمني .
تعيد الدالة في هذا المثال رقم اليوم المحدد في حقل تاريخ الاعتماد (OrderDate )
رمز برمجي:
Label1.Caption = DatePart("w", OrderDate)
تابع . . .

حياك الله

احلى مرور