日付から曜日を日本語で取り出す ( WeekDay WeekDayName ）
Public Function fc_DATE_YOUBI(wDate As Date) As String
'--------------------------------------------------------------
' パラメータで指定された日付から曜日を返す。（1文字）
'--------------------------------------------------------------
On Error GoTo Err_fc_DATE_YOUBI
fc_DATE_YOUBI = "不明"
Dim strYoubi As String
strYoubi = WeekDayName(Weekday(wDate))
'3文字、日曜日等なので、日のみとするため左から1文字とりだす。
Fc_DATE_YOUBI = Left(strYoubi, 1)
Exit_fc_DATE_YOUBI:
Exit Function
Err_fc_DATE_YOUBI:
MsgBox ("fc_DATE_YOUBI:" & Err.Number & " " & Err.Description)
Resume Exit_fc_DATE_YOUBI
End Function