pubfun_a_c.vbs

OFFICE办公自动化

    function formatdatetime_activenew(s,sformat)
	    '格式化日期时间s为要格式化的日期时间,sformat为格式串yyyy表示4位年,yy表示2位年
	    'mm表示2位月,m表示一位月,dd表示2位日,d表示一位日
	    'hh表示2位小时,h表示一位
	    'nn表示2位分,n表示一位
	    'ss表示2位秒,s表示一位
        if not isdate(s) then
            formatdatetime_active=s
            exit function
        end if
        dim y4,y2,m2,m1,d2,d1,h2,h1,n2,n1,s2,s1
        dim ss1,ss
        ss1=cdate(s)
        y4=year(ss1)
        y2=right(y4,2)
        m1=Month(ss1)
        m2=string(2-len(cstr(month(ss1))),"0") & cstr(month(ss1))
        d1=day(ss1)
        d2=string(2-len(cstr(day(ss1))),"0") & cstr(day(ss1))
        h1=Hour(ss1)
        h2=string(2-len(cstr(hour(ss1))),"0") & cstr(hour(ss1))
        n1=Minute(ss1)
        n2=string(2-len(cstr(Minute(ss1))),"0") & cstr(Minute(ss1))
        s1=Second(ss1)
        s2=string(2-len(cstr(Second(ss1))),"0") & cstr(Second(ss1))
        ss=replace(sformat,"yyyy",y4)
        ss=replace(ss,"yy",y2)
        ss=replace(ss,"mm",m2)
        ss=replace(ss,"m",m1)
        ss=replace(ss,"dd",d2)
        ss=replace(ss,"d",d1)
        ss=replace(ss,"hh",h2)
        ss=replace(ss,"h",h1)
        ss=replace(ss,"nn",n2)
        ss=replace(ss,"n",n1)
        ss=replace(ss,"ss",s2)
        ss=replace(ss,"s",s1)
        formatdatetime_activenew=ss
	end function