以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  格式化日期  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=146509)

--  作者:裴保民
--  发布时间:2020/2/25 14:18:00
--  格式化日期
qssj.text= Format(# Date.Today.AddYears(-100)/01/01 #,"yyyy-MM-dd")

这句代码哪错了

--  作者:有点蓝
--  发布时间:2020/2/25 14:33:00
--  
qssj.text= Format(new date( Date.Today.AddYears(-100).year,1,1),"yyyy-MM-dd")
--  作者:裴保民
--  发布时间:2020/3/3 11:11:00
--  
Dim qsrq As Date 
qsrq = Format(new Date(#" qsn.Value " & " qsy.Value "& " 01 " # ),"yyyy-MM-dd")

这句代码不对吗?返回错误码“应为表达式”

--  作者:2900819580
--  发布时间:2020/3/3 11:14:00
--  
Dim qsrq As Date 
qsrq = Format(new Date( qsn.Value,qsy.Value,1),"yyyy-MM-dd")
[此贴子已经被作者于2020/3/3 11:14:50编辑过]