以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  帮忙看下下面代码 当转换不成功 无效日期格式没有跳出？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=66278)
--  作者：jswjyjf
--  发布时间：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

 
--  作者：Bin
--  发布时间：2015/4/2 15:00:00
--  
代码看起来没问题,  上个例子看看
--  作者：有点甜
--  发布时间：2015/4/2 15:02:00
--  

 单独测试，报什么错？

 

Dim zd As Date \'变量d用于存储转换结果
If Date.TryParse(DecryptText(zcqx,"天意网络","www.wess.com"), zd) Then \'如果转换成功
    messagebox.show(zd) \'输出转换结果
Else
    messagebox.show("无效日期格式") \'给出错误提示
End If
--  作者：jswjyjf
--  发布时间：2015/4/2 15:21:00
--  

现在可以了