ASP读取日期单日期自动补零函数代码

关于日期和时间的格式化处理

在编程中，我们常常遇到需要将日期和时间格式化为特定格式的需求。例如，对于月和日的数字，如果它们是单数，我们需要在其前面补零。下面是一个简单的函数，用于实现这一功能。

函数 `fillzero` 的作用就是对传入的数字进行判断，如果它是单数，就在其前面补零。例如，输入 `3`，它会返回 `03`。

示例代码如下：

```vbscript

public function fillzero(l1)

if len(l1)=1 then

fillzero="0"& l1

else

fillzero=l1

end if

end function

```

对于日期的格式化，我们可以结合使用 `year`、`month`、`day` 等函数来获取日期的年、月、日部分，然后使用 `fillzero` 函数对月和日进行格式化。示例如下：

```vbscript

response = year(now) & month(now) & day(now) ' 结果:201116

response = year(now) & fillzero(month(now)) & fillzero(day(now)) ' 显示结果:20110106

```

而对于时间的格式化，我们可以使用 `FORMATDATETIME` 函数。根据不同的区域设置，时间的显示格式会有所不同。例如，短时间的格式可能是 `7/9/97` 或 `03:20`，而长时间的格式可能是 `Wednesday, July 09, 1997` 或 `3:20:08 AM`。我们可以通过调用 `vbShortTime` 和 `vbLongTime` 来获取这些格式。示例如下：

```vbscript

Short Time:FORMATDATETIME(TIME,vbShortTime) ' 如：03:20

Long Time:FORMATDATETIME(TIME,vbLongTime) ' 如：3:20:08 AM

```

我们还提供了两个自定义函数 `ConvertDate` 和 `ConvertDateTime`，用于将日期和时间转换为特定的格式。例如，将日期转换为 `年-月-日` 的格式，并将时间转换为 `年-月-日 时:分:秒` 的格式。示例代码如下：

```vbscript

function ConvertDate(tDate)

ttt=tDate

if isdate(tDate) then

ttt=year(tDate) & "-" & fillzero(month(tDate)) & "-" & fillzero(day(tDate))

end if

ConvertDate=ttt

end function

function ConvertDateTime(tDateTime)

ttt=tDateTime

if isdate(tDateTime) then

ttt=year(tDateTime) & "-" & fillzero(month(tDateTime)) & "-" & fillzero(day(tDateTime)) & " " & fillzero(cstr(hour(tDateTime))) & ":" & fillzero(cstr(minute(tDateTime))) & ":" & fillzero(cstr(second(tDateTime)))

end if

ConvertDateTime=ttt

end function

```

通过这两个函数，我们可以方便地转换日期和时间格式，以满足不同的需求。