更新：求助“默认年”加1问题。

fengdong　发表于：2012-11-21 08:10:43 　

窗体打开中加如下代码，20日后月会自动加1，可12月20日后不能显示下一年，应该怎么改？

Private Sub Form_Load()
If Day(Date) > 20 Then
    If Month(Date) < 12 Then
        Me.Text1 = Month(Date) + 1 & "月"
    Else
        Me.Text1 = 1 & "月"
    End If
Else
    Me.Text1 = Month(Date) & "月"
End If

Me.Text2 = Year(Date) & "年"

End Sub

找不到解答？

请查看 10 个与本帖内容相关的技术文章或帖子列表，确认对您的问题的解答是否会是列表中的其中一个解答。

Top

煮江品茶发表于：2012-11-21 13:31:18

If Day(Date) > 20 Then
me.text1.value=month(dateadd("m",1,date))

me.text2.value=year(dateadd("m",1,date))

end if

Top

叶海峰发表于：2012-11-21 13:33:52

Private Sub Form_Load()
If Day(Date) > 20 Then
Me.Text1 = Month(DateAdd("m", 1, Date))
Else
Me.Text1 = Month(Date) & "月"
End If

Me.Text2 = Year(DateAdd("m", 1, Date)) & "年"

End Sub

Top

叶海峰发表于：2012-11-21 13:34:59

呵呵,我慢了2分钟34秒

Top

fengdong 发表于：2012-11-21 14:00:45

多谢几位

Top

yuefun 发表于：2012-11-21 14:24:53

这个问题当初我以前遇到过，起初也像前面几位用代码解决，不过后来偷懒，找到一个更简便的方法解决：

先获取现在的日期+12天，20号以后的日子如论如何都挪到了下一月吧？再提取“年”、“月”，ok！

Top

fengdong 发表于：2012-12-03 11:19:54

刚又改了改，多谢版主！

Top

总记录：6篇页次：1/1 9 1 :

Access交流中心

更新：求助“默认年”加1问题。

找不到解答？