asp有没有函数可以把文本框中输入的的2007-1-2的短时间格式 转化成2007-01-02的格式阿
如题

------解决方案--------------------
没有，自己写 function FormatStdDateTime(byval sD) dim m dim d dim dt dt = CDate(sD) m = month(dt) d = day(dt) if(m) < 10 then m = "0 "& m end if if d < 10 then d = "0 "&d end if FormatStdDateTime = year(dt)& "- " & m & "- " & d end function
------解决方案--------------------
Function ToLongDate(dateStr)
d=split(dateStr, "- ")
if len(d(1))=1 then d(1)= "0 " & d(1)
if len(d(2))=1 then d(2)= "0 " & d(2)
ToLongDate =d(0) & "- " & d(1) & "- " & d(2)
end function

------解决方案--------------------
没有，这个得自己写代码来处理
------解决方案--------------------
楼上几位都可以用下，ＭＫ
------解决方案--------------------
自己寫一個.
------解决方案--------------------
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

------解决方案--------------------
php里的date()函数不错，模仿了一个

Public Function IIf(blnExp, varTrue, varFalse)
If blnExp Then
IIf = varTrue
Else
IIf = varFalse
End If
End Function

Private Function INT_FMT(ByVal iValue)
INT_FMT = IIf(iValue < 10, "0 ", " ") & iValue
End Function

Function TimeFormat(ByVal dtmIn, ByVal strFmt)
Dim pWeek
Dim pWeekFull
Dim pMonth
Dim pMonthFull
Dim ret, tmp
Dim i
Dim y, m, d, h, n, s, w
pWeek = Array( "Sun ", "Mon ", "Tue ", "Wed ", "Thu ", "Fri ", "Sat ")
pWeekFull = Array( "Sunday ", "Monday ", "Tuesday ", "Wednesday ", "Thursday ", "Friday ", "Saturday ")
pMonth = Array( "Jan ", "Feb ", "Mar ", "Apr ", "May ", "Jun ", "Jul ", "Aug ", "Sep ", "Oct ", "Nov ", "Dec ")
pMonthFull = Array( "January ", "February ", "March ", "April ", "May ", "June ", "July ", "August ", "September ", "October ", "November ", "December ")
y = Year(dtmIn)
m = Month(dtmIn)
d = Day(dtmIn)
h = Hour(dtmIn)
n = Minute(dtmIn)
s = Second(dtmIn)
w = Weekday(dtmIn)
For i = 1 To Len(strFmt)
tmp = Mid(strFmt, i, 1)
Select Case tmp
Case "a ":
ret = ret & IIf(h < 12, "am ", "pm ") 'a 小写的上午和下午值 am 或 pm