|
■No50229 (Ｔｏｓｈｉ さん) に返信
> ListView1に下記のデータを表示されています
> 2000/03/05 あ
> 2000/03/07 い
> 2000/03/10 う
> 2000/03/23 え
> このデータは３月度のデータとして、
> 表示されていない、日を挿入したいとおもいますが、
特定年月の日付を列挙するには、たとえばこのように書けます。
下記を「Dim YMD() As String = GetYMDArray(2000, 3)」と呼び出せば、
"2000/03/01"〜"2000/03/31" の日付の一覧が返されますので、
それを ListView の内容と比較し、必要に応じてデータを Insert してみてください。
Imports System.Globalization
Function GetYMDArray(ByVal y As Integer, ByVal m As Integer) As String()
Dim maxDay As Integer = Date.DaysInMonth(y, m)
Dim ymdArray(maxDay - 1) As String
For d As Integer = 1 To maxDay
Dim dt As New Date(2000, 3, d)
Dim YMD As String = dt.ToString("yyyy\/MM\/dd", CultureInfo.InvariantCulture)
ymdArray(d - 1) = YMD '配列は0から始まるので、日付から -1 する
Next
Return ymdArray
End Function
|
