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

[yijay555]

我没用过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


请求各位大侠的赐教，我再次感谢了

[vbman2003]

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

[Tiger_Zhao]

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