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

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

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

VB.net

Posted by arkgame