每月的第一天執行

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

靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。