ymdhms.inc

来自「一个软件工程的软件质量web跟踪管理系统」· INC 代码 · 共 17 行

<%
Function YMDHMS(MyDate)
    strYear=Year(MyDate)
    strMonth=Month(MyDate)
    strDay=Day(MyDate)
    strHour=hour(Mydate)
    strMinute=Minute(MyDate)
    strSecond=Second(MyDate)
    if len(strMonth)=1 then strMonth="0" & strMonth end if
    if len(strDay)=1 then strDay="0" & strDay end if
    if len(strHour)=1 then strHour="0" & strHour end if
    if len(strMinute)=1 then strMinute="0" & strMinute end if
    if len(strSecond)=1 then strSecond="0" & strSecond end if
    'YMDHMS=strYear & strMonth & strDay & strHour & strMinute & strSecond & "," & strMonth & "/" & strDay & "/" & strYear & " " & strHour& ":" & strMinute& ":" & strSecond
    YMDHMS=strYear & strMonth & strDay & strHour & strMinute & strSecond & "," & strMonth & "/" & strDay & "/" & strYear
end function
%>