عدد ايام الشهر

Private Sub Command1_Click()

Dim d As Date

d = Val(Text1.Text)

If IsDate(d) Then

Select Case Weekday(d)

Case 1: Text2.Text = "SUN"

Case 2: Text2.Text = "MON"

Case 3: Text2.Text = "TUE"

Case 4: Text2.Text = "WED"

Case 5: Text2.Text = "THE"

Case 6: Text2.Text = "FAI"

Case 7: Text2.Text = "SAT"

End Select

Else

Text2.Text = "error"

End If

End Sub