UC知道VB时间计算,高手帮看看程序
来源：百度知道 编辑：UC知道 时间：2024/09/22 20:21:31
问题是这样的,比如说,给你今天的一个时间,格式为:2008-5-12 12:12:00
然后要你以30分钟为周期向前推时间.即推出来的时间为
2008-5-12 11:42:00
2008-5-12 11:12:00
2008-5-12 10:42:00
......
2008-5-11 11:12:00
然后判断日期,只要求显示出某一天的时间.比如上面的,我只要显示出10号的.那么程序应该怎么样编写.以下的我编写的.可是运行出来的结果都是那天只有一个时间.正常情况应该会有48个时间列出来,希望高手帮忙,可以帮我把程序改好,重点当然就是循环那里.也可以自己编写一个给我,谢谢
Private Sub Command3_Click()
Dim time1 As Date
Dim starDT, starDTT As Date
Dim i As Integer
Dim star1 As String
Dim strs As String
Dim sum1, sum3 As Long
Dim ida, idate As Date
starDTT = DTPicker1.Value
starDT = DateAdd("d", 1, starDTT)
starDT = starDT & " " & "00" & ":" & "00" & ":" & "00"
time1 = Date & " " & Combo3.Text & ":" & Combo5.Text & ":" & "00"
sum1 = DateDiff("n", starDT, time1)
sum3 = sum1
strs = ""
i = 30
Do
ida = DateAdd(&quo
然后要你以30分钟为周期向前推时间.即推出来的时间为
2008-5-12 11:42:00
2008-5-12 11:12:00
2008-5-12 10:42:00
......
2008-5-11 11:12:00
然后判断日期,只要求显示出某一天的时间.比如上面的,我只要显示出10号的.那么程序应该怎么样编写.以下的我编写的.可是运行出来的结果都是那天只有一个时间.正常情况应该会有48个时间列出来,希望高手帮忙,可以帮我把程序改好,重点当然就是循环那里.也可以自己编写一个给我,谢谢
Private Sub Command3_Click()
Dim time1 As Date
Dim starDT, starDTT As Date
Dim i As Integer
Dim star1 As String
Dim strs As String
Dim sum1, sum3 As Long
Dim ida, idate As Date
starDTT = DTPicker1.Value
starDT = DateAdd("d", 1, starDTT)
starDT = starDT & " " & "00" & ":" & "00" & ":" & "00"
time1 = Date & " " & Combo3.Text & ":" & Combo5.Text & ":" & "00"
sum1 = DateDiff("n", starDT, time1)
sum3 = sum1
strs = ""
i = 30
Do
ida = DateAdd(&quo
Private Sub Command1_Click()
Dim D1 As Date, D2 As Date
D1 = CDate(Text1.Text) '起始日期 时间
D2 = CDate(Text2.Text) '要显示的日期
Do
If D1 - D2 >= 0 And D1 - D2 < 1 Then
Print D1
End If
D1 = D1 - 1 / 48
Loop While D1 >= D2
End Sub