在asp(vb) 中有个日期变量a="1999-1-1" 我想把它转换成"1999-01-01" 怎么转换?

[taojm]

在asp(vb) 中有个日期变量a="1999-1-1" 我想把它转换成"1999-01-01" 怎么转换?

[avonqin]

<%
Tdate="1999-1-1"
TMonth=month(formatdatetime(Tdate,2))
TDay=day(formatdatetime(Tdate,2))
if TMonth<10 then TMonth="0"&TMonth
if TDay<10 then TDay="0"&TDay

Tdate=year(formatdatetime(Tdate,2))&"-"&TMonth&"-"&TDay
%>

[angelheavens]

在此基础再去修改:
<%
a="1999-10-1"
if len(trim(a))<>10 then
b=split(a,"-")
if cint(b(1))<9 then
t1="0"&b(1)
else
t1=b(1)
end if
if cint(b(2))<9 then
t2="0"&b(2)
else
t2=b(2)
end if
end if
response.write b(0)&"-"&t1&"-"&t2
%>

[zhangking]

拆开，再合并：
a="1999-1-1"
y= trim(year(a))
m= trim(month(a)): if len(m)=1 then m="0" & m
d= trim(day(a)): if len(d)=1 then d="0" & d

a= y & "-" & m & "-" & d

[PPLUNCLE]

描述
返回表达式，此表达式已被格式化为日期或时间。
语法
FormatDateTime(Date[, NamedFormat])
FormatDateTime 函数的语法有以下参数：

参数 描述
Date 必选。要被格式化的日期表达式。
NamedFormat 可选。指示所使用的日期/时间格式的数值，如果省略，则使用 vbGeneralDate。


设置
NamedFormat 参数可以有以下值：
常数 值 描述
vbGeneralDate 0 显示日期和/或时间。如果有日期部分，则将该部分显示为短日期格式。如果有时间部分，则将该部分显示为长时间格式。如果都存在，则显示所有部分。
vbLongDate 1 使用计算机区域设置中指定的长日期格式显示日期。
vbShortDate 2 使用计算机区域设置中指定的短日期格式显示日期。
vbLongTime 3 使用计算机区域设置中指定的时间格式显示时间。
vbShortTime 4 使用 24 小时格式 (hh:mm) 显示时间。



说明
下面例子利用 FormatDateTime 函数把表达式格式化为长日期型并且把它赋给 MyDateTime:
Function GetCurrentDate
'FormatDateTime 把日期型格式化为长日期型。
GetCurrentDate = FormatDateTime(Date, 1)
End Function