Question

我的输入是日期。但是，我坚持如何每秒检索日期时间。我需要将每个第二个日期时间放在2d数组中。因此我的数组（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

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

Answer 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

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

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

2 个答案: