关于VB的一个函数问题，很急，请求帮助！

Question

我没用过VB的 脚本，但是现在的项目接触到了，又以个函数是转换日期的格式的，我再页面进行修改的时候，提交页面需要转换日期格式，但是却报脚本错误说不支持length属性，我差了以下资料进行了一下修改，但又报了CStr（）方法的错误。具体函数代码如下：         function FormatDT(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-(cstr(month(ss1))).length,"0") & cstr(month(ss1))
        d1=day(ss1)
        d2=string(2-(cstr(day(ss1))).length,"0") & cstr(day(ss1))
        h1=Hour(ss1)
        h2=string(2-(cstr(hour(ss1))).length,"0") & cstr(hour(ss1))
        n1=Minute(ss1)
        n2=string(2-(cstr(Minute(ss1))).length,"0") & cstr(Minute(ss1))
        s1=Second(ss1)
        s2=string(2-(cstr(Second(ss1))).length,"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)
        FormatDT=ss
    end function
请求各位大侠的赐教，我再次感谢了

Answer 1

VB可以用format函数直接格式化日期...
VB中对应C中的length属性的是len函数...

Answer 2

function FormatDT(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 
        FormatDT=format(cdate(s), sformat)
    end function