如何在VBA中定义自定义date-time对象进行宏编程

Question

我正在学习VBA的基础知识。我在变量中有日、月、年、时、分、秒数据。如何从这些值构造date-time对象？

Answer 1

通常，日期只表示为Date数据类型。日期存储为双精度数字，表示自1899年12月31日以来的天数。时间表示为一天的一小部分，例如6:00am表示为.25。

然后，您可以使用以下方法为日期变量赋值

Dim myDate As Date
myDate = Now()
myDate = DateValue("30 July 2016")
myDate = DateSerial(2016,7,30)
' or even myDate = DateSerial(2016,7,30+20) which is equivalent to myDate = DateSerial(2016,8,19)
myDate = TimeValue("19:22:56")

或者，如果您有包含年、月、日等的变量，则可以将日期值计算为

myDate = DateSerial(myYear, myMonth, myDay) + TimeSerial(myHour, myMinute, mySecond)

如果不想使用Date数据类型，可以使用以下命令创建自己的数据类型

Type myDateType
    myDay as Integer
    myMonth as Integer
    myYear as Integer
    myHour as Integer
    myMinute as Integer
    mySecond as Integer
End Type

然后用下面这样的方式声明变量

Dim myDateVariable as myDateType

并通过如下所示引用类型的各个部分

myDateVariable.myYear = 2016