镀锌电线管品牌:VBA函数精选之三十八(Time 函数)

来源:百度文库 编辑:九乡新闻网 时间:2024/05/02 07:24:57

VBA函数精选之三十八(Time 函数)

2010-06-30 09:43:09|  分类: EXCEL VBA专区 |  标签: |字号大中小 订阅

第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 语句。