我如何在一天内检索每秒可用的日期时间

Question

输入日期。但是，我被困在如何检索日期时间在每一秒。我需要把每秒钟的日期时间在2d数组。所以我的数组(0,0)应该等于2/10/2014 00:00:00 AM和数组(86399,0)等于2/10/2014 23:59:59 PM。

我尝试按照下面的代码做循环:

Dim twoDarray(86399, 1) As String
Dim dtInput As Date
dtInput= #2/10/2014#
For i=0 to 86399
   twoDarray(i, 0) = dtInput 
   dtInput = dtInput +second 'i know this not right
Next

我只是不知道如何以正确的方式增加约会时间。请帮助。

Answer 1

你有没有考虑过

使用日期时间(MSDN日期时间)

dtInput= new DateTime(2014,10,2)
For i=0 to 86399
   twoDarray(i, 0) = dtInput 
   dtInput = dtInput.AddSeconds(1)
Next

或

dtInput= new DateTime(2014,10,2)
For i=0 to 86399
   twoDarray(i, 0) = dtInput.AddSeconds(i+1)
Next

Answer 2

您也可以尝试以下方法

Dim dtFrom As New DateTime(2014, 10, 2, 0, 0, 0)
Dim dtTo As New DateTime(2014, 10, 2, 23, 59, 59)

Dim iFirstDim As Integer = (dtTo - dtFrom).TotalSeconds
Dim iSecondDim As Integer = 10
Dim arrTime(iFirstDim, iSecondDim) As String
Dim i As Integer = 0
Do While (dtTo > dtFrom)
    arrTime(i, 0) = dtFrom.ToString("d/MM/yyyy HH:mm:ss")
    dtFrom = dtFrom.AddSeconds(1)
    i += 1
Loop

如何使用它?

Dim dtResult As DateTime
If DateTime.TryParseExact(arrTime(150, 0), "d/MM/yyyy HH:mm:ss", Globalization.CultureInfo.InvariantCulture, Globalization.DateTimeStyles.None, dtResult) Then
    MsgBox(dtResult.ToString("yyyy-MM-dd HH:mm:ss"))
End If