以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  合成日期提示错误  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=111427)
--  作者：zhangjian222200
--  发布时间：2017/12/21 17:13:00
--  合成日期提示错误
1.内部函数里，保存提示错误
Dim a As Date = # Date.Now.Year/ Date.Now.Month /1#

2.另一个保存也提水错误
dim b1 as integer = "2017"
dim b2 as integer = "12"
dim b3 as integer = "21"
dim b as date = # b1/ b2 /b3 #
--  作者：有点甜
--  发布时间：2017/12/21 17:31:00
--  

Dim a As Date = new date(Date.Now.Year, Date.Now.Month, 1)

 

dim b1 as integer = "2017"
dim b2 as integer = "12"
dim b3 as integer = "21"
dim b as date = new date(b1, b2, b3)
--  作者：zhangjian222200
--  发布时间：2017/12/22 9:48:00
--  
dim shangyue_kaishi_nian as integer = "2017"
dim shangyue_kaishi_yue as integer = "10"
dim shangyue_jieshu_ri as integer = "31"

Dim shangyue_jieshu As Date = shangyue_kaishi_nian & "/" & shangyue_kaishi_yue & "/" & shangyue_jieshu_ri \'定义,上月结束
msgbox（shangyue_jieshu）


我发现这样也可以，能正常弹出日期值，这样可以吗？
[此贴子已经被作者于2017/12/22 9:51:17编辑过]
--  作者：有点甜
--  发布时间：2017/12/22 9:54:00
--  
尽量像2楼那样写。