اسم اليوم

لنفرض ان لديك حقل نص باسم text1 وتريد اظهار اليوم به

فنكتب في حدث التحميل هذا الكود

Private Sub Form_Load()
Text1.Text = Format(Date, "ddd")
End Sub

شكراً يا أبو الفوارس

و ممكن كمان

 Dim d As String
Select Case Weekday(Date)
        Case 1
            d = "الاحد"
        Case 2
            d = "الاثنين"
        Case 3
            d = "الثلاثاء"
        Case 4
            d = "الاربعاء"
        Case 5
            d = "الخميس"
        Case 6
            d = "الجمعة"
        Case 7
            d = "السبت"
    End Select

        text1.text = d