以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  日期类型转换成字符型  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=64801)
--  作者：newsun2k
--  发布时间：2015/3/2 11:30:00
--  日期类型转换成字符型
Dim d1 As Date
d1 = Date.Today
Dim s1 As String
s1 = cstr(d1)
msgbox(s1)

我想s1 = "2015-03-02"
如何实现？
--  作者：Bin
--  发布时间：2015/3/2 11:32:00
--  
Dim d1 As Date
d1 = Date.Today
Dim s1 As String
s1 = format(cstr(d1),"yyyy-MM-dd")
msgbox(s1)