Menuへ
日付の曜日を取得



Weekday関数を使うと、日付から曜日を取得できます。曜日は下記のような整数で返ります。

vbSunday 1 日曜
vbMonday 2 月曜
vbTuesday 3 火曜
vbWednesday 4 水曜
vbThursday 5 木曜
vbFriday 6 金曜
vbSaturday 7 土曜

コマンドボタン　クリックイベント
Private Sub CommandButton1_Click()
    CommandButton1.Caption = GetWeekDay("2006/10/28")
End Sub

標準モジュールコード
Public Function GetWeekDay(tdate As Date) As String
    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

実行前
実行前

実行結果
曜日が表示された



Topへ　Homeへ