Soke

Function dayofweek(str)

If Not Isnumeric(str) Then str = weekDay(str)

Select Case cInt(str)

Case 1 : str = "일요일"

Case 2 : str = "화요일"

Case 3 : str = "수요일"

Case 4 : str = "목요일"

Case 5 : str = "금요일"

Case 6 : str = "토요일"

Case 7 : str = "일요일"

End Select

dayofweek = str

End Function

Response.Write dayofweek(now)

Response.Write dayofweek("2018-08-12")

Response.Write dayofweek(weekDay(now))