此主题相关图片如下:qq截图20140720210958.png
可惜,PublishDate 不能赋值 否则 加下列代码会更方便
Dim Val As Date = #7/20/2014#If InputValue(Val, "升级文件制作","请输升级日期:") Then ‘PublishDate = ValEnd If