excel中使用vba来返回固定格式的日期值

1、首先我们打开一个工作样表作为例子。

2、使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：

Option Explicit

Sub 显示固定日期格式()

Dim zdrq

zdrq = DateSerial(2016, 8, 20)

MsgBox zdrq

Sheet2.Activate

Sheet2.Range("a1") = zdrq

End Sub

3、我们对zdrq变量进行声明，默认为variant，这是vba中对变量类型的自定义，类型的字节数为最大型，也就是说任何变量声明都可以这样写，在代码优化的时候再进行准确声明。

4、这里就是dateserial函数的使用方法了。dateserial有三个参数，分别是year，month还有day，也就是按参数顺序输入的数值，会以date的格式进行输出。

5、然后我们使用msgbox函数来显示dateserial函数的返回值，这里也可以直接不使用变量直接写函数返回值的代码，当然作为示例或一次性输出可以这样写，但是不符合代码习惯。

6、比如后面我们要将msgbox信息写入表格内，而我们又没有给dateserial设置变量的话，那么我们必须重新输入依次完成的函数，否则就得不到正确的结果。