ヘッダー
Visual Basic サンプル集
VB2005対応 VB2008対応 VB2010対応 VB2012対応 VB2013対応 VB2015対応 VB2017対応 VB2019対応

曜日を取得する

2020/6/24

 

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

VB.NET2002対応 VB.NET2003対応 VB2005対応 VB2008対応 VB2010対応 VB2012対応 VB2013対応 VB2015対応 VB2017対応 VB2019対応

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 が何曜日か表示する

VB2005対応 VB2008対応 VB2010対応 VB2012対応 VB2013対応 VB2015対応 VB2017対応 VB2019対応

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

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

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

 

VB.NET2002対応 VB.NET2003対応 VB2005対応 VB2008対応 VB2010対応 VB2012対応 VB2013対応 VB2015対応 VB2017対応 VB2019対応

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 が何曜日か日本語で表示する

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

VB.NET2002対応 VB.NET2003対応 VB2005対応 VB2008対応 VB2010対応 VB2012対応 VB2013対応 VB2015対応 VB2017対応 VB2019対応

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 が何曜日か英語で表示する

VB.NET2002対応 VB.NET2003対応 VB2005対応 VB2008対応 VB2010対応 VB2012対応 VB2013対応 VB2015対応 VB2017対応 VB2019対応

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 が何曜日か中国語で表示する

VB.NET2002対応 VB.NET2003対応 VB2005対応 VB2008対応 VB2010対応 VB2012対応 VB2013対応 VB2015対応 VB2017対応 VB2019対応

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が表示される場所