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

2009-03-02 03:37:47 276 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

价值投资/指标选股（akshare）利用akshare的数据源，可以获取所有的股票数据以及公开的财务数据，可以进行条件筛选，获取满足条件的股票。这套模板可以用于价值投资，指标选股。选股周期为日线级别。然后结果可以邮箱发送。 import time import akshare as ak ## A 股上市公司的实时行情数据 stock_zh_a_spot_df = ak.stock_zh_a_spot() #print(stock_zh_a_spot_df) ##取前300测试 ##取前300测试 df_stock =... 阅读详情

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

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

...全文