如何得到两个日期中间的日期？

如何得到两个日期中间的日期？
例如：
例：2008年３月２５日　～　2008年４月3日
件数指定年指定月指定日
0件 2008 03 25
1件 2008 03 26
2件 2008 03 27
3件 2008 03 28
4件 2008 03 29
5件 2008 03 30
6件 2008 04 01
7件 2008 04 02
8件 2008 04 03
--------------------编程问答-------------------- Private Sub Form_Load()
Dim i As Date
For i = #3/25/2008# To #4/3/2008#
List1.AddItem i
Next
End Sub
--------------------编程问答--------------------
增加一个格式不就更好些!

Private Sub Command4_Click()
Dim i As Date
Dim sendTempStr As String

    For i = #3/25/2008# To #4/3/2008#
      sendTempStr = Format(i, "yyyy mm dd")
      List1.AddItem sendTempStr
    Next

End Sub
--------------------编程问答-------------------- 如果只想得到年跟月呢  该如何作啊？  谢谢了
例：2008年３月　～　2008年４月
件数指定年指定月
0件 2008 03
1件 2008 04

例：2007年　～　2008年
件数指定年
0件 2007
1件 2008   --------------------编程问答--------------------

Private Sub Form_Load()

Dim Imtx As ListItem

Dim i As Date

j = 1

For i = #3/25/2008# To #4/3/2008#

With ListView1

.ColumnHeaders.Add , , "件数"

.ColumnHeaders.Add , , "指定年"

.ColumnHeaders.Add , , "指定月"

.ColumnHeaders.Add , , "指定日"

.View = lvwReport

.ListItems.Add , , j

.ListItems(j).SubItems(1) = Year(i)

.ListItems(j).SubItems(2) = Month(i)

.ListItems(j).SubItems(3) = Day(i)

j = j + 1



End With

Next

End Sub

补充：VB ,  基础类