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

بسم الله الرحمن الرحيم

دوال الوقت والتاريخ من أكثر الدوال المستخدمة في لغة الفيجول بيزك وسنتعرض لها هنا بشيء من الإجمال

اولا ضع اداة timer وغير خاصية Interval إلى 1000 ثم نستخدم هذه الأكواد

دالة عرض التاريخ الحالي

Label1 = date

دالة عرض الوقت حالياً

Label1 = time

دالة عرض جزء من الوقت او التاريخ

label1 = year(now)

غير year إلى شهر أو يوم أو ساعة أو دقيقة أو حتى ثانية

طريقة عرض التاريخ الهجري

VBA.Calendar = vbCalHijri

ثم نستخدم كود عرض التاريخ الطبيعي ولعرض التاريخ الميلادي

VBA.Calendar = vbCalGreg

ثم نستخدم طريقة عرض التاريخ الحالي

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

Dim now_day As Integer

now_day = Weekday(Date, vbSaturday)

 Select Case now_day
  Case 1
   Label1 = " Saturday"
  Case 2
   Label1 = "Sunday"
  Case 3
   Label1 = " Monday"
  Case 4
   Label1 = "Tuseday"
  Case 5
   Label1 = "Wednesday"
  Case 6
   Label1 = "Thursday"
  Case 7
   Label1 = "Friday"
 End Select