复制代码代码如下所示：
公共功能fillzero（L1）
if（L1）＝1
fillzero = 0 L1
其他的
fillzero = L1
最后如果
端功能

使用的例子：
复制代码代码如下所示：
响应年份（现在）月（日）日（现在）结果：201116
响应年（现在）fillzero（月（现在）fillzero（天）（现在））结果显示：20110106

如何控制长日期格式和短日期格式的显示：

短日期：formatdatetime（日期，vbshortdate）
长日期：formatdatetime（日期，vblongdate）

当日期根据英国（美国）区域设置时，日期以以下格式显示：

短日期：7 9 97
长期约会：七月，星期三，091997

注意：短日期格式的显示与没有格式化的格式完全相同。默认情况下，日期以短日期格式显示。

如何使用formatdatetime（）函数操作的时间：

短时间：formatdatetime（时间，vbshorttime）
长时间：formatdatetime（时间，vblongtime）

当时间在英国（美国）显示时，时间格式如下：

时间短：03:20
长时间：3:20:08是
复制代码代码如下所示：
<
功能fillzero（STR）
TTT = str
如果莱恩（STR）＝1
TTT = 0 STR
最后如果
fillzero = TTT
端功能
转换日期，将填补一个零2003-1-2 --> 2003-01-02
功能convertdate（tdate）
TTT = tdate
如果IsDate（tdate）然后
TTT =年（tdate）fillzero（月（tdate））fillzero（天（tdate））
最后如果
convertdate = TTT
端功能
输入日期时间字符串，将成人四位转换为其他两个新的日期和时间序列。
功能convertdatetime（TDateTime）
TTT = TDateTime
如果IsDate（TDateTime）然后
TTT =年（TDateTime）fillzero（月（TDateTime））fillzero（天（TDateTime））fillzero（CSTR（小时）（））（（））
最后如果
convertdatetime = TTT
端功能
%>