每月的第一天執行

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2010-6-4 08:00 | 顯示全部帖子

If Format(Now(), "dd") = "01" Then
....
End If
Min 發表於 2010-6-3 18:09

放一下馬後炮
If Day(Date) = 1 Then

End If

靜思自在 : 信心、毅力、勇氣三者具備，則天下沒有做不成的事。