Visual Basic サンプル集

曜日を取得する

2020/6/24

→ C# のサンプルに切り替える

2024/6/27 が何曜日か判定する

Dim sourceDate As New Date(2024, 6, 27)

Select Case sourceDate.DayOfWeek
    Case DayOfWeek.Sunday
        Debug.WriteLine("日曜日")
    Case DayOfWeek.Monday
        Debug.WriteLine("月曜日")
    Case DayOfWeek.Tuesday
        Debug.WriteLine("火曜日")
    Case DayOfWeek.Wednesday
        Debug.WriteLine("水曜日")
    Case DayOfWeek.Thursday
        Debug.WriteLine("木曜日")
    Case DayOfWeek.Friday
        Debug.WriteLine("金曜日")
    Case DayOfWeek.Saturday
        Debug.WriteLine("土曜日")
End Select

→ Debug.WriteLineが表示される場所

2024/6/27 が何曜日か表示する

Dim sourceDate As New Date(2024, 6, 27)

Debug.WriteLine(sourceDate.DayOfWeek.ToString) 'Thursday と表示されます。

→ Debug.WriteLineが表示される場所

Dim sourceDate As New Date(2024, 6, 27)

Debug.WriteLine(sourceDate.ToString("ddd")) 'たとえば、「木」と表示されます。
Debug.WriteLine(sourceDate.ToString("dddd")) 'たとえば、「木曜日」と表示されます。

→ Debug.WriteLineが表示される場所

メモ：実行中のスレッドに関連付けられた文化によって結果の表示は変わります。実行中のスレッドに関連付けられた文化を表示するには Debug.WriteLine(Threading.Thread.CurrentThread.CurrentCulture.Name) を実行します。日本の場合 ja-JP と表示されます。

2024/6/27 が何曜日か日本語で表示する

この例は上述の例と異なり、必ず日本語で表示します。

Dim sourceDate As New Date(2024, 6, 27)

Dim Japanese As New CultureInfo("ja-JP")

Debug.WriteLine(sourceDate.ToString("ddd", Japanese)) '「木」と表示されます。
Debug.WriteLine(sourceDate.ToString("dddd", Japanese)) '「木曜日」と表示されます。

→ Debug.WriteLineが表示される場所

2024/6/27 が何曜日か英語で表示する

Dim sourceDate As New Date(2024, 6, 27)

Dim English As New CultureInfo("en-US")

Debug.WriteLine(sourceDate.ToString("ddd", English)) '「Thu」と表示されます。
Debug.WriteLine(sourceDate.ToString("dddd", English)) '「Thursday」と表示されます。

→ Debug.WriteLineが表示される場所

2024/6/27 が何曜日か中国語で表示する

Dim sourceDate As New Date(2024, 6, 27)

Dim Chinese As New CultureInfo("zh-CN")

Debug.WriteLine(sourceDate.ToString("ddd", Chinese)) '「周四」と表示されます。
Debug.WriteLine(sourceDate.ToString("dddd", Chinese)) '「星期四」と表示されます。

→ Debug.WriteLineが表示される場所