7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
heavenchuang 2004-01-10
- 打赏
- 举报
谢谢各位！散分！
northwolves 2004-01-09
- 打赏
- 举报
呵呵，很多办法，另如：
If Not Year(Date) = Year(DateAdd("d", -1, Date)) Then MsgBox "It's Jan 1 today"
If Not Year(Date) = Year(DateAdd("d", -1, Date)) Then MsgBox "It's Jan 1 today"
香辣五花肉 2004-01-09
- 打赏
- 举报
if month(date)=1 and day(date)=1 then
msgbox "今天一月一号"
end if
我也跟一下，这个问题实在有点简单:)
msgbox "今天一月一号"
end if
我也跟一下，这个问题实在有点简单:)
lisa315 2004-01-09
- 打赏
- 举报
上面这个最简单了
if month(date)=1 and day(date)=1 then
msgbox "今天一月一号"
end if
if month(date)=1 and day(date)=1 then
msgbox "今天一月一号"
end if
wsd309 2004-01-09
- 打赏
- 举报
Month(Date) = 1 And Day(Date) = 1
RyuOut 2004-01-09
- 打赏
- 举报
不用加"NOW"吗?
shleo 2004-01-09
- 打赏
- 举报
都可以吧
jhzhou882 2004-01-09
- 打赏
- 举报
If (Month(Date) = 1) And (Day(Date) = 1) Then
msgbox "今天一月一号"
End If
msgbox "今天一月一号"
End If
liuyanghe111 2004-01-09
- 打赏
- 举报
用datepart函数取出月份和日期就可以了
SoHo_Andy 2004-01-09
- 打赏
- 举报
Private Sub Command1_Click()
Dim Mydate As Date
Mydate = Format(Now, "yyyy-mm-dd")
If Right(Mydate, Len(Mydate) - 5) = "1-1" Then
MsgBox "今天是一月一日"
End If
End Sub
Dim Mydate As Date
Mydate = Format(Now, "yyyy-mm-dd")
If Right(Mydate, Len(Mydate) - 5) = "1-1" Then
MsgBox "今天是一月一日"
End If
End Sub
