Time函数返回系统时间

2016年8月9日 作者： 来源：

第1.38例 Time  函数
一、题目：
　　要求编写一段代码，运用 Time 函数来返回系统当前的时间。
二、代码：
Sub 示例_1_038()
        Dim Xtdqsj,sj
        Xtdqsj = Time    '。
        Sj=#12:10:00#
        Time =sj
End Sub
三、代码详解
1、Sub 示例_1_038()：宏程序的开始语句。宏名为示例_1_038。
2、Dim Xtdqsj,sj   ：声明变量Xtdqsj,sj 均为可变型变量。
3、Xtdqsj = Time  ：用Time 函数返回系统当前的时间赋给变量Xtdqsj。
4、sj=#12:10:00# ：把时间赋给变量sj。
5、Time =sj ：注意这里的Time不是Time 函数，而是Time语句，如果要将系统时间设置为sj 的内容就要用Time语句。

Time 函数
返回当前系统的时间Variant (Date)。

Time

为了设置系统时间，需使用 Time 语句。