帮忙看下下面代码 当转换不成功 无效日期格式没有跳出? Post By:2015/4/2 14:59:00 [只看该作者]
Dim zd As Date '变量d用于存储转换结果 If Date.TryParse(DecryptText(zcqx,"天意网络","www.wess.com"), zd) Then '如果转换成功 messagebox.show(zd) '输出转换结果 If zd>dt1 Then '软件过期 Dim t As TimeSpan =zd-dt1 If t.Totaldays<= 10 Then Forms("软件10天内到期").show() End If Else Forms("到期提示").show()
End If Else messagebox.show("无效日期格式") '给出错误提示 End If