excel中使用vba来返回固定格式的日期值工具/原料moreexcel2013更多经验请关注，如果帮到了你，请在上方给个投票谢谢支持。 好人一生平安。 先顶后看年薪百万，如果帮到了你，帮忙给个好评，这对小编很重要，万分感谢。方法/步骤1/6分步阅读

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

2/6

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

Option Explicit

Sub 显示固定日期格式()

Dim zdrq

zdrq = DateSerial(2016, 8, 20)

MsgBox zdrq

Sheet2.Activate

Sheet2.Range(a1) = zdrq

End Sub

3/6

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

4/6

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

5/6

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

6/6

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

注意事项

谢谢你的投票。

你的投票是我编辑经验的动力。谢谢你。

EXCEL表格单元格