VB 6.0
在这里想申民一个参数等于当前日期，如果大于这个日期就执行另外一个提示，但是系统提示x =nothin ，请问什么问题？
Call objVoucher.getVoucherDataXML(domHead, domBody)
Dim cCusCode As String
cCusCode = GetHeadItemValue(domHead, "ccuscode")
Dim x As Data
x = Date
If x > 2014 - 4 - 17 Then
MsgBox "弃审失败：" & cCusCode
Else
MsgBox "其他"
End If
Cancel = True
VB 6.0 关于日期参数的问题
答案:2 悬赏:40 手机版
解决时间 2021-02-09 13:43
- 提问者网友：最美的风景
- 2021-02-08 15:58
最佳答案
- 五星知识达人网友：人间朝暮
- 2021-02-08 16:42
日期比较应该用DateDiff函数处理
全部回答
- 1楼网友：白昼之月
- 2021-02-08 18:18
vb里面有个多媒体控件，直接拖到窗体里面就可以了，只要media player可以播放的他都可以播放
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯