VB判断今天是否是每月的第一天

'获取给定日期的当月第一天
Private Function getFirstDayOfMonth(ByVal D As Date) As Date
getFirstDayOfMonth = CDate(Year(D) & "-" & Month(D) & "-1")
End Function

自己判断吧！~

Dim da As String
da = Format(Now, "YYYY/MM")
da = Format(da, "YYYY/MM/DD")
Dim nowday As String
nowday = Format(Now, "YYYY/MM/DD")
da nowday 两个相等就是表示今天是这个月的第一天！

Private Sub Command1_Click()
If Format(Date, "dd") = 1 Then
MsgBox "今天是1号"
End If
End Sub

function PanDuanDate(){//定义方法
var dt = new Date();//获取当前系统日期对象dt
var dd=dt.getDate();//通过dt获取今天几号dd
if dd=="1" then//判断
return true;//是第一天
else
return false;//不是第一天
end if
}

if day(now)=1 then
msgobx "第一天"
end if