昨日見た夢を教えて下さい

textbox1.text= 2021年(Now.Year)
Textbox2.text= ..月(1~12選択する)

Textbox2に選択された月のすべての日付・曜日をTextboxに表示したいです。


例: 
日付      曜日 
2021/9/01   水曜日

ご支援の程、宜しくお願い致します。

A 回答 (2件)

Dim y As Integer = Integer.Parse(TextBox1.Text)


Dim m As Integer = Integer.Parse(TextBox2.Text)
Dim d As Integer = Date.DaysInMonth(y, m)
Dim dd As Date = New Date(y, m, 1)

TextBox3.Clear()
TextBox3.AppendText($"日付{vbTab & vbTab}曜日{Environment.NewLine}")

For Each x As Integer In Enumerable.Range(0, d)
With dd.AddDays(x)
If x <> (d) Then
TextBox3.AppendText($"{ .ToShortDateString()}{vbTab}{ .ToString("dddd")}{Environment.NewLine}")
Else
TextBox3.AppendText($"{ .ToShortDateString()}{vbTab}{ .ToString("dddd")}")
End If
End With
Next
    • good
    • 1

>Textbox2に選択された月のすべての日付・曜日



に対して例文は省略していると言う事でしょうか?
あと日付の書式設定が( yyyy/m/dd )になっているのは狙い?
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


おすすめ情報