Когда я пытаюсь вывести дату в Excel в формате dd/mm/yyyy hh
, у меня это получается, дата выглядит, как и предполагалось:
20/10/2016 17
20/10/2016 18
В случае выше я вывожу дату и время следующим образом:
nRowDate = 1
For nDay = 20 To 21
For nHour = 0 To 23
If (nDay < 10) Then
Str = "0" + CStr(nDay) + "/" + MonthNumber + "/" + Year + " "
Else
Str = CStr(nDay) + "/" + MonthNumber + "/" + Year + " "
End If
If (nHour < 10) Then
Str = Str + "0" + CStr(nHour)
Else
Str = Str + CStr(nHour)
End If
Date_Array(nRowDate) = Str
nRowDate = nRowDate + 1
Cells(nRowDate, 1).Value = Format(Str, "dd/mm/yyyy hh")
Next nHour
Next nDay
Но вывести дату в формате dd/mm/yyyy hh:mm:ss
у меня не получается, вывод выглядит следующим образом:
20.10.2016 00:00:00
20.10.2016 00:00:10
Вот код:
nRowDate = 1
For nDay = 20 To 21
For nHour = 0 To 23
For nMinutes = 0 To 60
For nSec = 0 To 5
If (nDay < 10) Then
Str = "0" + CStr(nDay) + "/" + MonthNumber + "/" + Year + " "
Else
Str = CStr(nDay) + "/" + MonthNumber + "/" + Year + " "
End If
If (nHour < 10) Then
Str = Str + "0" + CStr(nHour)
Else
Str = Str + CStr(nHour)
End If
If (nMinutes < 10) Then
Str = Str + ":0" + CStr(nMinutes)
Else
Str = Str + ":" + CStr(nMinutes)
End If
If (nSec = 0) Then
Str = Str + ":00"
Else
Str = Str + ":0" + CStr(nSec * 10)
End If
Date_Array(nRowDate) = Str
nRowDate = nRowDate + 1
Cells(nRowDate, 1).Value = Format(Str, "dd/mm/yyyy hh:mm:ss")
Next nSec
Next nMinutes
Next nHour
Next nDay
Где я ошиблась?..