vba - Excel VBA 创建日期+时间值

Question

在我的表中，我有两列包含以下类型的数据:yyyymmdd和 hhmmddxx - 首先包含日期和其他时间，精度为 0.01 秒。例如，我有 20161102和 17052349 .

我想将其转换为显示某个时刻的单个值，并以 dd/mm/yyyy hh:mm:ss.xx 格式显示，所以例如我想得到 02/11/2016 17:05:23.49 .我想我需要使用 DateSerial和 TimeSerial功能，但有两个问题我不知道如何解决:

TimeSerial 接受小时、分钟和秒作为参数，都是整数类型，如何将小数秒传递给它？

DateSerial 将创建我的一天，TimeSerial 将创建我的时间，是否有一个函数将日期和时间作为参数并从中创建一个“那天，在那个时间”值？

Answer 1

像这样的东西，也许？
? generate_timestamp("20161102","170522349")
给
02/11/2016 17:05:23.49

Function GENERATE_TIMESTAMP(strDate As String, strTime As String) As String

Dim dtDate As Date
Dim dtTime As Date

dtDate = DateSerial(Mid(strDate, 1, 4), Mid(strDate, 5, 2), Mid(strDate, 8, 2))
dtTime = TimeSerial(Mid(strTime, 1, 2), Mid(strTime, 3, 2), Mid(strTime, 6, 2))

GENERATE_TIMESTAMP = FormatDateTime(dtDate, vbShortDate) & " " & _
                        FormatDateTime(dtTime, vbLongTime) & "." & _
                        Mid(strTime, 8, 2)

End Function