1、首先我们打开一个工作样表作为例子。
2、使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：Option ExplicitSub 区滕匿晡箸别()Dim dtime As VariantDim ddate As Variantdtime = Nowddate = DateRange("a1") = dtimeRange("a2") = ddateEnd Sub
3、首先我们做变量蠹韦睥谚声明，实际上now函数和data函数所返回的值都是data类型，所以我们更应该写成Dim dtime As dateDim ddata As date
4、然后我们给两个变量分别赋值，这里需要注意的是，date函数和now函数后面可以有小括号，也可以省略小括号的。
5、我们在a1和a2单元格中分别输入data函数和now函数的返回值，可以发现date函数返回的是日期，而now函数返回的是日期和时间。
6、这里需要对单元格格式旅邯佤践进行设置，我们给代码加上这样的语句，可以更直观的看到两个函数的返回结果的不同。Range("稆糨孝汶;a1").NumberFormat = "hh:mm:ss"Range("a2").NumberFormat = "hh:mm:ss"
