vb.net当月总天数 vb显示当前年月日

提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

vb 统计各个月份的天数

算法的思路：

1vb.net当月总天数，要获得一年中各个月的天数，这样就要判断平年还是闰年，好在你这里不需要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天。

通过分析，寻找规律，问题就变得很简单vb.net当月总天数了。

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

相关问答

Q1: vb.net求当月的第一天和最后一天，求帮忙！

当月第一天：

DateSerial(Year(Now()), Month(Now()), 1)

当月最后一天：

DateSerial(Year(Now()), Month(Now()) + 1, 0)

Q2: C#中怎么得到当月的天数（当月共有多少天）

没有直接的方法！你首先判断当年是不是闰年，然后你获取当前的月份，平年2月28天，闰年28+1=29天；大月：1，3，5，7，8，10，12为31天；小月：4，6，9，11为30天；明白了吧

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

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

关于列表A的一些说明

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

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

Q4: 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