VB怎样获取指定年月的天数

datestr=now() '取当前系统日期

目前创新互联公司已为近千家的企业提供了网站建设、域名、网站空间、网站托管维护、企业网站设计、从江网站维护等服务，公司将坚持客户导向、应用为本的策略，正道将秉承"和谐、参与、激情"的文化，与客户和合作伙伴齐心协力一起成长，共同发展。

sday=year(datestr)"-"month(datestr)"-1" '当前月第一天

eday=DateAdd("m", 1, sday) '增加一个月时间

eday=DateAdd("d", -1, eday) '减去一天就是月末日期

eday=day(eday) '得到当月天数

在VB.NET中如何确定两个日期之间的天数

在应用开发中，开发人员经常要进行各种各样的日期处理。如果你需要一种简单的方法来计算出给定两个日期间的天数，不妨考虑使用VB.NET中的TimeSpan对象。

关于列表A的一些说明

首先，我们声明一个Date类型的变量dtStartDate，并赋初值为2007年一月一日。同时，还声明了其它一些将会用到的变量，包括：TimeSpan的一个实例tsTimeSpan，整型数iNumberOfDays，字符串型变量strMsgText。设定变量tsTimeSpan的值为当前日期/时间值与dtStartDate值得差。

为了计算出当前日期/时间（Now）与dtStartDate之间的天数，我们使用TimeSpan对象的Days属性，设定它的值为iNumberOfDays 。

vb输入年份与月份，输出这个月的天数

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

vb给出月份判断是什么季节和该月有多少天怎么做啊

这个方法返回月份的天数第一个参数是年，第二个参数是月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语句判断一下就好了