Visual Basic サンプル集 |
![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() |
Visual Basic 中学校 > Visual Basic サンプル集 >
曜日を取得する
2020/6/24
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 |
2024/6/27 が何曜日か表示する
Dim sourceDate
As New Date(2024, 6, 27) Debug.WriteLine(sourceDate.DayOfWeek.ToString) 'Thursday と表示されます。 |
Dim sourceDate
As New Date(2024, 6, 27) Debug.WriteLine(sourceDate.ToString("ddd")) 'たとえば、「木」と表示されます。 Debug.WriteLine(sourceDate.ToString("dddd")) 'たとえば、「木曜日」と表示されます。 |
メモ:実行中のスレッドに関連付けられた文化によって結果の表示は変わります。実行中のスレッドに関連付けられた文化を表示するには 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)) '「木曜日」と表示されます。 |
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」と表示されます。 |
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)) '「星期四」と表示されます。 |