| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 错在哪里？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=149728) |
| -- 作者：ygg8310 -- 发布时间：2020/5/10 19:02:00 -- 错在哪里？ Dim n As Date = "2019,05,10" If n < Today.AddDays(0) Then Messagebox.Show("您正在使用的产品已经超出试用次数!")
|
| -- 作者：有点蓝 -- 发布时间：2020/5/11 9:12:00 -- Dim n As Date = cdate("2019-05-10") If n < Date.Today Then Messagebox.Show("您正在使用的产品已经超出试用次数!") End If [此贴子已经被作者于2020/5/11 9:12:41编辑过]
|