以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  日问题期格式转换  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=130357)
--  作者：丰田
--  发布时间：2019/1/19 22:11:00
--  日问题期格式转换
Dim lbl As WinForm.Label
lbl = e.Form.Controls("Label06")
lbl.Text = "" & Date.Today()& ""

上述代码显示的是2019-01-19，怎样转换2019年01月19日，代码怎样改
--  作者：丰田
--  发布时间：2019/1/19 22:13:00
--  
日期格式转换问题

Dim lbl As WinForm.Label
lbl = e.Form.Controls("Label06")
lbl.Text = "" & Date.Today()& ""

上述代码显示的是2019-01-19，怎样转换成2019年01月19日这种格式，代码怎样改
--  作者：有点甜
--  发布时间：2019/1/20 11:24:00
--  
 
Dim lbl As WinForm.Label
lbl = e.Form.Controls("Label06")
lbl.Text = format(Date.Today, "yyyy年MM月dd日")