VB 日期取值累加

来源：百度知道 编辑：UC知道 时间：2024/06/12 01:35:18
我有text1、text2、datagrid、command1
text1 输入日期2009-3-12
text2 输入日期2010-3-12
然后点一下command1，datagrid将列出以下：
2009-4
2009-5
2009-6
2009-7
。。。
2010-3

这个功能可以实现吗？
binuisoft
因为我还有其他5个字段，如果用datagrid好似写入数据库比较方便。
用list等控件好像不方便写

可以用LISTVIEW或者LIST控件来实现的。

Private Function GetNowMaxDay(ByVal date1 As Date) As Date
Dim dateTemp As String, intTemp As Integer

intTemp = Day(date1)
dateTemp = Year(date1) & "/" & Month(date1) & "/" & Day(date1)
Do While 1
dateTemp = Left(dateTemp, InStrRev(dateTemp, "/")) & Day(dateTemp) + 1

If Not IsDate(dateTemp) Then
dateTemp = Left(dateTemp, InStrRev(dateTemp, "/")) & intTemp
Exit Do
Else
intTemp = intTemp + 1
End If
Loop
GetNowMaxDay = dateTemp
End Function

Private Sub ExecuDate(ByVal date1 As Date, ByVal date2 As Date)
Dim intYear As Integer
Dim intMonth As Integer

intYear = Year(date1)
intMonth = Month(date1)

List1.Clear

Do While 1
List1.Add