「VB.NET」現在の日付から曜日を取得するサンプル

2013年6月22日2022年1月19日

書式
Dim 変数名 As DateTime = DateTime.Now
Select Case 変数名.DayOfWeek
Case DayOfWeek.Sunday
処理コード
End Select

DayOfWeekプロパティは、曜日をDayOfWeek列挙体メンバーで返します。
Sunday 　　日曜日
Monday 　　月曜日
Tuesday 　　火曜日
Wednesday　水曜日
Thursday　　木曜日
Friday 　　   金曜日
Saturday　　土曜日

使用例

Module Module1

    Public Sub Main()

        '現在の日付と時刻を取得する
        Dim cft As DateTime = DateTime.Now

        'DayOfWeekプロパティを使って日付から曜日を取得
        Select Case cft.DayOfWeek

            Case DayOfWeek.Monday
                Console.WriteLine("本日は月曜日です")
            Case DayOfWeek.Tuesday
                Console.WriteLine("本日は火曜日です")
            Case DayOfWeek.Wednesday
                Console.WriteLine("本日は水曜日です")
            Case DayOfWeek.Thursday
                Console.WriteLine("本日は木曜日です")
            Case DayOfWeek.Friday
                Console.WriteLine("本日は金曜日です")
            Case DayOfWeek.Saturday
                Console.WriteLine("本日は土曜日です")
            Case DayOfWeek.Sunday
                Console.WriteLine("本日は日曜日です")

        End Select
       
        Console.ReadKey()
    End Sub

End Module

実行結果
本日は水曜日です