كود معرفة اليوم الحالي

'ضع الكود في الفورم

Private Sub Command1_Click()

Dim Dday As Integer

Dday = Weekday(Date)

If Dday = 1 Then Print "الأحد"

If Dday = 2 Then Print "الاثنين"

If Dday = 3 Then Print "الثلاثاء"

If Dday = 4 Then Print "الأربعاء"

If Dday = 5 Then Print "الخميس"

If Dday = 6 Then Print "الجمعة"

If Dday = 7 Then Print "السبت"

End Sub