Question

我需要从小时（1-8760）计算一个日期。因此，对于Index_hour = 5535和year = 2015，应该在16:00返回19/8（8月19日下午4点）我有功能，但没有返回我需要的东西。

Public Function GetTimeString(Index As Integer) As String
    Dim aDate As Date
    aDate = DateAdd("h", Index, DateValue("Jan 01, 2015"))
    GetTimeString = CStr(Day(aDate)) & "/" & CStr(Month(aDate)) & "@" & CStr(Hour(aDate)) & ":00"
End Function

Answer 1

这将是我的方法。

debug.print dateserial(2015, 1, 1)+timeserial(5535, 0, 0)

然而，这可以解决为2015年8月19日下午3:00:00。如果您需要下午4:00，请再向TimeSerial添加一小时。

对于每个参数，DateSerial和TimeSerial都可以接受任何有符号整数（32,767）的正整数，并正确计算日期，时间或日期时间。例如timeserial(32767, 32767, 32767)是10/19/1903 10:13:07 AM。

从小时计算日期（1-8760）

1 个答案: