以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  日期转换  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=74589)
--  作者：阿福
--  发布时间：2015/9/14 22:12:00
--  日期转换
Dim yue As Integer = 12
Dim ri As Integer = 15
Dim nian As Integer = Date.Today.Year
Dim a As Date = cdate("nian & "-" & yue & "-" & ri ")

老师，我这样的转换是失败的，请求老师指点一下
--  作者：阿福
--  发布时间：2015/9/14 22:55:00
--  
原来改成这样就行了
Dim a As Date = cdate(nian & "-" & yue & "-" & ri )
--  作者：大红袍
--  发布时间：2015/9/15 21:06:00
--  
Dim a As Date = new date(2015, 12, 15)