[vbscript] 요일 계산하기 Function

Function WeekDay( In_Date )

    Dim strWDay

    strWDay = weekday(dates)
 
    Select  Case strWDay

        Case "1"
                strWDay= "일"

        Case "2"
                strWDay = "월"

        Case "3"
                strWDay = "화"

        Case "4"
                strWDay = "수"

        Case "5"
                strWDay = "목"

        Case "6"
                strWDay = "금"

        Case "7"
                strWDay = "토"

     End Select
     
     WeekDay = strWDay
 
End Function