AutoVBA两有用的函数Time和Date

VBA宏代码运行示例，用于向图形中添加一个text，代码如下。

Sub drawtext()
    Dim textposition(0 To 2) As Double
    textposition(0) = 1.5
    textposition(1) = 8.5
    textposition(2) = 0
    ModelSpace.AddText "Hellow", textposition, 1.8
End Sub

代码完。

Date函数用于取得系统日期，返回值Variant类型的字符串，Time函数用来返回系统时间，返回值Variant类型的字符串。