用VBSCRIPT怎么把用户输入的日期格式转换成自己定义的格式.例:YYYY-MM-DD而不受本地计算机日期格式的影响?

在线待

用户怎么输入的？你是不是用三个文本框分别表示年月日？

看看这样行不行.
<%
if isdate(TBTime) then
TBTime=Year(TBTime)&"-"&Month(TBTime)&"-"&Day(TBTime)
else
'自己写
end if
%>

To:allforly(白衣胜血) 
是一个文本框,用户可能输入各种日期类型
To:su79qf16(清风)
你这种方法我也试过,不好用.谢谢!.

但我想得到Vbscript中的某个函数,可以将日期型格式化成 YYYY-MM-DD HH:NN:SS的类型.

那这样很不好办，因为用户可能输入各种类型的日期，现在日期的格式在ACCESS下就有6种，而且如果用户操作失误的话，那程序就处理不了，这样吧，用Vbscript自带的函数试试：

这样只能得出年月日,得不到TIME.

100个用户就有100种可能：（
太难了，还是固定用户端的输入格式吧

year=year(date())
if len(year)<2 then
    year="20"+year(date())
end if
mOnth=month(date())
if len(month)<2 then
   mOnth="0"+month(date())
end if
day=day(date())
if Len(day)<2 then
   day="0"+day
end if
nowtime
timenow=year&"-"&month&"-"&day&" "&now()

formatdatetime(日期,2)

后面的2自己可以换！好象是1-4

谢谢各位:
今天早上我自己写了一个日期强制转换函数,与大家共享:

Rem 由于客户端各用户设置的日期格式都不一致,保存数据时可能会造成日期不正确的后果,今天写了一个函数可以将日期输入强制转换成:YYYY-MM-DD SS:NN:SS,这种格式是可以将正确数据保存到后台数据库的
Rem函数如下:
Rem调用: YourDatevalue = myDate(YourDatevalue )
Rem 如果输入错误日期格式返回值为空.
Rem     作者: 谢炎锦  (2003-01-17)

Function MyDate(XFromDate)
If Not ISDate(XFromDate) Then
Msgbox "无效的日期格式，请重新输入起始日期！",64,"System Input Error"
MyDate = ""
Err.Clear
Exit Function
End IF
FromYear = Year(XFromDate)
If Len(FromYear) = 2 Then 
FromYear = "20" & FromYear
End If
FromMonth = Month(XFromDate)
If Len(FromMonth) = 1 Then 
FromMonth = "0" & FromMonth
End If
FromDay = Day(XFromDate)
If Len(FromDay) = 1 Then 
FromDay = "0" & FromDay
End If
FromHour = Hour(XFromDate)
If Len(FromHour) = 1 Then 
FromHour = "0" & FromHour
End If
FromMinute = Minute(XFromDate)
If Len(FromMinute) = 1 Then 
FromMinute = "0" & FromMinute
End If
FromSecond = Second(XFromDate)
If Len(FromSecond) = 1 Then 
FromSecond = "0" & FromSecond
End If
MyDate = FromYear & "-" & FromMonth & "-" & FromDay & " " & FromHour & ":" & FromMinute & ":" & FromSecond
End Function

看看