الدوال فى الفيجوال بيسك وشرحها الجزء الثالث

دوال الوقت والتاريخ

 دالة year

(Label1.Caption = Year(#1/4/97#

تعيد هذه الدالة رقما يعبر عن السنة لتاريخ معين 

دالة week day

(Label1.Caption = Weekday(#1/4/97#

تعيد هذه الدالة ترتيب اليوم بين أيام الأسبوع من التاريخ المدون بحقل التاريخ أو القيمة التاريخية باعتبار أن يوم الأحد رقم 1 والاثنين 2 ... وهكذا

دالة time value

 ("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 ثانية "

دوال   Hour,Minute,Second,TimeValue: 

Hour(رقم)

Minute(رقم)

Second(رقم)

TimeValue(تعبير)

تعيد هذه الدوال قيم الساعة ، الدقيقة ، الثانية أو الوقت .

دالة time serial

(ثانية,دقيقة,ساعة)timeserial

مثال

(Get_Time=TimeSerial(12,59,20

MsgBox Get_Time

تعيد هذه الدالة الوقت المسلسل المقابل للساعة و الدقيقة و الثانية المدونة بين الأقواس 

دالة time 

()Label1.Caption = Time

()$Label1.Caption = Time

تعيد هذه الدالة الوقت الحالي حسب ما هو مدون بساعة الحاسب الذي تعمل علية 

دوال التحقق من انواع البيانات

دالة vartype

(Function IsReal(VarArg As String

If VarType(VarArg) = 4 Or VarType(VarArg) = 5 Then

IsReal = True

Else

IsReal = False

End If

End Function

تستخدم هذه الدالة في معرفة نوع بيانات المتغير .

دوال سلاسل البيانات

دالة val

(myNumber = Val (Text1.text

وهنا تعمل الدالة علي تحويل القيمة الموجودة في 

 Text1

 إلى قيمة رقمية

وهي تحول السلاسل النصية إلى قيمة رقمية وهي عكس الدالة ()Str التي تحول الأرقام إلى سلاسل نصية 

دالة ucase

("msg = UCase("alaa

MsgBox msg

تحول الجمله المدخلة من الاحرف الصغيره الى الاحرف الكبيره 

دالة trim

  ("       MyText = Trim("      alaa

Text1.Text = MyText

تقوم هذه الدالة بحذف الفراغات الموجودة في الجهة اليسري و اليمني من السلسة المكتوبة التى بداخل القوس .