如何检索一天内每秒可用的日期时间？答案

【问题标题】：How can i retrieve date time available per second in one day?如何检索一天内每秒可用的日期时间？
【发布时间】：2014-03-10 08:07:53
【问题描述】：

我的输入是日期。但是，我被困在如何每秒检索日期时间。我需要将第二个日期时间放在二维数组中。所以我的数组（0,0）应该等于 2/10/2014 00:00:00 AM 和数组（86399,0）等于 2/10/ 2014 年下午 23:59:59。

我尝试按照以下代码循环：

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

我只是不知道如何以正确的方式每秒增加日期时间。请帮忙。

【问题讨论】：

这似乎太过分了。你究竟为什么要这样做？
@zira 给定的解决方案在您的情况下不起作用？

标签： vb.net datetime for-loop multidimensional-array

【解决方案1】：

你有没有想过类似的事情

使用日期时间 (MSDN Datetime)

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

【讨论】：

【解决方案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

【讨论】：