ACCESS TIPS 日付の曜日を取得

日付の曜日を取得

スポンサードリンク

'日付から曜日を取得する
Public Function GetWeekDay(tdate As Date) As String
    'Weekday関数　日付を指定すると曜日をあらわす整数が返ります。
    Select Case Weekday(tdate)
        Case 1
            GetWeekDay = "日"
        Case 2
            GetWeekDay = "月"
        Case 3
            GetWeekDay = "火"
        Case 4
            GetWeekDay = "水"
        Case 5
            GetWeekDay = "木"
        Case 6
            GetWeekDay = "金"
        Case 7
            GetWeekDay = "土"
    End Select
End Function

'コマンドボタン　クリックイベント
Private Sub コマンド0_Click()
    '取得した曜日を、コマンドボタンのキャプションに表示
    コマンド0.Caption = GetWeekDay("2007/03/03")
End Sub

Access-Access!