این تابع تاریخ رو به میلادی میگیره و مشخص میکنه اون تاریخ چند شنبه است.

Public Function DayName(strDate As String) As String
Select Case Weekday(strDate)
    Case 7:
        DayName = "شنبه"
    Case 1:
        DayName = "یکشنبه"
    Case 2:
        DayName = "دوشنبه"
    Case 3:
        DayName = "سه شنبه"
    Case 4:
        DayName = "چهارشنبه"
    Case 5:
        DayName = "پنج شنبه"
    Case 6:
        DayName = "جمعه"
End Select
End Function

نوشته شده توسط مهدی در چهارشنبه 88/9/25 و ساعت 4:18 عصر | نظرات دیگران()