我試圖根據組合框的選定時間段在我的datagridview的標題中獲取星期幾
到目前為止，我已經實作了以下確定一周中的日子，但我注意到我總是得到 31。
在 2 月，我們只有 28 天的時間，在這部分代碼中我失敗了
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim dias_de_la_semana As New ArrayList From {"LUN", "MAR", "MIE", "JUE", "VIEW", "SAB", "DOM"}
Dim MiFecha As Date = Now ' o toda otra fecha
Dim Limite As Integer = 31 ' Puestas el valor que quieres
For i As Integer = 1 To Limite Step 7
For j = 0 To 7
If i j <= Limite Then
dgvdias.Columns.Add(0, dias_de_la_semana(MiFecha.DayOfWeek) & "-" & i j)
Else
i = Limite
Exit For
End If
MiFecha = MiFecha.AddDays(1)
Next
Next
End Sub
uj5u.com熱心網友回復：
嘗試改變你的線路
Dim Limite As Integer = 31
進入
Dim Limite As Integer = System.DateTime.DaysInMonth(MiFecha.Year, MiFecha.Month)
uj5u.com熱心網友回復：
閏年二月可以有 29 天。因此，您必須考慮當前年份才能準確。看看這里，看看如何輕松檢索當月的天數。
此外，不建議手動填充 DGV，我建議改用資料表，并將其用作 DGV 的資料源。可能您會想要做更多事情并使用用戶輸入填充網格以將資料保存到資料庫。
一個簡單的例子：
dim current_year as integer = 2020
dim current_month as integer = 2
Dim days_in_month As Integer = System.DateTime.DaysInMonth(current_year, current_month)
System.Console.WriteLine("Days in month: " & days_in_month)
' start at 1st day of current month
dim d as new DateTime(current_year, current_month, 1)
' offset -1 day for the loop
d = d.AddDays(-1)
for i as integer = 1 to days_in_month
' date1 = new DateTime(2008, 5, 1, 8, 30, 52);
d = d.AddDays(1)
System.Console.WriteLine("Day: " & i & " - date: " & d.ToString("dddd, MMMM dd"))
next
輸出：
每月天數：29 日期：1 - 日期：2 月 1 日星期六 日期：2 - 日期：2 月 2 日星期日 日期：3 - 日期：2 月 3 日星期一 日期：4 - 日期：2 月 4 日，星期二 日期：5 - 日期：2 月 5 日，星期三 日期：6 - 日期：2 月 6 日，星期四 日期：7 - 日期：2 月 7 日星期五 日期：8 - 日期：2 月 8 日星期六 日期：9 - 日期：2 月 9 日星期日 日期：10 - 日期：2 月 10 日星期一 日期：11 - 日期：2 月 11 日，星期二 日期：12 - 日期：2 月 12 日，星期三 日期：13 - 日期：2 月 13 日星期四 日期：14 - 日期：2 月 14 日星期五 日期：15 - 日期：2 月 15 日星期六 日期：16 - 日期：2 月 16 日星期日 日期：17 - 日期：2 月 17 日星期一 日期：18 - 日期：2 月 18 日，星期二 日期：19 - 日期：2 月 19 日星期三 日期：20 - 日期：2 月 20 日星期四 日期：21 - 日期：2 月 21 日星期五 日期：22 - 日期：2 月 22 日星期六 日期：23 - 日期：2 月 23 日星期日 日期：24 - 日期：2 月 24 日星期一 日期：25 - 日期：2 月 25 日，星期二 日期：26 - 日期：2 月 26 日，星期三 日期：27 - 日期：2 月 27 日星期四 日期：28 - 日期：2 月 28 日星期五 日期：29 - 日期：2 月 29 日星期六
您可以根據需要調整日期格式。
轉載請註明出處，本文鏈接：https://www.uj5u.com/caozuo/426196.html
標籤：VB.net