以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]时间问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=65556)

--  作者:黄训良
--  发布时间:2015/3/18 12:05:00
--  [求助]时间问题

这句代码报错:

 预览时正常,发布后报错。

Dim Datenew As Date =  Date.Today 
If CStr(Datenew.Month) = "1" And CStr(Datenew.Day) = "1"
    MessageBox.Show("今天是" & Datenew.Year & "年的第一天,请设置编号前缀!","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Information) = DialogResult.Yes
End If


图片点击可在新窗口打开查看此主题相关图片如下:日期问题.png
图片点击可在新窗口打开查看

--  作者:黄训良
--  发布时间:2015/3/18 12:06:00
--  
不好意思,已解决!