日期验证出错(急)

Question

可是要求是美国日期格式MM/DD/YYYY,怎么办?

Answer 1

<% function ConvertDate(sDate)     dim sMM 
    dim sDD     if Trim(sDate) = "" then Exit Function     sMM = Month(CDate(sDate)) 
    sDD = Day(CDate(sDate)) 
    if Len(Trim(sMM)) < 2 then sMM = "0" & sMM 
    if Len(Trim(sDD)) < 2 then sDD = "0" & sDD 
   
    ConvertDate = sMM & "/" & sDD & "/" & Year(CDate(sDate)) 
     
end function response.write ConvertDate("8/1/65 10:00") & "<br>" 
response.write ConvertDate("8/01/85") & "<br>" 
response.write ConvertDate("1/1/01")   %>

Answer 2

在你的输入框后加上提示要求用户输入YYYY-MM-DD各式的数据并不算过分，而起你所说的美国日期格式在中国本就容易引起人的误会，又何必用呢！如果非要求那样的格式的话，看来你要自己写验证函数了，不过不建议你自己写，不是说我们写得不好。

Answer 3

to solo108(solo108),
因为这是给美国用户做的应用,所以要美国日期格式.看来只用写验证函数了,谢谢大家.