请教想得到某年月的月中的所有日时。

Question

比如2006年7月，我想获得一下的格式的所有日时
"0100"
"0101"
"0102"
"0103"
"0104"
"0105"
……
"3118"
"3119"
"3120"
"3121"
"3122"
"3123"
请教如何编写？

Answer 1

For i = 1 To 31
For j = 1 To 24
i = Format(i, "##00")
j = Format(j, "##00")
Text1.Text = Text1.Text & vbCrLf & i & j
NextNext

Answer 2

以下代码，FORM上添加一个COMMAND一个LIST控件Private Function DATE_TIME(YEAR_S As Single, MONTH_S As Single)
Dim DATE_BEGIN As Date
Dim DATE_END As Date
Dim I  As Long
Dim J As Long
DATE_BEGIN = CDate(YEAR_S & "-" & MONTH_S & "-01")
If MONTH_S < 12 Then
    DATE_END = CDate(YEAR_S & "-" & MONTH_S + 1 & "-01")
Else
    DATE_END = CDate(YEAR_S + 1 & "-01-01")
End IfFor I = Day(DATE_BEGIN) To Day(DATE_END - 1)
    For J = 0 To 23
    List1.AddItem Format(I, "00") & Format(J, "00")
    Next
Next
End FunctionPrivate Sub Command1_Click()
  Call DATE_TIME(Year(Date), Month(Date))
End Sub

Answer 3

Dim y As Integer, m As Integer, i As Date, j As Integery = 2006
m = 7List1.ClearFor i = DateSerial(y, m, 1) To DateSerial(y, m + 1, 1) - 1
    For j = 0 To 23
        List1.AddItem Format(i, "dd") & Format(j, "0#")
    Next j
Next i