Office中国论坛/Access中国论坛

标题: 帮忙看看这段程序的问题 [打印本页]

作者: pq318 时间: 2011-7-21 11:38
标题: 帮忙看看这段程序的问题
第三个IF不起作用，怎么修改
If Month(Now()) < 10 Then mon = "0" & Month(Now()) Else mon = Month(Now())
If Day(Now()) < 10 Then da = "0" & Day(Now()) Else da = Day(Now())
rq = Mid(Year(Now()), 3, 2) & mon & da
Me.Lable2 = Year(Now()) & "-" & mon & "-" & da
rq2 = Mid(Year(Now()), 3, 2) & mon & da & Me.Lable6 & "2-001"
If Mid(Me.Lable20, 3, 6) <> rq Or Me.Lable20 = "" Then
Me.Lable20 = "C" & Mid(Me.Lable7, 2, 1) & rq2 'sd成品
End If
谢谢各位了

作者: todaynew 时间: 2011-7-21 14:03
本帖最后由 todaynew 于 2011-7-21 14:12 编辑

pq318 发表于 2011-7-21 11:38
第三个IF不起作用，怎么修改
If Month(Now()) < 10 Then mon = "0" & Month(Now()) Else mon = Month(Now( ...

多此一举，直接用format函数就可以了。

If Mid(Me.Lable20, 3, 6) <> format(date(),"yymmdd") Then
Me.Lable20 = "C" & Mid(Me.Lable7, 2, 1)
Me.Lable20 = Me.Lable20 & format(date(),"yymmdd") & Me.Lable6 & "2-001"
End If

作者: pq318 时间: 2011-7-21 17:50
呵呵谢谢斑竹，我编的的程序是不够精炼，主要是有些知识还是不足，受教了

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)