ymd.inc

一个软件工程的软件质量web跟踪管理系统

<%
Function YMD(MyDate)
    on error resume next
    strYear=Year(MyDate)
    strMonth=Month(MyDate)
    strDay=Day(MyDate)        
    if len(strMonth)=1 then strMonth="0" & strMonth end if
    if len(strDay)=1 then strDay="0" & strDay end if
    YMD=strYear & "-" &strMonth & "-" &strDay
    If Err.description <> "" Then
    YMD="&nbsp;" 
    end if
end function
%>