帮忙看看这段程序的问题

pq318

第三个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

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

呵呵谢谢斑竹，我编的的程序是不够精炼，主要是有些知识还是不足，受教了