vb 中如何计算已知一个月的天数？

dim n as integer

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

n=2009

if n mod 4 0 then

print "这个月有28天"

else

if n mod 100 = 0 then

if n mod 400 = 0 then

print "这个月有29天"

else

print "这个月有28天"

emd if

else

"这个月有29天"

end if

end if

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向你演示了如何使用TimeSpan对象来获得两个日期间的时间值。今后，你可以使用Subtract方法来获得两个日期间的实际天数。 关于列表A的一些说明 首先，我们声明一个Date类型的变量dtStartDate，并赋初值为2007年一月一日。同时，还声明了其它一些将会用到的变量，包括：TimeSpan的一个实例tsTimeSpan，整型数iNumberOfDays，字符串型变量strMsgText。设定变量tsTimeSpan的值为当前日期/时间值与dtStartDate值得差。 为了计算出当前日期/时间（Now）与dtStartDate之间的天数，我们使用TimeSpan对象的Days属性，设定它的值为iNumberOfDays 。查看本文来源

vb 统计各个月份的天数

算法的思路：

1，要获得一年中各个月的天数，这样就要判断平年还是闰年，好在你这里不需要2月份的天数。所以预先定义：

月份 天数

8月 31

9月 30

10月 31

11月 30

12月 31

1月 31

2，找规律：

在 9月12日 那一行的天数是： 8月的天数31-12+12=31

在10月12日 那一行的天数是： 9月的天数30-12+12=30

在11月12日 那一行的天数是：10月的天数31-12+12=31

在12月12日 那一行的天数是：11月的天数30-12+12=30

在 1月12日 那一行的天数是：12月的天数31-12+12=31

在 2月12日 那一行的天数是： 1月的天数31-12+12=31

3，归纳：

1，每个月12日那一行，统计的天数，是上一月的整个月份的总天数。

2，注意：平年与闰年的2月份的天数不一样分别为28和29天。

通过分析，寻找规律，问题就变得很简单了。

Dim yd(6) As Integer

Dim i As Integer

yd(1) = 31 '8月份的总天数

yd(2) = 30 '9月份的总天数

yd(3) = 31 '10月份的总天数

yd(4) = 30 '11月份的总天数

yd(5) = 31 '12月份的总天数

yd(6) = 31 '1月份的总天数

For i = 1 To 6

Print yd(i)

Next i

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.net本月天数,vb输入月份显示天数
本文URL：http://chengdu.cdxwcx.cn/article/hocpdp.html