datestr=now() '取当前系统日期
目前创新互联公司已为近千家的企业提供了网站建设、域名、网站空间、网站托管维护、企业网站设计、从江网站维护等服务，公司将坚持客户导向、应用为本的策略，正道将秉承"和谐、参与、激情"的文化，与客户和合作伙伴齐心协力一起成长，共同发展。
sday=year(datestr)"-"month(datestr)"-1" '当前月第一天
eday=DateAdd("m", 1, sday) '增加一个月时间
eday=DateAdd("d", -1, eday) '减去一天就是月末日期
eday=day(eday) '得到当月天数
在应用开发中，开发人员经常要进行各种各样的日期处理。如果你需要一种简单的方法来计算出给定两个日期间的天数，不妨考虑使用VB.NET中的TimeSpan对象。
关于列表A的一些说明
首先，我们声明一个Date类型的变量dtStartDate，并赋初值为2007年一月一日。同时，还声明了其它一些将会用到的变量，包括：TimeSpan的一个实例tsTimeSpan，整型数iNumberOfDays，字符串型变量strMsgText。设定变量tsTimeSpan的值为当前日期/时间值与dtStartDate值得差。
为了计算出当前日期/时间（Now）与dtStartDate之间的天数，我们使用TimeSpan对象的Days属性，设定它的值为iNumberOfDays 。
Private Sub Form_Click() '点击窗体运行
Dim yy As Integer, mm As Integer
yy = Int(Val(InputBox("请输入年份")))
mm = Int(Val(InputBox("请输入月份")))
If mm 0 And mm 13 Then
MsgBox yy "年" mm "月共有" Day(DateSerial(yy, mm + 1, 0)) "天"
Else
MsgBox "输入有误！"
End If
End Sub
这个方法返回月份的天数第一个参数是年，第二个参数是月Private Function CountDay(Year As Integer, Month As Integer) As Integer
Dim count As Integer
count = -1
If Month = 1 Or Month = 3 Or Month = 5 Or Month = 7 Or Month = 8 Or Month = 10 Or Month = 12 Then
count = 31
ElseIf Month = 4 Or Month = 6 Or Month = 9 Or Month = 11 Then
count = 30
Else
If Year Mod 4 = 0 And Year Mod 100 0 Or Year Mod 400 = 0 Then
count = 29
Else
count = 28
End If
End If
CountDay = count
End Function 关于判断季节的就简单了 1-3月为春天 4-6月为夏天 7-9月为秋天 10-12为冬天写个if语句判断一下就好了
