C# と VB.NET の質問掲示板

わんくま同盟

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト


(過去ログ 84 を表示中)
■50246 / )  Re[1]: ListView1に行を挿入したい
□投稿者/ 魔界の仮面弁士 (1663回)-(2010/06/01(Tue) 08:54:14)
No50229 (Toshi さん) に返信
> ListView1に下記のデータを表示されています
> 2000/03/05  あ
> 2000/03/07  い
> 2000/03/10  う
> 2000/03/23  え
> このデータは3月度のデータとして、
> 表示されていない、日を挿入したいとおもいますが、

特定年月の日付を列挙するには、たとえばこのように書けます。
下記を「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
返信 編集キー/


管理者用

- Child Tree -